IBM Lotus Symphony
|
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".
![]() |
Respectez la casse lorsque vous joignez un élément de contrôle à une variable d'objet. |
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
rem Définition globale de variables
Dim oDialog1 AS Object
Sub StartDialog1
BasicLibraries.LoadLibrary("Outils")
oDialog1 = LoadDialog("Standard", "Dialog1")
oDialog1.Execute()
end sub
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
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
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