Ersi iets fout met de code voor een checkbox (VB 6.0)

[anoniem]

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?

[anoniem]

Wel ff opletten: het gaat her om een FileListBox, dus 'Wav bestanden|*.wav' moet veranderd worden in '*.wav'

[anoniem]

bedankt