Visual Basic - Ayuda ...Auxilio

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda ...Auxilio

Publicado por Juan Carlos (3 intervenciones) el 15/06/2010 17:03:10
Saludos a todos Solicito su ayuda, el caso es que necesito hacer un contador SIN UTILIZAR UN BOTON QUE EJECUTE LA SUMA me explico TEXT1 + TEXT 2 = X ....lo que quiero hacer es si en el text2 existe un valor (ejemplo: 2) y yo introdusco un valor en text1 este se sume automaticamente y me muestre el valor sumado a una etiqueta ... ya lo hice pero con un boton ... Pregunto sera posible lograr esto....
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:Ayuda ...Auxilio

Publicado por Julio (72 intervenciones) el 15/06/2010 17:32:25
Utiliza en KeyPress del Text2

Private Sub Text2_KeyPress(KeyAscii As Integer)
'*
Dim valor1 As Single
Dim valor2 As Single
Dim total As Single
'*

If KeyAscii = 13 Then
valor1 = CSng(Text1.Text)
valor2 = CSng(Text2.Text)
total = CSng(valor1 + valor2)
Label1.Caption = CSng(total)
End If

End Sub

OSEA INGRESA UN VALOR EN LA CAJA DE TEXTO1 Y LUEGO EN LA CAJA DE TEXTO2 Y EN LA CAJA DE TEXTO2 PRESIONA ENTER Y TE LO VA A SUMAR Y MOSTRAR EN EN LABEL1

LA OPERACION SE REALIZA AL PRESIONAR ENTER EN LA CAJA DE TEXTO2

SALUDOS JULIO !!!!
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

RE:Ayuda ...Auxilio

Publicado por wilman garcia (7 intervenciones) el 15/06/2010 18:03:33
Que onda mano hacelo con el lost focus del text donde colocas el valor y que verifique el otro valor del text que queres verificar sin un boton. cuarquier cosa escribime te puedo ayudar.
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

RE:Ayuda ...Auxilio

Publicado por juan carlos (518 intervenciones) el 18/06/2010 06:17:58
Hola Juan Carlos
La idea es que pongas la cantidad a sumar en el text1 y teclees la otra cantidad a sumar en el text2 y des enter en el text2

usa este codigo en el evento keypress del text2

Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim a As Single
Dim b As Single
If KeyAscii = 13 Then 'Si se presiona Enter se suman el text2 al text1
a = Text1
b = Text2
suma = a + b
Label1 = suma
Text2.Text = ""
Else
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