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