Solucionado
Después de mucha búsquedas encontré un ejemplo en el foro de openoffice en alemán.
Para acceder al control dentro del tab debo usar oDialog.getControl("tab").getControl(0).getByIdentifier(0). Donde Odialog es la vetana, GetControl("tab") es el contenedor de las pestañas, getControl(0) hace referencia a la primer pestaña y getByIdenttifier(0) es el primer control insertado en el tab.
Luego lo asignamos a un objeto y luego podemos asignarle el listener.
Si copian el código recuerden que necesitan crear un dialogo vacío.
Código: Seleccionar todo
Dim myBtn3 As Object
myBtn3=oDialog.getControl("tab").getControl(0).getByIdentifier(0)
myBtn3.addMouseListener(MouseClick)
Acá dejo el código completo para que otros lo puedan usar y modificar
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 = oDialogModel.createInstance("com.sun.star.awt.UnoControlEditModel")
with oEdit
.setPropertyValue("Name", "Edit1")
.setPropertyValue("TabIndex", 4)
.setPropertyValue("PositionX", 5)
.setPropertyValue("PositionY", 5)
.setPropertyValue("Width", 100)
.setPropertyValue("Height", 12)
.setPropertyValue("Text", "Edit page 1")
End With
oPage1.insertByName("EditText", oEdit)
' page 2
oPage2 = oTabModel.createTabPage(2)
oPage2.Title = "Page 2"
oTabModel.insertByIndex(1, oPage2)
oButton = oPage2.createInstance("com.sun.star.awt.UnoControlButtonModel")
with oButton
.setPropertyValue("Name", "Boton")
.setPropertyValue("TabIndex", 1)
.setPropertyValue("PositionX", 5)
.setPropertyValue("PositionY", 5)
.setPropertyValue("Width", 35)
.setPropertyValue("Height", 13)
.setPropertyValue("Label", "Boton 1")
.setPropertyValue("PushButtonType",com.sun.star.awt.PushButtonType.CANCEL)
End With
oPage2.insertByName("button", oButton)
oDialog.getControl("tab").ActiveTabPageID = 1
MouseClick = CreateUnoListener( "MouseClick_", "com.sun.star.awt.XMouseListener" )
Dim myBtn3 As Object
myBtn3=oDialog.getControl("tab").getControl(0).getByIdentifier(0)
myBtn3.addMouseListener(MouseClick)
Dim myBtn4 As Object
myBtn4=oDialog.getControl("tab").getControl(1).getByIdentifier(0)
myBtn4.addMouseListener(MouseClick)
oDialog.execute()
oDialog.dispose()
End Sub
Sub MouseClick_mousePressed(oEvent)
Dim Ctrl_Evento as String
Ctrl_Evento = oEvent.Source.Model.Name
msgbox Ctrl_Evento
End Sub
Sub MouseClick_mouseReleased(oEv)
End Sub
Sub MouseClick_mouseEntered(ev)
End Sub
Sub MouseClick_mouseExited(ev)
End Sub
Sub MouseClick_disposing(ev)
End Sub