Membuka Dialog dengan Kode Program

Di dalam jendela LibreOffice BASIC untuk dialog yang Anda buat, tinggalkan penyunting dialog dengan menklik halaman tabulasi nama dari Modul yang dialognya hendak diberikan. Tabulasi nama berada di bagian bawah jendela.

Enter the following code for a subroutine called Dialog1Show. In this example, the name of the dialog that you created 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

Tanpa memakai "LoadDialog" Anda dapat memanggil kodenya sebagai berikut:


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

Saat Anda mengeksekusi kode ini, "Dialog1" terbuka. Untuk menutup dialog, klik tombol tutup (x) pada bilah judulnya.