IBM Lotus Symphony
|
I følgende eksempler bruges en ny dialogboks ved navn "Dialog1". Opret dialogboksen ved hjælp af værktøjerne på linjen værktøjskasse i dialogbokseditoren, og tilføj følgende kontrolelementer: Et afkrydsningsfelt ved navn "Afkrydsningsfelt1", et etiketfelt ved navn "Etiket1", en knap ved navn "KommandoKnap1" og en liste ved navn "Liste1".
![]() |
Du skal bruge store og små bogstaver konsekvent, når du knytter et kontrolelement til en objektvariabel. |
Function LoadDialog(BibNavn As String, DialogNavn As String, Optional oBibOpbevaring)
Dim oBib As Object
Dim oBibDialog 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 Global definition af variabler
Dim oDialog1 As Object
Sub StartDialog1
BasicLibraries.LoadLibrary("Tools")
oDialog1 = LoadDialog("Standard", "Dialog1")
oDialog1.Execute()
End Sub
Sub Eksempel1
BasicLibraries.LoadLibrary("Tools")
oDialog1 = LoadDialog("Standard", "Dialog1")
REM Hent dialogboksmodel
oDialog1Model = oDialog1.Model
REM Vis tekst til Etiket1
oEtiket1 = oDialog1.GetControl("Etiket1")
MsgBox oEtiket1.Text
REM Definér ny tekst til kontrolelementet Etiket1
oEtiket1.Text = "Nye filer"
REM Vis modelegenskaber for kontrolelementet Afkrydsningsfelt1
oAfkrydsningsfelt1Model = oDialog1Model.Afkrydsningsfelt1
MsgBox oAfkrydsningsfelt11Model.Dbg_Properties
REM Definér ny tilstand for modelkontrolelementet Afkrydsningsfelt1
oAfkrydsningsfelt1Model.State = 1
REM Vis modelegenskaber for kontrolelementet Kommandoknap1
oKMD1Model = oDialog1Model.Kommandoknap1
MsgBox oKMD1Model.Dbg_Properties
REM Vis egenskaber for kontrolelementet Kommandoknap1
oKMD1 = oDialog1.GetControl("Kommandoknap1")
MsgBox oKMD1.Dbg_Properties
REM Udfør dialogboks
oDialog1.Execute()
End Sub
Sub TilfOpl
BasicLibraries.LoadLibrary("Tools")
oDialog1 = LoadDialog("Standard", "Dialog1")
REM Føj en ny indgang til listen
oDialog1Model = oDialog1.Model
oListBox = oDialog1.GetControl("ListBox1")
dim iCount as integer
iCount = oListbox.ItemCount
oListbox.additem("New Item" & iCount,0)
End Sub
Sub FjernOpl
BasicLibraries.LoadLibrary("Tools")
oDialog1 = LoadDialog("Standard", "Dialog1")
REM Fjern første indgang fra listen
oDialog1Model = oDialog1.Model
oListBox = oDialog1.GetControl("ListBox1")
oListbox.removeitems(0,1)
End Sub