Opening a Dialog With Basic

Egy párbeszédablakhoz létrehozott LibreOffice BASIC-ablakban hagyja el a szerkesztőt a modulnév címkéjére történő kattintással, amelyhez a párbeszédablak hozzá van rendelve. A név címke az ablak alján található.

A Dialog1Show szubrutinhoz írja be az alábbi kódot. Ebben a példában a létrehozott párbeszédablak neve „Dialog1”:


Sub Dialog1Show
    With GlobalScope.BasicLibraries
       If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools")
    End With
    oDialog1 = Tools.ModuleControls.LoadDialog("Standard", "Dialog1")
    oDialog1.Execute()
End Sub

A „LoadDialog” használata nélkül az alábbi módon hívhatja meg a kódot:


Sub Dialog1Show
    DialogLibraries.LoadLibrary("Standard")
    oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
    oDialog1.Execute()
End Sub

A kód végrehajtásakor megnyílik a „Dialog1” párbeszédablak. A párbeszédablak bezárásához a címsoron kattintson a bezárógombra (x).

Please support us!