OpenOffice.info

Code: Alles auswählen

Sub Snippet
  Dim oDrawPages As Variant
  Dim oObj1 As Variant
  Dim oObj2 As Variant
  Dim oControl As Variant
  Dim oAllItems As Variant

  oDrawPages = ThisComponent.getDrawPages()
  oObj1 = oDrawPages.getByIndex(0)  
  oObj2 = oObj1.getByIndex(0)
  oControl = oObj2.getControl()
  
' aktueller Inhalt
  oAllItems = oControl.getAllItems()
' setzen Text an Index 0
  oControl.setItemText(0, "Beispiel")

End Sub

Code: Alles auswählen

' code zum Identifizieren der Combobox noch hinzufügen!
'...
sCurrentValue = oComboBox.getCurrentValue()
oDispatchHelper = createUnoService( "com.sun.star.frame.DispatchHelper" )
oDispatchHelper.executeDispatch( sCurrentValue , ".uno:Copy", "", 0, Array() ) 

Code: Alles auswählen

Sub Main(event)
mri(event)
End Sub

Code: Alles auswählen

Sub Main(event)
msgbox event.Source.Model.CurrentValue
End Sub

Code: Alles auswählen

oDispatchHelper.executeDispatch( sCurrentValue , ".uno:Copy", "", 0, Array() )

Code: Alles auswählen

sub data_combobox_copy(event)

Dim dispatcher as object
Dim sCurrentValue as Variant

Msgbox event.source.Model.CurrentValue 'dbg_properties

sCurrentValue = event.Source.Model.getCurrentValue()
dispatcher = createUnoService( "com.sun.star.frame.DispatchHelper" )
document   = ThisComponent.CurrentController.Frame
dispatcher.executeDispatch( document, ".uno:Copy", "", 0, Array() ) 

End Sub