 
			
				05/02/2010, 16:17
			
			
			     |  
      |    |    |    Fecha de Ingreso: febrero-2010  
						Mensajes: 1
					  Antigüedad: 15 años, 8 meses Puntos: 0     |        |  
        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           |