Ver Mensaje Individual
  #3 (permalink)  
Antiguo 07/01/2008, 04:41
NRLABS
 
Fecha de Ingreso: febrero-2002
Ubicación: Chile
Mensajes: 1.573
Antigüedad: 23 años, 2 meses
Puntos: 2
Re: GotFocus,LostFocus, Multplies cambios (VB6)

Segun tu idea tendria que ser asi.
Y funciona perfecto!.
Solo que, tener diferentes tipos de controles en un array
se me complica a la hora de trabajar.

pero lo pensaré

Código PHP:
Option Explicit
Private Sub Text1_GotFocus(Index As Integer)
Text1(Index).BackColor = &H80FFFF


End Sub

Private Sub Text1_LostFocus(Index As Integer)
Dim a As Object
For Each a In Text1()
a.BackColor = &HFFFFFF
Next a
End Sub 

Agradezco tu consejo revija.

.......

Edit:
Se me ocurrio otra cosa.

Usando tu idea más

Agregar un modulo
Escribir
Código PHP:
Option Explicit
Public txtdireccion As Object //tambien podria ser en el mismo from.. arriba. 
Y en el formulario
Código PHP:
Public Sub Form_Activate() //o form_load()


Set txtdireccion Text1(0)
//etc.. uno por cada textbox de mi array
End Sub 
Renombro las variables... y puedo acceder como si no estubiesen en una matriz.


Gracias por tu ayuda.

Última edición por NRLABS; 07/01/2008 a las 04:57