Stack Overflow en español

Alvaro Montoro

12:27 AM

@Mariano hola

Pedro Miguel Pimienta Morales

12:49 AM

@AlvaroMontoro que mas tiempo sin saludarte

Pedro Ávila

1:18 AM

@fredyfx heramno una consulta

@fredyfx quiero vincular varios controles txt a un solo evento textchanget

@fredyfx ¿como puedo crear un evento para manejar todos esos txt?

NaCl

1:37 AM

@AaronRomero No entendi.

Buenas a todos :^)

Pedro Ávila

@NaCl hola

Me puedes ayudar con algo

NaCl

@PedroÁvila Dime.

Pedro Ávila

@NaCl Necesito manejar unos test box con un solo evento

Protected Overrides Sub OnLeave(e As EventArgs)
MyBase.OnLeave(e)
dim res As Integer
Dim m As New Modelo
m.Valor1 = Int32.TryParse(txtValor1.Text, res)
m.Valor2 = Int32.TryParse(txtValor1.Text, res)
m.Valor3 = Int32.TryParse(txtValor1.Text, res)
m.Valor4 = Int32.TryParse(txtValor1.Text, res)

m.Resultado = Val(m.Valor1) + Val(m.Valor2) + Val(m.Valor3)
txtResultado.Text = m.Resultado

End Sub

NaCl

@PedroÁvila TextBox, dices?

Pedro Ávila

@NaCl si windows forms

NaCl

1:40 AM

@PedroÁvila VB.NET...

Por que no le pones Handles Txt1.OnLeave, Txt2.OnLeave y así...

Pedro Ávila

@NaCl La idea es que cuando el txtvalor1 pierda el foco me de lo que ingreso en el resultado y si ingreso un valor en el txt2 me de la suma en resultado asi sucesivamente

NaCl

@PedroÁvila Entonces cambia la firma del método.

Pedro Ávila

@NaCl Por cual

NaCl

Protected Overrides Sub OnLeave(sender As Object, e As EventArgs)

En la llamada a OnLeave el primer argumento debe ser el control que llama a la función, en este caso el TextBox

Y el segundo, los argumentos pasados por EventArgs

Luego modificas es Sub para determinar que hacer en caso de cada TextBox

Y le terminas agregando Handles TxtX.OnLeave, ... dependiendo de lo que quieras.

Aunque

Con la forma que lo realizas, con TryParse esta bien formulado, solo es agregarle el Handles MiTextBox.OnLeave, MiOtroTextBox.OnLeave, ... y así.

Pedro Ávila

Protected Overloads Sub OnLeave(sender As Object, e As EventArgs)
MyBase.OnLeave(e)
dim res As Integer
Dim m As New Modelo
m.Valor1 = Int32.TryParse(txtValor1.Text, res)
m.Valor2 = Int32.TryParse(txtValor1.Text, res)
m.Valor3 = Int32.TryParse(txtValor1.Text, res)
m.Valor4 = Int32.TryParse(txtValor1.Text, res)

m.Resultado = Val(m.Valor1) + Val(m.Valor2) + Val(m.Valor3)
txtResultado.Text = m.Resultado

End Sub

NaCl

1:48 AM

@PedroÁvila ?

Pedro Ávila

@NaCl No se activa el evento

NaCl

@PedroÁvila Porque no tienes el evento asignado a ningún control ...

Tienes que agregar el Handles, de lo contrario nunca se activara ...

Pedro Ávila

@NaCl Un ejemplo

NaCl

@PedroÁvila Se agrega en la definición: Protected Overloads Sub OnLeave(...) Handles MiTextbox.OnLeave, MiOtroTexBox.OnLeave y así.

Pedro Ávila

@NaCl Protected Overloads Sub OnLeave(sender As Object, e As EventArgs) Handles txtValor1.OnLeave

@NaCl No lo reconoce

NaCl

1:53 AM

@PedroÁvila Error de compilación?

@PedroÁvila Cambia OnLeave por Leave nomas.

Pedro Ávila

@NaCl Asi es

NaCl

@PedroÁvila Listo?

Pedro Ávila

@NaCl Listo

@NaCl Solo una consulta porque me sale con -3 si ingreso 3

Protected Overloads Sub OnLeave(sender As Object, e As EventArgs) Handles txtValor1.Leave,
txtValor2.Leave, txtValor3.Leave, txtValor4.Leave
MyBase.OnLeave(e)
dim res As Integer = 0
Dim m As New Modelo
m.Valor1 = Int32.TryParse(txtValor1.Text, res)
m.Valor2 = Int32.TryParse(txtValor1.Text, res)
m.Valor3 = Int32.TryParse(txtValor1.Text, res)
m.Valor4 = Int32.TryParse(txtValor1.Text, res)

m.Resultado = Val(m.Valor1) + Val(m.Valor2) + Val(m.Valor3)
txtResultado.Text = m.Resultado
End Sub

NaCl

@PedroÁvila Cual es el tipo de m.Valor1, 2 y 3?

Pedro Ávila

@NaCl valor1 3 los demas vacios

NaCl

1:58 AM

@PedroÁvila El tipo, Integer?

O Double?

Pedro Ávila

@NaCl Cuando ingrese el valor1 me debe mostrar ese valor en resultado y si agrego otro en el valor2 me de la suma en el resultado

@NaCl Decimal

NaCl