IBM Lotus Symphony


Exemples de programmation pour les éléments de contrôle 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 Boîte à outils dans l'éditeur de boîte de dialogue pour créer la boîte de dialogue et ajouter les éléments de contrôle suivants : une Case à cocher appelée "CheckBox1", un Zone de libellé appelé "Label1", un Bouton appelé "CommandButton1" et une Zone de liste appelée "ListBox1".

Icône Avertissement Respectez la casse lorsque vous joignez un élément de 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("Outils")

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

oDialog1.Execute()

end sub

Lecture ou édition des propriétés des éléments de contrôle dans le programme

Sub Sample1

BasicLibraries.LoadLibrary("Outils")

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 l'élément de contrôle CheckBox1

oCheckBox1Model = oDialog1Model.CheckBox1

MsgBox oCheckBox1Model.Dbg_Properties

REM Définir un nouvel état pour CheckBox1 pour le modèle d'élément de contrôle

oCheckBox1Model.State = 1

REM Afficher les propriétés du modèle pour l'élément de contrôle CommandButton1

oCMD1Model = oDialog1Model.CommandButton1

MsgBox oCMD1Model.Dbg_Properties

REM Afficher les propriétés de l'élément de 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("Outils")

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

REM Ajouter une nouvelle entrée à l'élément de 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 de l'élément de contrôle ListBox

Sub RemoveEntry

BasicLibraries.LoadLibrary("Outils")

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

REM Supprimer la première entrée de l'élément de contrôle ListBox

oDialog1Model = oDialog1.Model

oListBox = oDialog1.GetControl("ListBox1")

oListbox.removeitems(0,1)

end sub


Commentaires en retour sur le produit | Documentation complémentaire | Marques