Ayuda con Listener - En Control TabPage
Publicado: Lun Jun 05, 2017 1:39 am
Tengo este codigo y estoy intentando colocarle un listener al boton pero todas las pruebas que hice no me resultaron, ya he navegado por un monton de paginas y foros pero no me puedo dar cuenta de como son las jerarquias para colocar un listener y como debo hacerlo para capturar los eventos de los controles dentro del tabPage. Por fabor si alguien puede ayudarme se los agradecería eternamente.
Código: Seleccionar todo
REM ***** BASIC *****
Sub tab_1
DialogLibraries.loadLibrary("Standard")
oDialog = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
oDialogModel = oDialog.getModel()
' tab container
oTabModel = oDialogModel.createInstance(_
"com.sun.star.awt.tab.UnoControlTabPageContainerModel")
oDialogModel.insertByName("tab", oTabModel)
oTabModel.setPropertyValues(Array("Height", "PositionX", "PositionY", "Width"), _
Array(130, 10, 10, 140))
' page 1
oPage1 = oTabModel.createTabPage(1)
oPage1.Title = "Page 1"
oTabModel.insertByIndex(0, oPage1)
'oPage1.ImageURL = "file:///home/hoge/Documents/images/icons/up.png"
'oPage1.Tooltip = "page"
'oPage1.Enabled = False
oEdit = oPage1.createInstance("com.sun.star.awt.UnoControlEditModel")
oEdit.setPropertyValues(Array("Height", "PositionX", "PositionY", "Width"), _
Array(12, 5, 5, 100))
oPage1.insertByName("edit", oEdit)
oEdit.Text = "Page 1"
' page 2
oPage2 = oTabModel.createTabPage(2)
oPage2.Title = "Page 2"
oTabModel.insertByIndex(1, oPage2)
oButton = oPage2.createInstance("com.sun.star.awt.UnoControlButtonModel")
oButton.setPropertyValues(Array("Height", "PositionX", "PositionY", "Width"), _
Array(13, 5, 5, 35))
oPage2.insertByName("button", oButton)
oButton.Label = "Button"
oDialog.getControl("tab").ActiveTabPageID = 1
oDialog.execute()
oDialog.dispose()
End Sub