Attachment 148520 Details for Bug 87884 – Basic tabs with button and text on the 2nd

Basic tabs with button and text on the 2nd

workaround.bas (text/plain), 2.74 KB, created by Jan-Marek Glogowski on 2019-01-22 14:40:02 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jan-Marek Glogowski

Created: 2019-01-22 14:40:02 UTC

Size: 2.74 KB

patch

obsolete

>REM  *****  BASIC  *****
>
>Sub Main
>	Dim dialogModel as Object
>	dialogModel = CreateUnoService("com.sun.star.awt.UnoControlDialogModel")
>	dialogModel.PositionX = 0
>	dialogModel.PositionY = 0
>	dialogModel.Width = 200
>	dialogModel.Height = 150
>
>	Dim buttonModel as Object
>	buttonModel = dialogModel.CreateInstance("com.sun.star.awt.UnoControlButtonModel")
>	buttonModel.PositionX = 75
>	buttonModel.PositionY = 130
>	buttonModel.Width = 50
>	buttonModel.Height = 14
>	buttonModel.Label = "test"
>
>	dim tabsModel as Object	
>'	tabsModel = dialogModel.CreateInstance("com.sun.star.awt.tab.UnoControlTabPageContainerModel")
>	tabsModel = dialogModel.CreateInstance("com.sun.star.awt.UnoMultiPageModel")
>	tabsModel.PositionX = 6
>	tabsModel.PositionY = 6
>	tabsModel.Width = 188
>	tabsModel.Height = 120
>
>	dialogModel.insertByName("bu",buttonModel)
>	dialogModel.insertByName("tab",tabsModel)
>
>	Dim dialog as Object
>	dialog = CreateUnoService("com.sun.star.awt.UnoControlDialog")
>	dialog.setModel(dialogModel)
>
>	Dim aControls as Object
>	aControls = dialog.getControls()
>
>	pageModel1 = tabsModel.CreateInstance("com.sun.star.awt.UnoPageModel")
>	tabsModel.insertByName("page_1", pageModel1)
>	pageModel1.setPropertyValue("Title", "Page 1")
>
>	pageModel2 = tabsModel.CreateInstance("com.sun.star.awt.UnoPageModel")
>	tabsModel.insertByName("page_2", pageModel2)
>	pageModel2.setPropertyValue("Title", "Page 2")
>
>	Dim fixedTextModel as Object
>	fixedTextModel = pageModel1.createinstance("com.sun.star.awt.UnoControlFixedTextModel")
>	fixedTextModel.PositionX = 10
>	fixedTextModel.PositionY = 10
>	fixedTextModel.Width = 50
>	fixedTextModel.Height = 30
>	fixedTextModel.Label = "FixedText"
>	pageModel1.insertByName("intab",fixedTextModel)
>
>	Dim fixedTextModel2 as Object
>	fixedTextModel2 = pageModel1.createinstance("com.sun.star.awt.UnoControlFixedTextModel")
>	fixedTextModel2.PositionX = 10
>	fixedTextModel2.PositionY = 10
>	fixedTextModel2.Width = 50
>	fixedTextModel2.Height = 30
>	fixedTextModel2.Label = "Fixed Text"
>	pageModel2.insertByName("intab2",fixedTextModel2)
>
>	Dim buttonModel2 as Object
>	buttonModel2 = pageModel1.CreateInstance("com.sun.star.awt.UnoControlButtonModel")
>	buttonModel2.PositionX = 50
>	buttonModel2.PositionY = 50
>	buttonModel2.Width = 50
>	buttonModel2.Height = 14
>	buttonModel2.Label = "test 2"
>	pageModel2.insertByName("intab3",buttonModel2)
>
>	Dim toolkit as Object
>	toolkit = CreateUnoService("com.sun.star.awt.Toolkit")
>	dialog.createPeer(toolkit,null)
>
>	dialog.execute()
>
>	Exit Sub
>
>oBad:
>	Dim oErLine As Integer
>	Dim oErNum As Integer
>	Dim oErMsg As String
>	oErLine = Erl
>	oErNum = Err
>	oErMsg = Error
>	Msgbox("Error Line No. " & Chr$(9) & " : " & oErLine & Chr$(10) _
>		& "Error Number " & Chr$(9) & " : " & oErNum &Chr$(10 ) _
>		& "Error Message" & Chr$(9) & " : " & oErMsg , 0, "Error Message")
>End Sub
>

Actions: View

Attachments on bug 87884: 111543 | 111544 | 114601 | 148520