Hola, que bueno que sirvio...
Mauricio
P.D. TODOS somos novatos alguna vez...
On 4/3/06, [EMAIL PROTECTED] <[EMAIL PROTECTED]>
wrote:
>
> ¡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]
>
>
--
_______________________________
TODO LO QUE NO ES DADO ES PERDIDO
