IBM Lotus Symphony


Ejemplos de programación de campos de control en el Editor de diálogos

Los ejemplos siguientes son para un nuevo diálogo llamado "Diálogo1". Utilice las herramientas de la barra Caja de herramientas del editor de diálogos para crear el diálogo y agregar los controles siguientes: una Casilla de verificación denominado "CasillaVerificación1", un Campo de etiqueta denominado "Etiqueta1", un Botón denominado "BotónMandato1" y un Cuadro de lista denominado "CuadroLista1".

Icono de advertencia Utilice siempre el mismo patrón de mayúsculas y minúsculas cuando anexe un control a una variable de objeto.

Función global para cargar diálogos

Function LoadDialog(NombreLib as String, NombreDiálogo as String, Opcional oLibContainer)

Dim oLib as Object

Dim oLibDialog as Object

Dim oRuntimeDialog as Object

If IsMissing(oLibContainer ) then

oLibContainer = DialogLibraries

End If

oLibContainer.LoadLibrary(LibName)

oLib = oLibContainer.GetByName(Libname)

oLibDialog = oLib.GetByName(DialogName)

oRuntimeDialog = CreateUnoDialog(oLibDialog)

LoadDialog() = oRuntimeDialog

End Function

Visualización de un diálogo

rem definición global de variables

Dim oDiálogo1 AS Object

Sub StartDiálogo1

BasicLibraries.LoadLibrary("Tools")

oDiálogo1 = LoadDialog("Standard", "Diálogo1")

oDialog1.Execute()

end sub

Leer o editar propiedades de controles en el programa

Sub Ejemplo1

BasicLibraries.LoadLibrary("Tools")

oDiálogo1 = LoadDialog("Standard", "Diálogo1")

REM obtener modelo de diálogo

oDiálogo1Model = oDiálogo1.Model

REM mostrar texto de Etiqueta1

oEtiqueta1 = oDiálogo1.GetControl("Etiqueta1")

MsgBox oEtiqueta1.Text

REM establecer texto nuevo para el control Etiqueta1

oEtiqueta1.Text = "Archivos nuevos"

REM mostrar propiedades de modelo para el control CuadroComprobación1

oCuadroComprobación1Model = oDiálogo1Model.CuadroComprobación1

MsgBox oModeloCuadroComprobación1.Dbg_Properties

REM establecer estado nuevo para CuadroComprobación1 para modelo del control

oCuadroComprobación1Model.State = 1

REM mostrar propiedades de modelo para el control BotónMandato1

oModeloCMD1 = oDiálogo1Model.BotónMandato1

MsgBox oModeloCMD1.Dbg_Properties

REM mostrar propiedades del control BotónMandato1

oCMD1 = oDiálogo1.GetControl("BotónMandato1")

MsgBox oCMD1.Dbg_Properties

REM ejecutar diálogo

oDialog1.Execute()

End Sub

Añadir una entrada a un cuadro de lista

Sub AgregarEntrada

BasicLibraries.LoadLibrary("Tools")

oDiálogo1 = LoadDialog("Standard", "Diálogo1")

REM agrega una entrada nueva al cuadro de lista

oDiálogo1Model = oDiálogo1.Model

oListBox = oDialog1.GetControl("CuadroLista1")

dim iCount as integer

iCount = oListbox.ItemCount

oListbox.additem("Nuevo elemento" & iCount,0)

end sub

Eliminar una entrada de un Cuadro de lista

Sub EliminarEntrada

BasicLibraries.LoadLibrary("Tools")

oDiálogo1 = LoadDialog("Standard", "Diálogo1")

REM eliminar la primera entrada del cuadro de lista

oDiálogo1Model = oDiálogo1.Model

oListBox = oDialog1.GetControl("CuadroLista1")

oListbox.removeitems(0,1)

end sub


Comentarios del producto | Documentación adicional | Marcas registradas