Exemplos de programación de campos de control nel Editor de diálogos

From LibreOffice Help
Jump to: navigation, search

Los siguientes exemplos aplicar a un nuevu diálogu llamáu "Dialog1". Utilice les ferramientes de la barra Cuadru de ferramientes del editor de diálogos pa crear el diálogu y amestar los controles siguientes: una caxellu de verificación denominada "Casillaverificación1", un campu d'etiqueta denomináu "Etiqueta1", un botón denomináu "Botóncomandu1" y un cuadru de llista denomináu "Cuadrulista1".

Warning.png Utilice siempres el mesmu patrón de mayúscules y minúscules cuando axunte un campu de control a una variable d'oxetu.

Función global pa cargar diálogos

Function LoadDialog(Libname as String, DialogName as String, Optional 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

Amosar un diálogu

REM definición global de variables
Dim oDialog1 AS Object
Sub StartDialog1
    BasicLibraries.LoadLibrary("Tools")
    oDialog1 = LoadDialog("Standard", "Dialog1")
    oDialog1.Execute()
End Sub

Lleer o editar propiedaes de los campos de control nel programa

Sub Sample1
    BasicLibraries.LoadLibrary("Tools")
    oDialog1 = LoadDialog("Standard", "Dialog1")
REM llograr modelu de diálogu
    oDialog1Model = oDialog1.Model
REM amosar testu de Label1
    oLabel1 = oDialog1.GetControl("Label1")
    MsgBox oLabel1.Text
REM establecer testu nuevu pal campu de control Label1
oLabel1.Text = "Ficheros nuevos"
REM amosar propiedaes de modelu pal campu de control CheckBox1
    oCheckBox1Model = oDialog1Model.CheckBox1
    MsgBox oCheckBox1Model.Dbg_Properties
REM establecer estáu nuevu pa CheckBox1 pa modelu del campu de control
    oCheckBox1Model.State = 1
REM amosar propiedaes de modelu pal campu de control CommandButton1
    oCMD1Model = oDialog1Model.CommandButton1
    MsgBox oCMD1Model.Dbg_Properties
REM amosar propiedaes del campu de control CommandButton1
    oCMD1 = oDialog1.GetControl("CommandButton1")
    MsgBox oCMD1.Dbg_Properties
REM executar diálogu
    oDialog1.Execute()
End Sub

Amestar una entrada a un cuadru de llista

Sub AddEntry
    BasicLibraries.LoadLibrary("Tools")
    oDialog1 = LoadDialog("Standard", "Dialog1")
REM amiesta una entrada nueva al cuadru de llista
    oDialog1Model = oDialog1.Model
    oListBox = oDialog1.GetControl("ListBox1")
    Dim iCount as integer
    iCount = oListbox.ItemCount
oListbox.additem("Nuevu elementu" & iCount,0)
End Sub

Desaniciar una entrada d'un cuadru de llista

Sub RemoveEntry
    BasicLibraries.LoadLibrary("Tools")
    oDialog1 = LoadDialog("Standard", "Dialog1")
REM desaniciar la primer entrada del cuadru de llista
    oDialog1Model = oDialog1.Model
    oListBox = oDialog1.GetControl("ListBox1")
    oListbox.removeitems(0,1)
End Sub

Related Topics

Cambéu de les propiedaes de los campos de control nel Editor de diálogos

Crear un diálogu de Basic

Creación de campos de control nel Editor de diálogos

Amosar un diálogu usando códigu de programa