ComboBox + CheckBox mit CASE

  • VB6

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von n30phyt3.

    ComboBox + CheckBox mit CASE

    hallo Community :)

    Ich hoffe ihr könnt mir bei meinem für euch kleinem Problem helfen.
    Ich habe eine ComboBox und mehrere CheckBox'en.
    Wenn ComboBox.ListIndex=0 dann sollten CheckBox1+2+3 angewählt sein und Value=1.
    Wenn ComboBox.Listindex=1 dann sollten CheckBox1+2 angewählt sein und Value=1 aber CheckBox3 soll Value=0 haben und Enabled=FALSE haben.

    wie bekomme ich das hin? wäre sehr dankbar wenn ihr mir da weiter helfen würdet

    hier meine Quellcode der nicht funktioniert:

    Quellcode

    1. Private Sub ComboBox1_Changed()
    3. Select Case ComboBox1.ListIndex
    5. Case 0
    6. CheckBox1.Value = True
    7. CheckBox2.Value = True
    8. CheckBox3.Value = True
    10. Case 1
    11. CheckBox1.Value = True
    12. CheckBox2.Value = True
    13. CheckBox3.Value = False
    14. CheckBox3.Enabled = False
    16. Case Else
    17. CheckBox1.Value = True
    18. CheckBox1.Value = False
    19. CheckBox2.Value = False
    20. CheckBox3.Value = False
    21. CheckBox1.Enabled= False
    22. CheckBox2.Enabled = False
    23. CheckBox3.Enabled= False
    25. End Select
    26. End Sub

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „n30phyt3“ ()

    PS hab den Fehler gefunden

    Quellcode

    1. Private Sub ComboBox1_Changed()



    DANKE für die Hilfe ;)



    hab jetzt das ganze in vbChecked und vbUnchecked geändert aber da passiert beim umschalten von ComboBox1 nichts... ?

    Quellcode

    1. Private Sub ComboBox1_Changed()
    3. Select Case ComboBox1.Text
    5. Case "AAA"
    6. CheckBox1.Value = vbChecked
    7. CheckBox2.Value = vbChecked
    8. CheckBox3.Value = vbChecked
    10. Case "BBB"
    11. CheckBox1.Value = vbChecked
    12. CheckBox2.Value = vbChecked
    13. CheckBox3.Value = vbChecked
    14. CheckBox3.Enabled = False
    16. Case "CCC"
    17. CheckBox1.Value = vbChecked
    18. CheckBox1.Value = vbUnchecked
    19. CheckBox2.Value = vbUnchecked
    20. CheckBox3.Value = vbUnchecked
    21. CheckBox1.Enabled = False
    22. CheckBox2.Enabled = False
    23. CheckBox3.Enabled = False
    25. End Select
    26. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „n30phyt3“ ()

    Visual Basic-Quellcode

    1. ' Visual Basic 6.0
    2. Private Sub Check1_Click()
    3. If Check1.Value = 1 Then
    4. Check1.Caption = "Checked"
    5. Else
    6. Check1.Caption = "Unchecked"
    7. End If
    8. End Sub


    Auszug aus der Microsoft MSDN
    msdn.microsoft.com/de-de/library/kk8bb7ac(VS.80).aspx

    Sprich:

    Visual Basic-Quellcode

    1. Checkbox1.Value = 1 'Für gecheckte Checkbox
    2. Checkbox1.Value = 0 'Für ungecheckte Checkbox


    Gruß
    Jings

Facebook
Telefonspende