IBM Lotus Symphony


Przykłady programowania elementów sterujących w edytorze okien dialogowych

Poniższe przykłady dotyczą nowego okna dialogowego o nazwie "Dialog1". Korzystając z narzędzi dostępnych na pasku Panel narzędzi edytora okien dialogowych, można utworzyć okno dialogowe i dodać do niego następujące elementy sterujące: pole wyboru o nazwie CheckBox1, pole etykiety o nazwie Label1, przycisk o nazwie CommandButton1 i pole listy o nazwie ListBox1.

Ikona Ostrzeżenie Podczas dołączania elementu sterującego do zmiennej obiektu należy konsekwentnie stosować wielkie i małe litery w nazwach.

Globalna funkcja ładowania okien dialogowych

Function LadujOkno(NazwaBibl as String, NazwaOkna as String, Optional oKontenerBibl)

Dim oBibl as Object

Dim oOknoBibl as Object

Dim oOkno as Object

If IsMissing(oKontenerBibl ) then

oKontenerBibl = DialogLibraries

End If

oKontenerBibl.LoadLibrary(NazwaBibl)

oBibl = oKontenerBibl.GetByName(NazwaBibl)

oOknoBibl = oBibl.GetByName(NazwaOkna)

oOkno = CreateUnoDialog(oOknoBibl)

LoadDialog() = oOkno

End Function

Wyświetlanie okna dialogowego

rem globalna definicja zmiennych

Dim oOkno1 AS Object

Sub OtworzOkno1

BasicLibraries.LoadLibrary("Tools")

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

oOkno1.Execute()

end sub

Odczytywanie lub edytowanie właściwości elementów sterujących w programie

Sub Przyklad1

BasicLibraries.LoadLibrary("Tools")

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

REM pobierz model okna dialogowego

oModelOkna1 = oOkno1.Model

REM wyświetl tekst elementu sterującego Label1

oLabel1 = oOkno1.GetControl("Label1")

MsgBox oLabel1.Text

REM ustaw nowy tekst dla elementu sterującego Label1

oLabel1.Text = "Nowe pliki"

REM wyświetl właściwości modelu dla elementu sterującego CheckBox1

oCheckBox1Model = oModelOkna1.CheckBox1

MsgBox oCheckBox1Model.Dbg_Properties

REM ustaw nowy status dla modelu elementu sterującego CheckBox1

oCheckBox1Model.State = 1

REM wyświetl właściwości modelu dla elementu sterującego CommandButton1

oCMD1Model = oModelOkna1.CommandButton1

MsgBox oCMD1Model.Dbg_Properties

REM wyświetl właściwości elementu sterującego CommandButton1

oCMD1 = oOkno1.GetControl("CommandButton1")

MsgBox oCMD1.Dbg_Properties

REM uruchom okno dialogowe

oOkno1.Execute()

End Sub

Dodawanie pozycji do elementu sterującego ListBox

Sub DodajWpis

BasicLibraries.LoadLibrary("Tools")

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

REM dodaje nowy wpis do elementu sterującego ListBox

oModelOkna1 = oOkno1.Model

oListBox = oOkno1.GetControl("ListBox1")

dim iLicznik as integer

iLicznik = oListbox.ItemCount

oListbox.additem("Nowa pozycja" & iLicznik,0)

end sub

Usuwanie pozycji z elementu sterującego ListBox

Sub UsunWpis

BasicLibraries.LoadLibrary("Tools")

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

REM usuwa pierwszy wpis z elementu sterującego ListBox

oModelOkna1 = oOkno1.Model

oListBox = oOkno1.GetControl("ListBox1")

oListbox.removeitems(0,1)

end sub


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe