hacer dos subrutinas funciones publicas

Fernando
15 de Noviembre del 2003
Como puedo hacer de estas dos subrutinas funciones publicas para insertar en un modulo y poder utiliar en todo la aplicacion.

\'salta a la sisguiente caja de TExto al llegar a un numero de caracteres
Private Sub Text1_Change()
if Len(Trim(Texi1.text))>Tex1.MaxLength then
Text2.Setfocus
End If
End Sub

\'cambia el color del texto del textbox poniendo en amarillo
If TextBox4 = "" Then
TextBox4.BackColor = &HFFFF&
Else
TextBox4.BackColor = &H80000005
End If



Baltasar
15 de Noviembre del 2003
Creo que lo vas a tener complicado, ya que tendrías que poner, en cada evento de los textbox, una llamada a ese procedimiento o función. Luego está el problema de quien es el siguiente textbox, comprobar que realmente existe, etc etc.

Te aconsejo más usar un array de textbox, es la solución mejor. Tendrás un solo evento change, un solo evento keypress, etc etc. De ese modo podrás controlar muchas más cosas, y tu aplicación será más pequeña en cuanto a código.

De todos modos, si quieres continuar con la idea del sub público, tendrás que usar ActiveForm.ActiveControl, para saber en cada momento qué control estás "controloando". Yo lo uso mucho en una pequeña rutina que me selecciona todo el contenido de los textbox al hacer foco en ellos.

Saludos