IBM Lotus Symphony


Примеры программного кода для управляющих элементов в Редакторе окон

Следующие примеры предназначены для нового окна с именем "Dialog1". С помощью панели инструментов Управляющие элементы в редакторе окон создайте окно и добавьте в него следующие управляющие элементы: Переключатель "CheckBox1", Поле метки "Label1", Кнопку "CommandButton1" и Поле со списком "ListBox1".

Значок Предупреждение При связывании управляющего элемента с переменной объекта учитывается регистр символов.

Глобальная функция загрузки окон

Function LoadDialog(Libname as String, DialogName as String, Optional oLibContainer)

Dim oLib as Object

Dim oLibDialog as Object

Dim oRuntimeDialog as 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

Вывод окна

rem Глобальное определение переменных

Dim oDialog1 AS Object

Sub StartDialog1

BasicLibraries.LoadLibrary("Tools")

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

oDialog1.Execute()

end sub

Чтение или редактирование свойств управляющих элементов в программе

Sub Sample1

BasicLibraries.LoadLibrary("Tools")

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

REM Получить модель окна

oDialog1Model = oDialog1.Model

REM Показать текст Label1

oLabel1 = oDialog1.GetControl("Label1")

MsgBox oLabel1.Text

REM Задать новый текст для управляющего элемента Label1

oLabel1.Text = "Новые файлы"

REM Показать свойства модели для управляющего элемента CheckBox1

oCheckBox1Model = oDialog1Model.CheckBox1

MsgBox oCheckBox1Model.Dbg_Properties

REM Задать новое состояние для CheckBox1 для модели управляющего элемента

oCheckBox1Model.State = 1

REM Показать свойства модели для управляющего элемента CommandButton1

oCMD1Model = oDialog1Model.CommandButton1

MsgBox oCMD1Model.Dbg_Properties

REM Показать свойства управляющего элемента CommandButton1

oCMD1 = oDialog1.GetControl("CommandButton1")

MsgBox oCMD1.Dbg_Properties

REM Запустить окно

oDialog1.Execute()

End Sub

Добавление записи в ListBox

Sub AddEntry

BasicLibraries.LoadLibrary("Tools")

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

REM Добавить новую запись в ListBox

oDialog1Model = oDialog1.Model

oListBox = oDialog1.GetControl("ListBox1")

dim iCount as integer

iCount = oListbox.ItemCount

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

end sub

Удаление записи из ListBox

Sub RemoveEntry

BasicLibraries.LoadLibrary("Tools")

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

REM Удалить первую запись из ListBox

oDialog1Model = oDialog1.Model

oListBox = oDialog1.GetControl("ListBox1")

oListbox.removeitems(0,1)

end sub


Комментарии по продукту | Дополнительная документация | Товарные знаки