Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

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

sdk
2 antwoorden
  • 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?
  • Wel ff opletten: het gaat her om een FileListBox, dus 'Wav bestanden|*.wav' moet veranderd worden in '*.wav'

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.