This tutorial will show you how to change command button properties at run time.
This tutorial assumes that you know how to create a simple macro and a simple dialog. If you are unaware of the same, read below two tutorials before you proceed.
If you are looking for something else, head over to below link which contains all the LibreOffice macro tutorials list:
The button control properties can be changes via Properties window during dialog design. However, it is sometimes needed to change them during runtime as well.
Properties window where you can change button properties during dialog design.
In this tutorial, we will try to do something like this:
The background color of command button can be changed using
BackgroundColor property of its Model. The model for the button can be accessed via
getModel method of the control. The color can be specified via
oB1 = oDialog1.GetControl("CommandButton1") with oB1.getModel .BackgroundColor=RGB(255,0,0) End With
However, this is not sufficient to change the color because by default the LibreOffice dialogs adopts the Ubuntu/Linux desktop themes. The button colors remains same even if you execute above codes. To solves this, you have to turn off the
NativeWidgetLook property of the entire dialog. Once you do that, you can change the look of the controls inside the dialog as per your needs. For our example, using below code you can turn it off.
oDialog1.getPeer().setProperty( "NativeWidgetLook", False )
Size of Control
To change the height and width of button at runtime, use Height and Width property of the control. This can be accessed via Model of the control.
oB1 = oDialog1.GetControl("CommandButton4") oB1.Model.Width = 63 oB1.Model.Height = 27
Change the Label
To change the label text of the button use Label property. The property can be accessed without the Model of the control.
oB1 = oDialog1.GetControl("CommandButton2") oB1.Label ="Hello!!"
Enable/Disable the control
To enable/disable the control use the Enable property.
oB1 = oDialog1.GetControl("CommandButton3") oB1.Enable = False
You can put together all these functions in separate functions and assign them for each of the commandbuttons.
REM ***** BASIC ***** ' ' LibreOffice Macro Tutorials ' Change Button Properties at Runtime ' ' www.debugpoint.com ' Author: Arindam ' Dim oDialog1 As Object Sub StartDialog1() oDialog1 = CreateUnoDialog(DialogLibraries.Standard.Dialog1) oDialog1.Execute() End Sub Sub Change_Look() oB1 = oDialog1.GetControl("CommandButton1") oDialog1.getPeer().setProperty( "NativeWidgetLook", False ) with oB1.getModel .BackgroundColor=RGB(255,0,0) End With End Sub Sub Change_Label() oB1 = oDialog1.GetControl("CommandButton2") oB1.Label ="Hello!!" End Sub Sub Disable_Button () oB1 = oDialog1.GetControl("CommandButton3") oB1.Enable = False End Sub Sub Change_Size() oB1 = oDialog1.GetControl("CommandButton4") oB1.Model.Width = 63 oB1.Model.Height = 27 End Sub
Looking for Something Else?
If you are looking for something else in LibreOffice macro tutorials, Or, wants to learn more about it, please follow below link for complete Macro Tutorials Index: