Membuka Sebuah Dialog Menggunakan Basic

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.

Masukan kode berikut untuk subrutin yang disebut Dialog1Show. Dalam contoh ini, nama dialog yang Anda buat adalah "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.

Mohon dukung kami!