IBM Lotus Symphony
|
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.
![]() |
Podczas dołączania elementu sterującego do zmiennej obiektu należy konsekwentnie stosować wielkie i małe litery w nazwach. |
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
rem globalna definicja zmiennych
Dim oOkno1 AS Object
Sub OtworzOkno1
BasicLibraries.LoadLibrary("Tools")
oOkno1 = LoadDialog("Standard", "Dialog1")
oOkno1.Execute()
end sub
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
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
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