IBM Lotus Symphony
|
Келесі мысалдар "Dialog1" деп аталған жаңа тілқатысу терезесі болып табылады. Тілқатысу терезесін жасау және келесі басқаруларды қосу үшін тілқатысу өңдеуіші ішіндегі Құралдар тақтасы жолағындағы құралдарды пайдаланыңыз: Құс белгі "CheckBox1" аталған, Жапсырма өрісі "Label1" аталған, Түймешік "CommandButton1" аталған және Тізімді жолақ "ListBox1" аталған.
![]() |
Басқаруды нысан айырмашылығына тіркеу кезіңізде, бас әріптермен және кіші әріптермен үйлесімді болыңыз. |
LoadDialog функциясы (Жол ретіндегі Libname, Жол ретіндегі DialogName, Оңтайлы oLibContainer)
Нысан ретіндегі oLib қарайту
Нысан ретіндегі oLibDialog қарайту
Нысан ретіндегі oRuntimeDialog қарайту
Егер IsMissing(oLibContainer ) онда
oLibContainer = DialogLibraries
Болса аяқтаңыз
oLibContainer.LoadLibrary(LibName)
oLib = oLibContainer.GetByName(Libname)
oLibDialog = oLib.GetByName(DialogName)
oRuntimeDialog = CreateUnoDialog(oLibDialog)
LoadDialog() = oRuntimeDialog
Аяқталу функциясы
айырмашылықтардың rem жалпы мағынасы
Нысан ретіндегі oDialog1 қарайту
Ішкі StartDialog1
BasicLibraries.LoadLibrary("Құралдар")
oDialog1 = LoadDialog("Standard", "Dialog1")
oDialog1.Орындау()
Аяқталу ішкі элементі
Қосалқы Sample1
BasicLibraries.LoadLibrary("Құралдар")
oDialog1 = LoadDialog("Standard", "Dialog1")
REM алу тілқатысу моделі
oDialog1Model = oDialog1.Model
REM 1Белгісінің мәтінін көрсету
oLabel1 = oDialog1.GetControl("Label1")
MsgBox oLabel1.Text
Басқару 1Белгісінің REM жинытық жаңа мәтіні
oLabel1.Мәтін = "Жаңа файлдар"
CheckBox1 басқарудың REM дисплей моделінің сипаттары
oCheckBox1Model = oDialog1Model.CheckBox1
MsgBox oCheckBox1Model.Dbg_Сипаттар
Басқару моделіне арналған CheckBox1 REM жиынтықтық жаңа күйі
oCheckBox1Model.Күй = 1
CommandButton1 басқарудың REM дисплей моделінің сипаттары
oCMD1Model = oDialog1Model.CommandButton1
MsgBox oCMD1Model.Dbg_Сипаттар
CommandButton1 бақраудың REM дисплей сипаттары
oCMD1 = oDialog1.GetControl("CommandButton1")
MsgBox oCMD1.Dbg_Сипаттар
REM әрекет тілқатысу терезесі
oDialog1.Орындау()
Аяқталу ішкі элементі
Ішкі элемент қосу
BasicLibraries.LoadLibrary("Құралдар")
oDialog1 = LoadDialog("Standard", "Dialog1")
REM жаңа элементті Тізім ұяшығына қосады
oDialog1Model = oDialog1.Model
oListBox = oDialog1.GetControl("ListBox1")
iCount ұяшығын бүтін сан ретінде қайтару
iCount = oListbox.ItemCount
oListbox.additem("Жаңа Элемент" & iCount,0)
Аяқталу ішкі элементі
Ішкі элементті жою
BasicLibraries.LoadLibrary("Құралдар")
oDialog1 = LoadDialog("Standard", "Dialog1")
REM бірінші элементті Тізім ұяшығынан жояды
oDialog1Model = oDialog1.Model
oListBox = oDialog1.GetControl("ListBox1")
oListbox.removeitems(0,1)
Аяқталу ішкі элементі