18/03/2002, 13:05
|
| | | Fecha de Ingreso: marzo-2002
Mensajes: 3
Antigüedad: 23 años, 1 mes Puntos: 0 | |
| Re: ActiveX y Visual Basic
Me respondo a mí mismo la seguda pregunta.
Cuando genero un nuevo control lo he de guardar en una variable del tipo VBControlExtender
Dim WithEvents ctlDynamic As VBControlExtender
Y lo inicializaré de esta manera, por ejemplo en la función Form_Load()...
Licenses.Add "MSComctlLib.TreeCtrl" 'por ejemplo...
Set ctlDynamic = Controls.Add("MSComctlLib.TreeCtrl", "myctl", Me) 'metemos en el formulario un nuevo control treeview...
ctlDynamic.Move 1, 1, 2500, 3500 'para situarlo en un sitio en cuestion...
Y podremos controlar sus eventos con...
Private Sub ctlDynamic_ObjectEvent(Info As EventInfo)
If EventInfo.Name = "Click" Then
MsgBox("Has clicado con el ratón...") 'o lo que sea...
End If
'Aquí podríamos tratar el resto de eventos...
End Sub
Bueno. Ahora sólo me hace falta saber cómo puedo recoger el nombre de las clases de un componente o control ActiveX.
Gracias de nuevo!
Jose |