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)

Аяқталу ішкі элементі


Өнім туралы пікір | Қосымша құжаттама | Сауда белгілері