¡MUCHAS GRACIAS!
El ejemplo que me mandaste me ha servido mucho. He creado el siguiente código
para cargar un listbox basado en un combre de dialogo y de objeto listbox que
se le pasa a una función. Estoy probando para crear librerías estándares. Que
conste que soy un novato y estoy experimentando.
He creado Módulos distintos para generar uno para trabajar con ListBox, otro
para Dialogos, etc.
Ejemplo código:
Librería: [Mis macros y diálogos].Standard
-------------------------------------------
Módulo: Module1
Sub Main
Dim Dlg as Object
Dim ListBox as Object
Dlg = Rellenar_ListBox("Dialog1","ListBox1")
Dlg.Execute()
End Sub
----------------------------------------------
Módulo: Cargar_Dialogo
'Funcion para cargar un cuadro de dialogo en memoria
Function CargarDialogo(ByVal Nombre As String) As Object
DialogLibraries.LoadLibrary("Standard")
CargarDialogo =
CreateUnoDialog(DialogLibraries.Standard.getByName(Nombre)
End Function
-----------------------------------------------
Módulo: ListBoxes
Sub Rellenar_ListBox(ByVal Dialog as String, ByVal ListBox as String) as Object
Dim Dlg as Object
Dim oListBox as Object
Dlg = LoadDialog("Standard", Dialog)
oListBox = Dlg.getControl(ListBox)
For co1 = 0 To 9
oListBox.addItem("Dato " & co1+1, co1)
Next co1
Rellenar_ListBox = Dlg
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
