From ed5640d8b587fbcfed7dd7967f3de04b37a76f26 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 11:06:44 +0200 Subject: Adding upstream version 4:7.4.7. Signed-off-by: Daniel Baumann --- .../source/text/sbasic/guide/sample_code.xhp | 139 +++++++++++++++++++++ 1 file changed, 139 insertions(+) create mode 100644 helpcontent2/source/text/sbasic/guide/sample_code.xhp (limited to 'helpcontent2/source/text/sbasic/guide/sample_code.xhp') diff --git a/helpcontent2/source/text/sbasic/guide/sample_code.xhp b/helpcontent2/source/text/sbasic/guide/sample_code.xhp new file mode 100644 index 000000000..cdb79e383 --- /dev/null +++ b/helpcontent2/source/text/sbasic/guide/sample_code.xhp @@ -0,0 +1,139 @@ + + + + + + Programming Examples for Controls in the Dialog Editor + /text/sbasic/guide/sample_code.xhp + + + Sun Microsystems, Inc. + + + + programming examples for controls + dialogs;loading (example) + dialogs;displaying (example) + controls;reading or editing properties (example) + list boxes;removing entries from (example) + list boxes;adding entries to (example) + examples; programming controls + dialog editor;programming examples for controls + Tools;LoadDialog + +
+ Programming Examples for Controls in the Dialog Editor + +
+The following examples are for a new dialog called "Dialog1". Use the tools on the Toolbox bar in the dialog editor to create the dialog and add the following controls: a Check Box called "CheckBox1", a Label Field called "Label1", a Button called "CommandButton1", and a List Box called "ListBox1". +Be consistent with uppercase and lowercase letter when you attach a control to an object variable. +Global Function for Loading Dialogs + +Function LoadDialog(Libname as String, DialogName as String, Optional oLibContainer) +Dim oLib as Object ' com.sun.star.script.XLibraryContainer +Dim oLibDialog as Object +Dim oRuntimeDialog as Object + If IsMissing(oLibContainer) Then + oLibContainer = DialogLibraries + End If + oLibContainer.LoadLibrary(LibName) + oLib = oLibContainer.GetByName(Libname) + oLibDialog = oLib.GetByName(DialogName) + oRuntimeDialog = CreateUnoDialog(oLibDialog) + LoadDialog() = oRuntimeDialog +End Function + +LoadDialog function is stored in Tools.ModuleControls available from Application Macros and Dialogs. +Displaying a Dialog + +REM global definition of variables +Dim oDialog1 AS Object +Sub StartDialog1 + With GlobalScope.BasicLibraries + If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools") + End With + oDialog1 = Tools.ModuleControls.LoadDialog("Standard", "Dialog1") + oDialog1.Execute() +End Sub + +Read or Edit Properties of Controls in the Program + +Sub Sample1 + With GlobalScope.Basiclibraries + If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools") + End With + oDialog1 = Tools.LoadDialog("Standard", "Dialog1") + REM get dialog model + oDialog1Model = oDialog1.Model + REM display text of Label1 + oLabel1 = oDialog1.GetControl("Label1") + MsgBox oLabel1.Text + REM set new text for control Label1 + oLabel1.Text = "New Files" + REM display model properties for the control CheckBox1 + oCheckBox1Model = oDialog1Model.CheckBox1 + MsgBox oCheckBox1Model.Dbg_Properties + REM set new state for CheckBox1 for model of control + oCheckBox1Model.State = 1 + REM display model properties for control CommandButton1 + oCMD1Model = oDialog1Model.CommandButton1 + MsgBox oCMD1Model.Dbg_Properties + REM display properties of control CommandButton1 + oCMD1 = oDialog1.GetControl("CommandButton1") + MsgBox oCMD1.Dbg_Properties + REM execute dialog + oDialog1.Execute() +End Sub + +Add an Entry to a ListBox + +Sub AddEntry + With GlobalScope.Basiclibraries + If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools") + End With + oDialog1 = ModuleControls.LoadDialog("Standard", "Dialog1") + REM adds a new entry to the ListBox + oDialog1Model = oDialog1.Model + oListBox = oDialog1.GetControl("ListBox1") + Dim iCount as integer + iCount = oListbox.ItemCount + oListbox.additem("New Item" & iCount,0) +End Sub + +Remove an Entry from a ListBox + +Sub RemoveEntry + With GlobalScope.Basiclibraries + If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools") + End With + oDialog1 = Tools.ModuleControls.LoadDialogLoadDialog("Standard", "Dialog1") + REM remove the first entry from the ListBox + oDialog1Model = oDialog1.Model + oListBox = oDialog1.GetControl("ListBox1") + oListbox.removeitems(0,1) +End Sub + +
+ + + + +
+ + -- cgit v1.2.3