Consulta también:
- Select case visual basic ejemplos
- Reboot and select proper boot device ✓ - Foro Software
- Error del sistema &h8000ffff visual basic - Guide
- Proyectos visual basic 6.0 ejemplos ✓ - Foro de programación
- Calculadora en visual basic ✓ - Foro de programación
- Visual foxpro - Guide
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