Съдържание
Индекс 🔎︎

# Примери за програмиране на контроли в редактора на диалогови прозорци

Следващите примери са за нов диалогов прозорец с име „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

### Добавяне на елемент в списъчно поле

    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("Нов елемент" & iCount,0)
    End Sub

### Премахване на елемент от списъчно поле

    Sub RemoveEntry
        BasicLibraries.LoadLibrary("Tools")
        oDialog1 = LoadDialog("Standard", "Dialog1")
        REM Премахване на първия елемент от списъчното поле
        oDialog1Model = oDialog1.Model
        oListBox = oDialog1.GetControl("ListBox1")
        oListbox.removeitems(0,1)
    End Sub

Теми, свързани с показаната

Променяне свойствата на контролите в редактора на диалогови прозорци

Създаване на диалогов прозорец на Basic

Създаване на контроли в редактора на диалогови прозорци

Отваряне на диалогов прозорец с програмен код