Module
Contents
Index 🔎︎

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

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".

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

Temes rellacionaes

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