Autor
pues va asiCódigo:
Dim i As Integer
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
If Text1.Text = "mar1" And Text2.Text = "mar1" Then
MsgBox "Bienvenido a mi sistema"
Else
i = i - 1
Select Case i
Case 0
vez = "ninguna"
Case 1
vez = "una primera"
Case 2
vez = "una segunda"
End Select
End If
End Sub
Pues le doy el comand1 pero con el text1.text= "mar1" y igual con el text2 y me sale el mensaje de bienvenido al sistema y si en el text1 y text2 coloco otro palabras, no sale nada
. Pues creo que ya esta. Pero mi duda es para que esto?Código:
i = i - 1
Select Case i
Case 0
vez = "ninguna"
Case 1
vez = "una primera"
Case 2
vez = "una segunda"
En línea
:laugh:
