Tema: Sumar Valores En Una Caja De Texto
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 24/08/2007, 13:42
ReViJa
 
Fecha de Ingreso: abril-2007
Mensajes: 187
Antigüedad: 17 años
Puntos: 1
Re: Sumar Valores En Una Caja De Texto
No te comprendo muy bien pero esto te puede servir de orientación:

Código: 
Private Sub Form_Load()
Text1.Tag = "0"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  Text1.Text = Val(Text1.Text) + Val(Text1.Tag)
  Text1.Tag = Text1.Text
  Text1.SelLength = Len(Text1.Text)
End If

End Sub