Programming Examples for Controls in the Dialog Editor

Woroonni noo lawishshuwa "Hasaawo1" yinanni haaro hasaaworaati. Woroonni noo qorqoraasine ledatenna hasaawo kalaqate hasaawote muccisaanchi giddo Uduunnu Saaxine gaxi aana noo uduunne horonsiri: "CheckBox1" yinanni Kulaancho Saaxine, "Somo1" yinanni Somote Bae, "CommandButton1" yinanni Ilka, nna "ListBox1" yinanni Dirtote Saaxine.

Qorophishu Bido

Richu soorramaanchira qorqoraasincho xallatto woyte shiimmaaddanna jajjabba fidalla seekkite buuxi.


Hasaawo Hogowate Kalqete Assishsha


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 is stored in Tools.ModuleControls available from LibreOffice Macros and Dialogs.

Hasaawo Leellishanni


REM kalqe soorramaanchi tiro
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

Pirograamete Uduunni Akatuwa Nabbawi woy Muccisi


Sub Sample1
    With GlobalScope.Basiclibraries
       If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools")
    End With
    oDialog1 = Tools.LoadDialog("Standard", "Dialog1")
    REM eishshi hasaawo modeele 
    oDialog1Model = oDialog1.Model
    REM leellinshanni Somo1 borro
    oLabel1 = oDialog1.GetControl("Label1")
    MsgBox oLabel1.Text
    REM qineessi haaro borro Somo1 qorqoraasinchira
    oLabel1.Borro = "Haaro Fayilla"
    REM leellishi modeele akatuwa CheckBox1 qorqoraasinchira
    oCheckBox1Model = oDialog1Model.CheckBox1
    MsgBox oCheckBox1Model.Dbg_Properties
    REM qineessi haaro ikkito CheckBox1 qorqoraasinchu modeelera
    oCheckBox1Model.State = 1
    REM leellishi modeele akatuwa CommandButton1 qorqoraasinchira
    oCMD1Model = oDialog1Model.CommandButton1
    MsgBox oCMD1Model.Dbg_Properties
    REM leellishi akatuwa CommandButton1 qorqoraasinchira
    oCMD1 = oDialog1.GetControl("CommandButton1")
    MsgBox oCMD1.Dbg_Properties
    REM loosansi hasaawo
    oDialog1.Execute()
End Sub

ListBox ra Eishsha Ledi


Sub AddEntry
    With GlobalScope.Basiclibraries
       If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools")
    End With
    oDialog1 = ModuleControls.LoadDialog("Standard", "Dialog1")
    REM ListBox ledanno haaro eo
    oDialog1Model = oDialog1.Model
    oListBox = oDialog1.GetControl("ListBox1")
    Dim iCount as integer
    iCount = oListbox.ItemCount
    oListbox.danaledi("Haaro Dana" & iCount,0)
End Sub

ListBox wiinni Eishsha Hooli


Sub RemoveEntry
    With GlobalScope.Basiclibraries
       If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools")
    End With
    oDialog1 = Tools.ModuleControls.LoadDialogLoadDialog("Standard", "Dialog1")
    REM ListBox wiinni balaxxino eo hunanno
    oDialog1Model = oDialog1.Model
    oListBox = oDialog1.GetControl("ListBox1")
    oListbox.removeitems(0,1)
End Sub

Please support us!