IBM Lotus Symphony


Programmeringseksempler til kontrolelementer i dialogbokseditor

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

Advarselsikon Du skal bruge store og små bogstaver konsekvent, når du knytter et kontrolelement til en objektvariabel.

Global funktion til indlæsning af dialogbokse

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

Visning af en dialogboks

REM Global definition af variabler

Dim oDialog1 As Object

Sub StartDialog1

BasicLibraries.LoadLibrary("Tools")

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

oDialog1.Execute()

End Sub

Læsning eller redigering af kontrolelementers egenskaber i program

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

Tilføjelse af en indgang til en liste

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

Fjernelse af en indgang fra en liste

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


Produktfeedback | Yderligere dokumentation | Varemærker