Mga Halimbawa ng Programming para sa Mga Kontrol sa Dialog Editor

Ang mga sumusunod na halimbawa ay para sa bago diyalogo tinatawag na "Dialog1". Gamitin ang mga kasangkapan sa Toolbox bar sa dialog editor upang lumikha ng dialog at idagdag ang mga sumusunod na kontrol: a Check Box tinatawag na "CheckBox1", a Field ng Label tinatawag na "Label1", a Pindutan tinatawag na "CommandButton1", at a Kahon ng Listahan tinatawag na "ListBox1".

Maging pare-pareho sa uppercase at lowercase na titik kapag nag-attach ka ng control sa isang object variable.

Pandaigdigang Function para sa Paglo-load ng mga Dialog


Function LoadDialog(Libname as String, DialogName as String, Optional oLibContainer)
Dim oLib as Object ' com.sun.star.script.XLibraryContainer
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

LoadDialog function ay naka-imbak sa Tools.ModuleControls makukuha mula sa Application Macros at Dialogs.

Pagpapakita ng Dialog


REM pandaigdigang kahulugan ng mga variable
Dim oDialog1 AS Object
Sub StartDialog1
    With GlobalScope.BasicLibraries
       If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools")
    End With
    oDialog1 = Tools.ModuleControls.LoadDialog("Standard", "Dialog1")
    oDialog1.Execute()
End Sub

Basahin o I-edit ang Mga Katangian ng Mga Kontrol sa Programa


Sub Sample1
    With GlobalScope.Basiclibraries
       If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools")
    End With
    oDialog1 = Tools.LoadDialog("Standard", "Dialog1")
    REM makakuha ng dialog model
    oDialog1Model = oDialog1.Model
    REM display text ng Label1
    oLabel1 = oDialog1.GetControl("Label1")
    MsgBox oLabel1.Text
    Nagtakda ang REM ng bagong text para sa control Label1
    oLabel1.Text = "Mga Bagong File"
    REM display model properties para sa control CheckBox1
    oCheckBox1Model = oDialog1Model.CheckBox1
    MsgBox oCheckBox1Model.Dbg_Properties
    Nagtakda ang REM ng bagong estado para sa CheckBox1 para sa modelo ng kontrol
    oCheckBox1Model.State = 1
    REM display model properties para sa control CommandButton1
    oCMD1Model = oDialog1Model.CommandButton1
    MsgBox oCMD1Model.Dbg_Properties
    REM display properties ng control CommandButton1
    oCMD1 = oDialog1.GetControl("CommandButton1")
    MsgBox oCMD1.Dbg_Properties
    REM execute dialog
    oDialog1.Execute()
End Sub

Magdagdag ng Entry sa isang ListBox


Sub AddEntry
    With GlobalScope.Basiclibraries
       If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools")
    End With
    oDialog1 = ModuleControls.LoadDialog("Standard", "Dialog1")
    Nagdagdag ang REM ng bagong entry sa ListBox
    oDialog1Model = oDialog1.Model
    oListBox = oDialog1.GetControl("ListBox1")
    Dim iCount as integer
    iCount = oListbox.ItemCount
    oListbox.additem("Bagong Item" at iCount,0)
End Sub

Alisin ang isang Entry mula sa isang ListBox


Sub RemoveEntry
    With GlobalScope.Basiclibraries
       If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools")
    End With
    oDialog1 = Tools.ModuleControls.LoadDialogLoadDialog("Standard", "Dialog1")
    REM tanggalin ang unang entry mula sa ListBox
    oDialog1Model = oDialog1.Model
    oListBox = oDialog1.GetControl("ListBox1")
    oListbox.removeitems(0,1)
End Sub

Pagbabago sa Mga Katangian ng Mga Kontrol sa Editor ng Dialog

Paggawa ng Basic Dialog

Paglikha ng Mga Kontrol sa Dialog Editor

Pagbubukas ng Dialog na May Basic