¿AYUDA!! 10 puntos! es urgente!!!?
Hola! estoy haciendo una calculadora en Visual Basic 6.0, totas la teclas de manera individual, es decir, boton por botón. Además le agregué uno que al apretarlo me lleva el resultado a un text.
Lo que quiero saber es:
¿Cómo hago para que en lugar de tener que ir con el mouse y dar click sobre el +, al apretar el + del teclado ya me lo ponga??
Sé que se puede hacer con el keypress pero no tengo idea cómo.
Espero que me puedan ayudar. Gracias!
Private Sub Command20_Click()
If (num1 = 0) Then
MsgBox ("No se realizo una operación")
Else
num2 = Text5
If op = "+" Then
Text5 = num1 + num2
End If
If op = "-" Then
Text5 = num1 - num2
End If
If op = "/" Then
Text5 = num1 / num2
End If
If op = "*" Then
Text5 = num1 * num2
End If
End If
Private Sub Command23_Click()
Text5 = Text5 & ","
End Sub
Private Sub Command3_Click()
Text5 = Text5 & 3
End Sub
Private Sub Command4_Click()
Text5 = Text5 & 4
End Sub
Private Sub Command5_Click()
Text5 = Text5 & 5
End Sub
Private Sub Command6_Click()
Text5 = Text5 & 6
End Sub
Private Sub Command7_Click()
Text5 = Text5 & 7
End Sub
Private Sub Command8_Click()
Text5 = Text5 & 8
End Sub
Private Sub Command9_Click()
Text5 = Text5 & 9
End Sub
Private Sub Command13_Click()
num1 = Text5
Text5 = ""
op = "+"
Text5.SetFocus
End Sub
Private Sub Command14_Click()
num1 = Text5
Text5 = ""
op = "-"
Text5.SetFocus
End Sub
Private Sub Command15_Click()
num1 = Text5
Text5 = ""
op = "*"
Text5.SetFocus
End Sub
Private Sub Command16_Click()
num1 = Text5
Text5 = ""
op = "/"
Text5.SetFocus
End Sub
Private Sub Command1_Click()
Text5 = Text5 & 1
End Sub
Private Sub Command10_Click()
Text5 = Text5 & 0
End Sub
Private Sub Command11_Click()
Text5 = clean
Text5.SetFocus
End Sub
Private Sub Command12_Click()
Text2 = Command12
End Sub
Comments
muy largo