Consulta también:
- Vb.net case
- Select case visual basic - Mejores respuestas
- Case en visual basic - Mejores respuestas
- Que es case de computadora - Guide
- Criminal case gratis - Programas - Puzles
- Round vb.net - Guide
- Lucky case apk - Programas - Personalización
- The computer case is open. please make sure the computer case is closed properly - Foro de Windows
3 respuestas
AHI TE VA UN EJEMPLO, TENGO UTILIZANDO LOS CONTROLES, COMBOBOX, COMMAND Y UN TEXT
Private Sub Command1_Click()
Dim a As String
a = Combo1.Text
Select Case a
Case "LACTEOS"
Text1.Text = 1
Case "FRUTAS"
Text1.Text = 2
Case "VERDURAS"
Text1.Text = 3
Case "BOTANA"
Text1.Text = 4
Case "CARNES"
Text1.Text = 5
Case "ENLATADOS"
Text1.Text = 6
End Select
End Sub
Private Sub Command1_Click()
Dim a As String
a = Combo1.Text
Select Case a
Case "LACTEOS"
Text1.Text = 1
Case "FRUTAS"
Text1.Text = 2
Case "VERDURAS"
Text1.Text = 3
Case "BOTANA"
Text1.Text = 4
Case "CARNES"
Text1.Text = 5
Case "ENLATADOS"
Text1.Text = 6
End Select
End Sub
23 feb 2012 a las 17:23
1 may 2012 a las 23:27