Hasaawote Muccisaanchi giddo Qorqoraasinera Progiraamishshsu Lawishshuwa

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

Hasaawo Leellishanni


REM kalqe soorramaanchi tiro
Dim oDialog1 AS Object
Sub StartDialog1
    BasicLibraries.LoadLibrary("Tools")
    oDialog1 = LoadDialog("Standard", "Dialog1")
    oDialog1.Execute()
End Sub

Pirograamete Uduunni Akatuwa Nabbawi woy Muccisi


Sub Sample1
    BasicLibraries.LoadLibrary("Tools")
    oDialog1 = 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
    BasicLibraries.LoadLibrary("Tools")
    oDialog1 = 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
    BasicLibraries.LoadLibrary("Tools")
    oDialog1 = LoadDialog("Standard", "Dialog1")
    REM ListBox wiinni balaxxino eo hunanno
    oDialog1Model = oDialog1.Model
    oListBox = oDialog1.GetControl("ListBox1")
    oListbox.removeitems(0,1)
End Sub