[VB6] Eseguire azioni in base alla selezione del controllo ListBox

[HackLars]

Salve a tutti!
Ho Visual Basic 6.0 e non riesco a fare una cosa probabilmente semplice...
Ho un form con una listbox con 20 opzioni (da 1 a 20 in numeri), chiamata ListBox1, poi ho due CommandButton: cmd1 e cmd2!
Vorrei fare in modo che, se nella listbox è selezionato un numero da 1 a 10, allora si attiva il cmd1, se invece è selezionato un numero da 11 a 20, si attiva il cmd2!
Il cmd1 e il cmd2 inizialmente sono disattivati (Enabled = False)!
Spero che potete aiutarmi!

[oregon]

Non e' tanto difficile ... con qualche prova ci saresti arrivato da solo ...

Private Sub List1_Click()
    If Val(List1.Text) < 11 Then
        cmd1.Enabled = True
        cmd2.Enabled = False
    Else
        cmd1.Enabled = False
        cmd.Enabled = True
    End If
End Sub

P.S. Fai attenzione al regolamento e ai titoli da usarsi in questo forum ...

[alka]

Ho provveduto a correggere il titolo. Rinnovo l'invito a leggere il Regolamento di quest'area per conoscere le norme da seguire per la partecipazione.

Ciao!

[HackLars]

Si scusate ma mi sono sbagliato con il titolo xd
sapresti anche come fare se ci fossero 4 command button che il primo si attiva solo da 1 a 20, il secondo da 21 a 40, il terzo da 61 a 80 e il quarto da 81 a 90!
si chiamano cmd1, cmd2, cmd3, cmd4
scusate se disturbo ancora ma ho notato che date risposte precise molto velocemente xD
siete grandi!

[oregon]

Sì ... pero', dato che il codice e' semplice, potresti provarci tu ...

La base e' quella ...

[HackLars]

Allora non sò se ne sono capace, sono un novizio di vb...
Potresti aiutarmi pls xD
cioè ora ho capito come fare con else...ma se ho + di 2 possibilità come faccio?

[oregon]

Originariamente inviato da HackLars
Allora non sò se ne sono capace, sono un novizio di vb...

Ok ... sei un novizio ... e con quel suggerimento e un po' di studio, ci arrivi ...

Potresti aiutarmi pls xD

Ti do' un'altra dritta ma completi tu il codice ...

Private Sub List1_Click()
    Dim v As Integer
    v = Val(List1.Text)
    
    cmd1.Enabled = False
    cmd2.Enabled = False
    cmd3.Enabled = False
    cmd4.Enabled = False
    
    Select Case v
        Case 1 To 20
            cmd1.Enabled = True
        ' da completare
    End Select
End Sub

[HackLars]

Ci provo...anche se non conosco il select case!

Private Sub List1_Click()
Dim v As Integer
v = Val(List1.Text)

cmd1.Enabled = False
cmd2.Enabled = False
cmd3.Enabled = False
cmd4.Enabled = False

Select Case v
Case 1 To 20
cmd1.Enabled = True
' da completare
End Select
Select Case v
Case 21 To 40
cmd2.Enabled = True
' da completare
End Select
Select Case v
Case 41 To 60
cmd3.Enabled = True
' da completare
End Select
Select Case v
Case 61 To 80
cmd4.Enabled = True
' da completare
End Select
End Sub

E' giusto?

[HackLars]

Scusa, ho scritto una cosa sbagliata!

Private Sub List1_Click()
    Dim v As Integer
    v = Val(List1.Text)
    
    cmd1.Enabled = False
    cmd2.Enabled = False
    cmd3.Enabled = False
    cmd4.Enabled = False
    
    Select Case v
        Case 1 To 20
            cmd1.Enabled = True
        Case 21 To 40
            cmd2.Enabled = True
        Case 41 To 60
            cmd3.Enabled = True
        Case 61 To 80
            cmd4.Enabled = True
    End Select
End Sub

[oregon]

No ...

La struttura

Select



End Select

e' una sola ... all'interno ci stanno tutti i Case uno dietro l'altro

Scusa ... ma STUDIARE un po' questa istruzione ?

EDIT: la seconda risposta e' corretta ... perche' non la provi?