Manejar eventos y validaciones en Controles dinamicos

[CPCaba]

Hola a todos!

Estoy trabajando en un proyecto de VB6 y en un formulario tengo un grupo de controles que se generan dinamicamente con los que realizo determinados calculos, y necesito chequear los casos de cambio del contenido por el ususario (por ej: evento change ) y consecuentemente recalcular los resultados.

En definitiva no tengo idea como manejar los eventos de los controles dinamicos en VB6, (talvez con el uso de withEvents?)... Si alguien ha tenido alguna experiencia al respecto porfi: ayuda!!!

Desde ya muchas gracias !
Saludos
Cpcaba

[David]

Iniciado por CPCaba

Hola a todos!

Estoy trabajando en un proyecto de VB6 y en un formulario tengo un grupo de controles que se generan dinamicamente con los que realizo determinados calculos, y necesito chequear los casos de cambio del contenido por el ususario (por ej: evento change ) y consecuentemente recalcular los resultados.

En definitiva no tengo idea como manejar los eventos de los controles dinamicos en VB6, (talvez con el uso de withEvents?)... Si alguien ha tenido alguna experiencia al respecto porfi: ayuda!!!

Desde ya muchas gracias !
Saludos
Cpcaba

¿Cómo creas los controles dinámicos?. ¿Añadiendo a Me.Controls o usando Load?

[seba123neo]

Hola,algo asi???

Código:

Option Explicit
Private WithEvents MiPicture As PictureBox

Private Sub MiPicture_Click()
MsgBox "hiciste click en el picture creado"
End Sub

Private Sub Form_Load()
Set MiPicture = Controls.Add("VB.PictureBox", "MiPicture")
With MiPicture
.Visible = True
.top = top
.left = left
.Width = 500
.Height = 500
.BackColor = RGB(CInt(255 * Rnd), CInt(255 * Rnd), CInt(255 * Rnd))
End With
End Sub

saludos.

[CPCaba]

Seba123neo
... gracias! Me parece que eso es lo que estaba buscando, lo pongo en marcha y les cuento....
muchas gracias!!!
Saluditos

[CPCaba]

En respuesta a la pregunta de David.., en un bloque repetitivo voy creando en una variable (dim withevents ocontrol as textbox) una coleccion de textbox con Control.Add().

Ahora, el problema es que el evento ocontrol_change(), por ejemplo, lo ve en el ultimo elemento de la coleccion! y no contempla los eventos ocurridos en el resto de los textbox creados dinamicamente...

[David]

Según mi escaso conocimiento para que logres interceptar los eventos de cada uno de los TextBox debes declarar un nombre único para cada uno de ellos.
Las opciones que tienes es crear los textbox dinámicamente usando Load o asignando un nombre único para cada textbox añadido a Me.Controls...

[Txoco]

Hola!

David tiene razón, la única forma de poder controlar eventos para controles creados dinámicamente es crear uno en tiempo de diseño con la propiedad Index a cero y agregar los demás con Load para poder utilizar el parámetro Index en sus eventos.

Visual Basic no permite crear un array de controles con WithEvents, estas dos instrucciones dan error directamente en el editor:

Código:

Dim WithEvents MiPicture(5) As PictureBox ' Array de 5 controles, por ejemplo
Dim WithEvents MiPicture() As PictureBox ' Array dinámico

y el objeto Collection, directamente no admite el modificador WithEvents.

Si utilizas el código que ha pasado seba123neo, y no cambias el nombre del control (MiPicture en el ejemplo), estás asignando cada nuevo control a la misma variable, por eso sólo te funciona el último control creado.

[CPCaba]

Chicos!! Muchas Gracias, tenian razon (me estaba complicando demasiado) finalmente resulto mas simple usando texbox indexados y generando el array dinamicamente con load... todo parece funcionar bien.
Mil gracias por la ayuda.....
Hasta la proxima...!