1*cdf0e10cSrcweir<?xml version="1.0" encoding="UTF-8"?> 2*cdf0e10cSrcweir 3*cdf0e10cSrcweir 4*cdf0e10cSrcweir 5*cdf0e10cSrcweir<!-- 6*cdf0e10cSrcweir *********************************************************************** 7*cdf0e10cSrcweir * 8*cdf0e10cSrcweir * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 9*cdf0e10cSrcweir * 10*cdf0e10cSrcweir * Copyright 2000, 2010 Oracle and/or its affiliates. 11*cdf0e10cSrcweir * 12*cdf0e10cSrcweir * OpenOffice.org - a multi-platform office productivity suite 13*cdf0e10cSrcweir * 14*cdf0e10cSrcweir * This file is part of OpenOffice.org. 15*cdf0e10cSrcweir * 16*cdf0e10cSrcweir * OpenOffice.org is free software: you can redistribute it and/or modify 17*cdf0e10cSrcweir * it under the terms of the GNU Lesser General Public License version 3 18*cdf0e10cSrcweir * only, as published by the Free Software Foundation. 19*cdf0e10cSrcweir * 20*cdf0e10cSrcweir * OpenOffice.org is distributed in the hope that it will be useful, 21*cdf0e10cSrcweir * but WITHOUT ANY WARRANTY; without even the implied warranty of 22*cdf0e10cSrcweir * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 23*cdf0e10cSrcweir * GNU Lesser General Public License version 3 for more details 24*cdf0e10cSrcweir * (a copy is included in the LICENSE file that accompanied this code). 25*cdf0e10cSrcweir * 26*cdf0e10cSrcweir * You should have received a copy of the GNU Lesser General Public License 27*cdf0e10cSrcweir * version 3 along with OpenOffice.org. If not, see 28*cdf0e10cSrcweir * <http://www.openoffice.org/license.html> 29*cdf0e10cSrcweir * for a copy of the LGPLv3 License. 30*cdf0e10cSrcweir * 31*cdf0e10cSrcweir ************************************************************************ 32*cdf0e10cSrcweir --> 33*cdf0e10cSrcweir 34*cdf0e10cSrcweir 35*cdf0e10cSrcweir <helpdocument version="1.0"> 36*cdf0e10cSrcweir<meta> 37*cdf0e10cSrcweir<topic id="textsbasicguideshow_dialogxml" indexer="include" status="PUBLISH"> 38*cdf0e10cSrcweir<title id="tit" xml-lang="en-US">Opening a Dialog With Program Code</title> 39*cdf0e10cSrcweir<filename>/text/sbasic/guide/show_dialog.xhp</filename> 40*cdf0e10cSrcweir</topic> 41*cdf0e10cSrcweir</meta> 42*cdf0e10cSrcweir<body> 43*cdf0e10cSrcweir<bookmark xml-lang="en-US" branch="index" id="bm_id3154140"><bookmark_value>module/dialog toggle</bookmark_value> 44*cdf0e10cSrcweir<bookmark_value>dialogs;using program code to show (example)</bookmark_value> 45*cdf0e10cSrcweir<bookmark_value>examples; showing a dialog using program code</bookmark_value> 46*cdf0e10cSrcweir</bookmark><comment>mw changed "modules and dialogs;"</comment><paragraph role="heading" id="hd_id3154140" xml-lang="en-US" level="1" l10n="U" oldref="1"><variable id="show_dialog"><link href="text/sbasic/guide/show_dialog.xhp" name="Opening a Dialog With Program Code">Opening a Dialog With Program Code</link> 47*cdf0e10cSrcweir</variable></paragraph> 48*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3145171" xml-lang="en-US" l10n="U" oldref="2">In the <item type="productname">%PRODUCTNAME</item> BASIC window for a dialog that you created, leave the dialog editor by clicking the name tab of the Module that the dialog is assigned to. The name tab is at the bottom of the window.</paragraph> 49*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3153968" xml-lang="en-US" l10n="U" oldref="6">Enter the following code for a subroutine called <emph>Dialog1Show</emph>. In this example, the name of the dialog that you created is "Dialog1":</paragraph> 50*cdf0e10cSrcweir<paragraph role="code" id="par_id3156443" xml-lang="en-US" l10n="U" oldref="7">Sub Dialog1Show</paragraph> 51*cdf0e10cSrcweir<paragraph role="code" id="par_id3148575" xml-lang="en-US" l10n="U" oldref="24">BasicLibraries.LoadLibrary("Tools")</paragraph> 52*cdf0e10cSrcweir<paragraph role="code" id="par_id3152463" xml-lang="en-US" l10n="U" oldref="8">oDialog1 = <link href="text/sbasic/guide/sample_code.xhp" name="LoadDialog">LoadDialog</link>("Standard", "Dialog1")</paragraph> 53*cdf0e10cSrcweir<paragraph role="code" id="par_id3148646" xml-lang="en-US" l10n="U" oldref="14">oDialog1.Execute()</paragraph> 54*cdf0e10cSrcweir<paragraph role="code" id="par_id3147349" xml-lang="en-US" l10n="U" oldref="15">End Sub</paragraph> 55*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3152596" xml-lang="en-US" l10n="U" oldref="18">Without using "LoadDialog" you can call the code as follows:</paragraph> 56*cdf0e10cSrcweir<paragraph role="code" id="par_id3163710" xml-lang="en-US" l10n="U" oldref="19">Sub Dialog1Show</paragraph> 57*cdf0e10cSrcweir<paragraph role="code" id="par_id3146985" xml-lang="en-US" l10n="U" oldref="20">DialogLibraries.LoadLibrary( "Standard" )</paragraph> 58*cdf0e10cSrcweir<paragraph role="code" id="par_id3155418" xml-lang="en-US" l10n="U" oldref="21">oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )</paragraph> 59*cdf0e10cSrcweir<paragraph role="code" id="par_id3154944" xml-lang="en-US" l10n="U" oldref="22">oDialog1.Execute()</paragraph> 60*cdf0e10cSrcweir<paragraph role="code" id="par_id3145800" xml-lang="en-US" l10n="U" oldref="23">End Sub</paragraph> 61*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3153157" xml-lang="en-US" l10n="U" oldref="16">When you execute this code, "Dialog1" opens. To close the dialog, click the close button (x) on its title bar.</paragraph> 62*cdf0e10cSrcweir<section id="relatedtopics"> 63*cdf0e10cSrcweir<embed href="text/sbasic/guide/control_properties.xhp#control_properties"/> 64*cdf0e10cSrcweir<embed href="text/sbasic/guide/create_dialog.xhp#create_dialog"/> 65*cdf0e10cSrcweir<embed href="text/sbasic/guide/insert_control.xhp#insert_control"/> 66*cdf0e10cSrcweir<embed href="text/sbasic/guide/sample_code.xhp#sample_code"/> 67*cdf0e10cSrcweir</section> 68*cdf0e10cSrcweir</body> 69*cdf0e10cSrcweir</helpdocument> 70