IBM Lotus Symphony


Príklady programovania ovládacích prvkov v editore dialógových okien

Nasledujúce príklady sa týkajú nového dialógového okna s názvom "Dialog_1". V editore dialógových okien používajte lištu Panel nástrojov na vytvorenie dialógového okna a na pridanie nasledujúcich ovládacích prvkov: Začiarkovacie políčko s názvom "CheckBox1", Pole návestia s názvom "Label1", Tlačidlo s názvom "CommandButton1" a Výberový zoznam s názvom "ListBox1".

Ikona upozornenia Keď pripájate ovládací prvok k objektovej premennej dávajte pozor na písanie veľkých a malých písmen.

Globálna funkcia pre zavádzanie dialógov

Funkcia LoadDialog(Libname ako typ String, DialogName ako typ String, Optional oLibContainer)

Dim oLib ako typ Object

Dim oLibDialog ako typ Object

Dim oRuntimeDialog ako typ 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

Zobrazenie dialógového okna

rem globálna definícia premenných

Dim oDialog1 ako typ Object

Sub StartDialog1

BasicLibraries.LoadLibrary("Nastroje")

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

oDialog1.Execute()

end sub

Vlastnosti čítania alebo úpravy ovládacích prvkov v programe

Sub Sample1

BasicLibraries.LoadLibrary("Nastroje")

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

REM získanie modelu dialógového okna

oDialog1Model = oDialog1.Model

REM zobrazenie textu pre Label1

oLabel1 = oDialog1.GetControl("Label1")

MsgBox oLabel1.Text

REM vloženie nového textu pre ovládací prvok Label1

oLabel1.Text = "Nove subory"

REM zobrazenie vlastnosti modelu pre ovládací prvok CheckBox1

oCheckBox1Model = oDialog1Model.CheckBox1

MsgBox oCheckBox1Model.Dbg_Properties

REM nastavenie nového stavu pre políčko CheckBox1 pre model ovládacieho prvku

oCheckBox1Model.State = 1

REM zobrazenie vlastnosti modelu pre ovládací prvok CommandButton1

oCMD1Model = oDialog1Model.CommandButton1

MsgBox oCMD1Model.Dbg_Properties

REM zobrazenie vlastnosti ovládacieho prvku CommandButton1

oCMD1 = oDialog1.GetControl("CommandButton1")

MsgBox oCMD1.Dbg_Properties

REM otvorenie dialógového okna

oDialog1.Execute()

End Sub

Pridanie položky do poľa so zoznamom

Sub AddEntry

BasicLibraries.LoadLibrary("Nastroje")

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

REM pridáva sa nová položka do poľa so zoznamom ListBox

oDialog1Model = oDialog1.Model

oListBox = oDialog1.GetControl("ListBox1")

dim iCount as integer

iCount = oListbox.ItemCount

oListbox.additem("New Item" & iCount,0)

end sub

Odstránenie položky z poľa so zoznamom

Sub RemoveEntry

BasicLibraries.LoadLibrary("Nastroje")

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

REM odstráňte prvú položku z poľa so zoznamom ListBox

oDialog1Model = oDialog1.Model

oListBox = oDialog1.GetControl("ListBox1")

oListbox.removeitems(0,1)

end sub


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky