Ver Mensaje Individual
  #1 (permalink)  
Antiguo 05/02/2010, 16:17
chatux
 
Fecha de Ingreso: febrero-2010
Mensajes: 1
Antigüedad: 14 años, 2 meses
Puntos: 0
De acuerdo como puedo sumar en un evento textchangedde un textbo

lo k tengo es una aploacion donde coloco valores ya sean negativo o positivos
en varios textbox, y automaticamente se debe calcular la suma en otro textbox
mientras estoy digitando en otro.

A modo de ejemplo: tengo 3 textbox text1, text2 y text3
cuando digifto en text1 se debe de star mostrando el resulatdo de text1 y text 2
el text3.

este es el codigo de la verdadder aplicacion:

Sub CalcularTrasposicion()
Me.txtCilindroOD.Text = 0 : Me.txtCilindroOD.Text = 0 : Me.txtEjeOD.Text = 0
If Not (Me.txtEsferaOD.Text = "" Or Me.txtCilindroOD.Text = "" Or Me.txtEjeOD.Text = "") Then
If Mid(Me.txtEsferaOD.Text, 1, 1) = "-" Then
'evalue si tiene el signo menos
Me.txtEsferaOD.Text += Me.txtEsferaOD.Text
End If
If Mid(Me.txtCilindroOD.Text, 1, 1) = "-" Then
'evalue si tiene el signo menos
Me.txtCilindroOD.Text += Me.txtCilindroOD.Text
End If
Me.txtTrasEsfOD.Text = CDbl(Me.txtEsferaOD.Text) + CDbl(Me.txtCilindroOD.Text)
Me.txtTrasCilOD.Text = 0 - CDbl(Me.txtCilindroOD.Text)
Select Case CInt(Me.txtEjeOD.Text)
Case Is < 90 : Me.txtTrasEjeOD.Text = CDbl(Me.txtEjeOD.Text) + 90
Case Is > 90 : Me.txtTrasEjeOD.Text = CDbl(Me.txtEjeOD.Text) + 90
Case Is = 90 : Me.txtTrasEjeOD.Text = CStr(CDbl(Me.txtEjeOD.Text) + 90) & " ó " & CStr(CDbl(Me.txtEjeOD.Text) - 90)
End Select
Else
Exit Sub
Me.txtEsferaOD.Focus()
End If
End Sub


Private Sub txtEsferaOD_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEsferaOD.TextChanged, _
'txtCilindroOD.TextChanged, txtCilindroOI.TextChanged, txtEjeOD.TextChanged, txtEjeOI.TextChanged, txtEsferaOI.TextChanged
' Call CalcularTrasposicion()
'End Sub