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!