Opening a Dialog With Basic

āφāĻĒāύāĻžāϰ āϤ⧈āϰāĻŋ āĻĄāĻžā§ŸāĻžāϞāϗ⧇āϰ āϜāĻ¨ā§āϝ LibreOfficeBASIC āωāχāĻ¨ā§āĻĄā§‹āϤ⧇, āĻĄāĻžāϝāĻŧāĻžāϞāϗ⧇ āύāĻŋāϝ⧁āĻ•ā§āϤ āĻŽāĻĄāĻŋāωāϞ⧇āϰ āĻŸā§āϝāĻžāĻŦ⧇āϰ āύāĻžāĻŽā§‡ āĻ•ā§āϞāĻŋāĻ• āĻ•āϰ⧇ āĻĄāĻžāϝāĻŧāĻžāϞāĻ— āϏāĻŽā§āĻĒāĻžāĻĻāĻ• āĻšāϤ⧇ āĻŦ⧇āϰ āĻšā§Ÿā§‡ āφāϏ⧁āύāĨ¤ āύāĻžāĻŽ āĻŸā§āϝāĻžāĻŦāϟāĻŋ āωāχāĻ¨ā§āĻĄā§‹āϰ āĻļ⧇āώ⧇ āϰāϝāĻŧ⧇āϛ⧇āĨ¤

Dialog1Show āύāĻžāĻŽā§‡āϰ āϏāĻžāĻŦāϰ⧁āϟāĻŋāύ⧇āϰ āϜāĻ¨ā§āϝ āύāĻŋāĻŽā§āύ⧇āϰ āϕ⧋āĻĄāϟāĻŋ āϏāĻ¨ā§āύāĻŋāĻŦ⧇āĻļ āĻ•āϰāĻžāύāĨ¤ āĻāχ āωāĻĻāĻžāĻšāϰāϪ⧇, āφāĻĒāύāĻžāϰ āϤ⧈āϰāĻŋāĻ•ā§ƒāϤ āĻĄāĻžāϝāĻŧāĻžāϞāĻ—āϟāĻŋāϰ āύāĻžāĻŽ "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

"LoadDialog" āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰāĻž āĻ›āĻžā§œāĻžāĻ“ āφāĻĒāύāĻŋ āύāĻŋāĻŽā§āύāĻžāύ⧁āϏāĻžāϰ⧇ āϕ⧋āĻĄāϟāĻŋ āĻ•āϞ āĻ•āϰāϤ⧇ āĻĒāĻžāϰ⧇āύ:


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

āφāĻĒāύāĻŋ āĻāχ āϕ⧋āĻĄāϟāĻŋ āϚāĻžāϞāĻžāύ⧋āϰ āϏāĻŽā§Ÿ, " Dialog1 " āφāĻŦāĻŋāĻ°ā§āĻ­ā§‚āϤ āĻšā§ŸāĨ¤ āĻĄāĻžāϝāĻŧāĻžāϞāĻ—āϟāĻŋ āĻŦāĻ¨ā§āϧ āĻ•āϰāϤ⧇, āĻāϰ āĻļāĻŋāϰ⧋āύāĻžāĻŽ āĻŦāĻžāϰ⧇āϰ āĻŦāĻ¨ā§āϧ āĻ•āϰ⧁āύ āĻŦā§‹āϤāĻžāĻŽā§‡ (x) āĻ•ā§āϞāĻŋāĻ• āĻ•āϰ⧁āύāĨ¤

Please support us!