OpenOffice.info

Hallo,

siehe [url]http://wiki.services.openoffice.org/wiki/Documentation/DevGuide/Forms/Scripting_and_Events[/url]

ScriptCode ist "application:Library.Modul.Sub" für GlobalScope und "document:Library.Modul.Sub" für das Dokument.

viele Grüße

Axel

sub addButton

  oSheet = thiscomponent.sheets(0)
 
  oPage = oSheet.drawpage
  
  Dim aPoint As New com.sun.star.awt.Point
  Dim aSize As New com.sun.star.awt.Size
  
  aPoint.x = 10000
  aPoint.y = 10000
  aSize.Width = 10000
  aSize.Height = 1600
  
  btn = thiscomponent.createInstance("com.sun.star.drawing.ControlShape")
  oControlModel = thiscomponent.createInstance( "com.sun.star.form.component.CommandButton" ) 
  btn.control = oControlModel
  
  btn.Size = aSize
  btn.Position = aPoint
  
  btn.Control.Label = "Klick mich!"
  
  oPage.add(btn)
  
  oForm = btn.control.parent
  
  nIndex = oForm.Count-1 'Der Button wurde soeben eingefügt, deshalb ist es sehr wahrscheinlich, dass er das letzte Element der Controls-Liste der Form ist.
  
  Dim oEvent as new com.sun.star.script.ScriptEventDescriptor
  oEvent.ListenerType = "com.sun.star.awt.XActionListener"
  oEvent.EventMethod = "actionPerformed"
  oEvent.ScriptType = "StarBasic"
  oEvent.ScriptCode = "vnd.sun.star.script:Standard.Module1.test"
  oForm.registerScriptEvent(nIndex, oEvent)
  
  thiscomponent.currentcontroller.setformdesignmode(false)
  
end sub

sub test(oEvent)
 xray oEvent
end sub

Hallo j_gon,

[url]http://www.google.de/#q=openoffice+macro+sheet+form+control+on+the+fly[/url]

Meine Essenz daraus:

[code]
sub addButton

oSheet = thiscomponent.sheets(0)

oPage = oSheet.drawpage

Dim aPoint As New com.sun.star.awt.Point
Dim aSize As New com.sun.star.awt.Size

aPoint.x = 10000
aPoint.y = 10000
aSize.Width = 10000
aSize.Height = 1600

btn = thiscomponent.createInstance("com.sun.star.drawing.ControlShape")
oControlModel = thiscomponent.createInstance( "com.sun.star.form.component.CommandButton" )
btn.control = oControlModel

btn.Size = aSize
btn.Position = aPoint

btn.Control.Label = "Klick mich!"

oPage.add(btn)

oForm = btn.control.parent

nIndex = oForm.Count-1 'Der Button wurde soeben eingefügt, deshalb ist es sehr wahrscheinlich, dass er das letzte Element der Controls-Liste der Form ist.

Dim oEvent as new com.sun.star.script.ScriptEventDescriptor
oEvent.ListenerType = "com.sun.star.awt.XActionListener"
oEvent.EventMethod = "actionPerformed"
oEvent.ScriptType = "StarBasic"
oEvent.ScriptCode = "vnd.sun.star.script:Standard.Module1.test"
oForm.registerScriptEvent(nIndex, oEvent)

thiscomponent.currentcontroller.setformdesignmode(false)

end sub

sub test(oEvent)
xray oEvent
end sub
[/code]

viele Grüße

Axel

Bin mir ziemlich sicher, dass die Antwort auch zu dieser Frage bei [url=http://www.pitonyak.org]Andrew[/url] in seinem Makro-Dokument zu finden ist.


Viel Erfolg!