IBM Lotus Symphony
|
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".
![]() |
Utilice siempre el mismo patrón de mayúsculas y minúsculas cuando anexe un control a una variable de objeto. |
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
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
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
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
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