OpenOffice.info

Code: Alles auswählen

sub openform_in_designmode_and_add_button
   
    Dim oParms(1) As New com.sun.star.beans.PropertyValue
    Dim aPoint As New com.sun.star.awt.Point
    Dim aSize As New com.sun.star.awt.Size
    
    oDoc = ThisComponent.getformdocuments.getbyname("Formular1")
    if not isnull (oDoc.getComponent) then
    odoc.opendesign
    else
    oDocname=oDoc.name
      oParms(0).name="OpenMode"
      oParms(0).value="openDesign"
      oParms(1).name="ActiveConnection"
      oParms(1).value=Verbindung
      oFormDocs = ThisComponent.FormDocuments
      odoc = oFormDocs.loadComponentFromURL(oDocname, "", 0, oParms())
    endif
    
    oPage = odoc.drawpage
    
    s_label="Testknopf"
    aPoint.x = 2000
    aPoint.y = 1000
    aSize.Width = 4000
    aSize.Height = 1200
    
    obutton = odoc.createInstance("com.sun.star.drawing.ControlShape")
    oControlModel = odoc.createInstance( "com.sun.star.form.component.CommandButton" )
    obutton.control = oControlModel
         
    obutton.Size = aSize
    obutton.Position = aPoint
    obutton.Control.Label = s_label
    obutton.Control.FocusOnClick=false
    obutton.Control.name="cmd_Testknopf"
    obutton.Control.Align=1
    obutton.Control.VerticalAlign=1
    obutton.AnchorType=0 'Paragraph
    oPage.add(obutton)
    oForm = obutton.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 = "Script"
    oEvent.ScriptCode = "vnd.sun.star.script:Standard.Module1.Knopfgedrueckt?language=Basic&location=document"
    oForm.registerScriptEvent(nIndex, oEvent)
    odoc.currentcontroller.setformdesignmode(false)

end sub

Sub Knopfgedrueckt
   msgbox "Knopf wurde gedrückt"
end sub

Code: Alles auswählen

Option Explicit

Sub createButton
	Dim oParms(0) 	As New com.sun.star.beans.PropertyValue
	Dim aPoint 		As New com.sun.star.awt.Point
	Dim aSize 		As New com.sun.star.awt.Size
	Dim sLabel		As String

	Dim oBaseDoc	As Object
	Dim oDoc		As Object
	Dim oForm		As Object
	Dim oPage		As Object
	Dim oButton		As Object
	
	oBaseDoc	= ThisComponent
	
	'Loop until found DatabaseDocument	
	Do Until( oBaseDoc.ImplementationName = "com.sun.star.comp.dba.ODatabaseDocument")
		oBaseDoc = oBaseDoc.Parent
	Loop

	'get FormDocumentHandler
	oDoc 	= oBaseDoc.getFormDocuments.getByName("Formular1")
	'get Form
	oForm	= oDoc.Component
	
	'load Form if not available
	If isnull (oForm) Then
		oForm = oBaseDoc.FormDocuments.loadComponentFromURL(oDoc.name, "", 0, oParms())
	EndIf
	
	'set Button Properties
	sLabel="Testknopf"
	aPoint.x = 2000
	aPoint.y = 1000
	aSize.Width = 4000
	aSize.Height = 1200
	
	'create Shape and Control Handler
	oButton 		= oForm.createInstance("com.sun.star.drawing.ControlShape")
	oButton.control	= oForm.createInstance( "com.sun.star.form.component.CommandButton" )
	
	'apply Button Properties     
	obutton.Size					= aSize
	obutton.Position				= aPoint
	obutton.Control.Label			= sLabel
	obutton.Control.name			= "cmd_Testknopf"
	obutton.AnchorType				= 0

	'add Button to View
	oForm.DrawPage.add(oButton)
End Sub