संवाद सम्पादकमा नियन्त्रणहरूका लागि प्रोग्रामिङ् उदाहरणहरू

Contents
Index 🔎︎

# Programming Examples for Controls in the Dialog Editor

तल दिएका उदहरणहरू नँया संवाद"Dialog1" बुझाउनेहरूका लागि हो । संवाद सम्पादक भित्र संवाद सिर्जना गर्नलाई र निम्न तल दिइएका नियन्त्रणहरू थप्नलाई उपकरण बाकस बारमा उपकरणहरूको प्रयोग गर्नुहोस्: एउटा परिक्षण बाकस "CheckBox1" बुझाउने, एउटा लेबल फाँट "Label1" बुझाउने, एउटा बटन "CommandButton1" बुझाउने, र एउटा सूची बाकस "ListBox1" बुझाउने ।

जब तपाईँ चल वस्तुलाई नियन्त्रणमा टाँस्नुहुन्छ साना अक्षर र ठुला अक्षरसँग सुहाउदो हुनुपर्छ ।

### संवादहरू लोड गर्नका लागि विश्वव्यापी प्रकार्य

    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

### एउटा संवाद प्रदर्शन

    चलहरूको रेम विश्वव्यापी परिभाषा
    Dim oDialog1 AS Object
    Sub StartDialog1
        BasicLibraries.LoadLibrary("Tools")
        oDialog1 = LoadDialog("Standard", "Dialog1")
        oDialog1.Execute()
    End Sub

### कार्यक्रममा नियन्त्रणहरूको गुणहरू पढ्नुहोस् वा सम्पादन गर्नुहोस्

    Sub Sample1
        BasicLibraries.LoadLibrary("Tools")
        oDialog1 = LoadDialog("Standard", "Dialog1")
        REM ले संवाद नमूना प्राप्त गर्दछ
        oDialog1Model = oDialog1.Model
        लेबुल १ को REM प्रदर्शन पाठ
        oLabel1 = oDialog1.GetControl("Label1")
        MsgBox oLabel1.Text
        REM ले नियन्त्रण लेबुल १ का लागि नयाँ पाठ सेट गर्दछ
        oLabel1.Text = "New Files"
        REM ले नियन्त्रण CheckBox1 का लागि नमूना गुणहरू प्रदर्शन गर्दछ
        oCheckBox1Model = oDialog1Model.CheckBox1
        MsgBox oCheckBox1Model.Dbg_Properties
        REM ले नियन्त्रणको नमूनाका लागि CheckBox1 का लागि नयाँ अवस्था सेट गर्दछ
        oCheckBox1Model.State = 1
        REM ले नियन्त्रण CommandButton1 का लागि नमूना गुणहरू प्रदर्शन गर्दछ
        oCMD1Model = oDialog1Model.CommandButton1
        MsgBox oCMD1Model.Dbg_Properties
        REM ले नियन्त्रण CommandButton1 को गुणहरू प्रदर्शन गर्दछ
        oCMD1 = oDialog1.GetControl("CommandButton1")
        MsgBox oCMD1.Dbg_Properties
        REM कार्यान्वयन संवाद
        oDialog1.Execute()
    End Sub

### एउटा ListBox मा एउटा प्रविष्ट थप्नुहोस्

    Sub AddEntry
        BasicLibraries.LoadLibrary("Tools")
        oDialog1 = LoadDialog("Standard", "Dialog1")
        REM ले ListBox मा एउटा नयाँ प्रविष्ट थप्दछ
        oDialog1Model = oDialog1.Model
        oListBox = oDialog1.GetControl("ListBox1")
        Dim iCount as integer
        iCount = oListbox.ItemCount
        oListbox.additem("New Item" & iCount,0)
    End Sub

### एउटा सुची बाकसबाट एउटा प्रविष्ट हटाउनुहोस्

    Sub RemoveEntry
        BasicLibraries.LoadLibrary("Tools")
        oDialog1 = LoadDialog("Standard", "Dialog1")
        REM ले सूची बाकसबाट पहिलो प्रविष्टि हटाउँछ
        oDialog1Model = oDialog1.Model
        oListBox = oDialog1.GetControl("ListBox1")
        oListbox.removeitems(0,1)
    End Sub

सम्बन्धित शीर्षक

संवाद सम्पादकमा नियन्त्रणहरूको गुणहरू परिवर्तन

एउटा आधारभूत संवाद सिर्जना गर्दा

संवाद सम्पादकमा नियन्त्रणहरू सिर्जना गर्दा

कार्यक्रम सङ्केतसँग एउटा संवाद खोल्दा