Contents

# 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.

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 Application 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

Fiixoo'mino umo

Hasaawote Muccisaanchi giddo Qorqoraasine Akatuwa Soorranni

Qara hasaawuwa Kalaqanni

Hasaawote Muccisaanchi giddo Qorqoraasine Kalaqanni

Opening a Dialog With Basic

Please support us!