Consulta también:
- The computer case is open. please make sure the computer case is closed properly
- Mi pc enciende pero no arranca y no me deja entrara a la bios - Foro de Windows
- This computer is locked because the boot certificate has expired - Foro Windows 8
- The realtek network controller was not found. if deep sleep mode is enabled please plug the cable - Foro de redes
- The legend of zelda ocarina of time rom español - Programas - Acción y aventuras
- A little to the left gratis - Programas - Puzles
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