RESPUESTA A LA PREGUNTA 1093 - VISUAL BASIC


Hola:
Espero que estos tips de Harvey Triana te puedan ayudar o dar una idea un poca más clara:

--------------------------------------------------------------------------------

#16. Hacer referencia a Control desde una expresión o variable

Para un control que no es una array es sencillo, p.e.:

Me.Controls("lblTitle").Caption = "Hola!"

Cuando el control es (pertenece) a un array de instancias, puede usar el siguiente procedimiento:

Private Function ArrayControl(Name As String, Index As Integer) As Control
Dim ctl As Control
On Error GoTo ErrHandler

For Each ctl In Me.Controls(Name)
If ctl.Index = Index Then
Set ArrayControl = ctl
Exit For
End If
Next
Exit Function

ErrHandler:
ArrayControl = Empty
End Function

Por ejemplo, tenemos un array de Label llamado lblArray, podriamos usar:

ArrayControl("lblArray", 1).Caption = "OKAY"

Advierto que la función ArrayControl usa enlace a posteriori, por lo tanto el rendimiento no es alto.


--------------------------------------------------------------------------------

#15. Cargar un formulario desde una expresión o variable

Por ejemplo:

Dim f As Form
Set f = Forms.Add("frmOptions")
f.Show vbModal

--------------------------------------------------------------------------------
Te recomiendo altamente su página:
http://www.eidos.es/VeXPERT/

Saludos y espero haberte ayudado.


Gerardo A. Mendoza
gmorca@iname.com