Module
Contenu
Index 🔎︎

# Exemples de programmation pour les contrôles dans l'éditeur de boîte de dialogue

Les exemples suivants se réfèrent à une nouvelle boîte de dialogue appelée "Dialog1". Utilisez les outils de la barre de contrôles dans l'éditeur de boîte de dialogue pour créer la boîte de dialogue et les contrôles suivants : une case à cocher appelée "CheckBox1", un champ d'étiquettes appelé "Label1", un bouton appelé "CommandButton1", et une zone de Liste appelée "ListBox1".

Respectez la casse lorsque vous joignez un contrôle à une variable d'objet.

### Fonctions globales pour le chargement des boîtes de dialogue

    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

### Affichage d'une boîte de dialogue

    REM définition globale de variables

    Dim oDialog1 AS Object

    Sub StartDialog1

        BasicLibraries.LoadLibrary("Tools")

        oDialog1 = LoadDialog("Standard", "Dialog1")

        oDialog1.Execute()

    End Sub

### Lecture ou édition des propriétés des contrôles dans le programme

    Sub Sample1

        BasicLibraries.LoadLibrary("Tools")

        oDialog1 = LoadDialog("Standard", "Dialog1")

        REM Obtenir un modèle de boîte de dialogue

        oDialog1Model = oDialog1.Model

        REM Afficher le texte de Label1

        oLabel1 = oDialog1.GetControl("Label1")

        MsgBox oLabel1.Text

        REM Définir un nouveau texte pour le contrôle Label1

        oLabel1.Text = "Nouveaux fichiers"

        REM Afficher les propriétés du modèle pour le contrôle CheckBox1

        oCheckBox1Model = oDialog1Model.CheckBox1

        MsgBox oCheckBox1Model.Dbg_Properties

        REM Définir un nouveau statut pour CheckBox1 pour le modèle de contrôle

        oCheckBox1Model.State = 1

        REM Afficher les propriétés du modèle pour le contrôle CommandButton1

        oCMD1Model = oDialog1Model.CommandButton1

        MsgBox oCMD1Model.Dbg_Properties

        REM Afficher les propriétés du contrôle CommandButton1

        oCMD1 = oDialog1.GetControl("CommandButton1")

        MsgBox oCMD1.Dbg_Properties

        REM Exécuter la boîte de dialogue

        oDialog1.Execute()

    End Sub

### Ajout d'une entrée à ListBox

    Sub AddEntry

        BasicLibraries.LoadLibrary("Tools")

        oDialog1 = LoadDialog("Standard", "Dialog1")

        REM Ajouter une nouvelle entrée au contrôle ListBox

        oDialog1Model = oDialog1.Model

        oListBox = oDialog1.GetControl("ListBox1")

        Dim iCount as integer

        iCount = oListbox.ItemCount

        oListbox.additem("Nouvel élément" & iCount,0)

    End Sub

### Suppression d'une entrée du contrôle ListBox

    Sub RemoveEntry

        BasicLibraries.LoadLibrary("Tools")

        oDialog1 = LoadDialog("Standard", "Dialog1")

        REM Supprimer la première entrée du contrôle ListBox

        oDialog1Model = oDialog1.Model

        oListBox = oDialog1.GetControl("ListBox1")

        oListbox.removeitems(0,1)

    End Sub

Rubriques connexes

Modification des propriétés des contrôles dans l'éditeur de boîte de dialogue

Création d'une boîte de dialogue Basic

Création de contrôles dans l'éditeur de boîte de dialogue

Affichage d'une boîte de dialogue utilisant le code de programme