Spanish with events EditTex

[aviario]

Hola, hay alguna forma de tener with events?, tengo un pantalla de entrada de datos con muchos EditTex y tengo que controlar el número de caracteres que se introducen y lo controlo en el TextChanged pero tengo que escribir mucho código por eso si tuviera with events o algo parecido me vendria fenomenal

un saludo
Paco

 

[vampirbcn]

Otra solución que deberia funcionar (Con EditText no lo he probado pero seguro que funciona):

Creas los EditText al vuelo:

Dim elText As EditText
elText.Initialize("EventText") ' le asignas el evento comun
elText.Tag="Nombre"
Panel1.AddView(elText,x,y,width,height)
elText.Initialize("EventText") ' le asignas el evento comun
elText.Tag="Apellidos"
Panel1.AddView(elText,x,y,width,height)

Luego creas el sub que controle el evento TextChanged de todos los edittext creados.

Sub EventText_TextChanged (Old As String, New As String)

< (puedes utilizar el Tag de los EditText, GetView del Panel y RequestFocus para saber que EditText estas controlado)>

End Sub

 

[aviario]

Otra solución que deberia funcionar (Con EditText no lo he probado pero seguro que funciona):

Creas los EditText al vuelo:




Luego creas el sub que controle el evento TextChanged de todos los edittext creados.

Gracias funciona perfectamente

un saludo
Paco