anoniem Geplaatst: 24 oktober 2002 Delen Geplaatst: 24 oktober 2002 Ik heb een filebox genaamd filFile en wil dat deze de bestanden laat zien als ik een vinkje voor mp3 of wav zet. [code:1:221e4598bc]Private Sub chkmp3_Click() If chkmp3.Value = Checked And chkwav.Value = Checked Then filFile.Pattern = "Mp3 bestanden|*.mp3|Wav bestanden|*.wav" Exit Sub End If If chkmp3.Value = Checked And chkwav.Value = 0 Then filFile.Pattern = "Mp3 bestanden|*.mp3" Exit Sub End If If chkmp3.Value = Unchecked And chkwav.Value = Checked Then filFile.Pattern = "Wav bestanden|*.wav" Exit Sub End If If chkmp3.Value = Unchecked And chkwav.Value = Unchecked Then filFile.Pattern = "" Exit Sub End If End Sub Private Sub chkwav_Click() If chkmp3.Value = Checked And chkwav.Value = Checked Then filFile.Pattern = "Mp3 bestanden|*.mp3|Wav bestanden|*.wav" Exit Sub End If If chkmp3.Value = Unchecked And chkwav.Value = Checked Then filFile.Pattern = "Wav bestanden|*.wav" Exit Sub End If If chkmp3.Value = Checked And chkwav.Value = Unchecked Then filFile.Pattern = "Mp3 bestanden|*.mp3" Exit Sub End If If chkmp3.Value = Unchecked And chkwav.Value = Unchecked Then filFile.Pattern = "" Exit Sub End If End Sub[/code:1:221e4598bc] De types verdwijnen wel maar komen niet meer terug, wie weet wat er neit klopt? Quote Link naar reactie
anoniem Geplaatst: 24 oktober 2002 Auteur Delen Geplaatst: 24 oktober 2002 Wel ff opletten: het gaat her om een FileListBox, dus 'Wav bestanden|*.wav' moet veranderd worden in '*.wav' Quote Link naar reactie
anoniem Geplaatst: 24 oktober 2002 Auteur Delen Geplaatst: 24 oktober 2002 bedankt Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen