...

Een dialoogvenster met BASIC openen

In het venster LibreOffice BASIC voor een dialoogvenster dat u hebt gemaakt, verlaat u de dialoogeditor door op de naamtab te klikken van de module waaraan het dialoogvenster toegewezen is. De naamtab staat onder aan het venster.

Voer de volgende code in om een subroutine met de naam Dialog1Show te maken. De naam van het dialoogvenster is '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

Zonder 'LoadDialog' te gebruiken, kunt u de code als volgt aanroepen:


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

Wanneer u deze code uitvoert, wordt 'Dialog1' geopend. Wilt u het dialoogvenster sluiten, dan klikt u op het kruisje (x) in de titelbalk.

Help ons, alstublieft!