Visual Basic - keypress en un if

Life is soft - evento anual de software empresarial
 
Vista:

keypress en un if

Publicado por gervi cana (2 intervenciones) el 05/09/2009 03:49:15
nese sito hacer funcionar un if al presionar un tecla
por ejemplo la tecla de sumar qeu al presionarla
active un if y sume dos numeros
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:keypress en un if

Publicado por juan carlos (518 intervenciones) el 05/09/2009 21:56:02
hola gervi, espero que uno de estos codigos sirvan a tu projecto
==============================================
primer codigo(necesita un text1)
si en el text1 presionas + llama al proceso
==============================================
Private Sub Text1_KeyPress(KeyAscii As Integer)
' si presiona el signo + va al proceso
If KeyAscii = 43 Then proceso
End Sub

Sub proceso()
res = MsgBox("Sumarlos si o cancelar", 20, "Mensage")
Select Case res
Case 6
Dim a As Integer
Dim b As Integer
Dim c As Integer

a = 234
b = 456

c = a + b
MsgBox c
Case 7
Exit Sub
End Select
End Sub
==============================================
segundo codigo(necesita un text1,text2.text3)
si en el text2 presionas la tecla + suma o resta dependiendo del numero
es el del if que dices
==============================================
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 43 Then procesoif
End Sub

Sub procesoif()
Dim a As Double
Dim b As Double
a = Text1
b = Text2
If (Text2 = "") Or (Text3 = "") Then Exit Sub
If Text2 > 5 Then
Text4.Text = (a + b)
Exit Sub
Else
Text3.Text = (a - b)
Exit Sub
End If
End Sub
==============================================
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar