OpenOffice.info

Code: Alles auswählen

oDoc.getCurrentController.getFrame.getContainerWindow().setVisible(true)

Code: Alles auswählen

Sub Dokument
   url=converttourl("Z:\Programme\Vorlagen für Makros\Vorlage.ods")
   Dim DocProps(1) As New com.sun.star.beans.PropertyValue
   DocProps(0).Name = "AsTemplate"
   DocProps(0).Value = True
   DocProps(1).Name = "Hidden"
   DocProps(1).Value = True
   oDoc = StarDesktop.loadComponentFromURL(url,"_blank", 0, DocProps)
   oDoc.lockControllers   
End Sub 

Code: Alles auswählen

Sub xxxTESTxxx_hidden_OEFFNEN

Dim Context AS Object
Dim Conn As Object
Dim DB As Object
Dim FormDoc As Object
Dim Args(2) As New com.sun.star.beans.PropertyValue
Dim FormName As String
       
FormName = "xxxTESTxxx"
Context=CreateUnoService("com.sun.star.sdb.DatabaseContext")
DB=Context.getByName("DB")
Conn=DB.getconnection("","")

Args(0).Name="ActiveConnection"
Args(0).Value=Conn
Args(1).Name="OpenMode"
Args(1).Value="open"
Args(2).Name="Hidden"
Args(2).Value=true

FormDoc=DB.DatabaseDocument.FormDocuments.loadComponentFromURL(FormName,"_self",2,Args())

End Sub

Code: Alles auswählen

sub SYMBOLLEISTEN_AUSBLENDEN 'Hoehe 700 px

' exit Sub
'	Menuleiste ausblenden:
	Dim oDoc, oLayout, oGr, oWin As Object 'oEditWin, oEGr oFrame,
	Dim TBar As String
	
	lClosed = false
	oWin = ThisComponent.getCurrentController().getFrame().getContainerWindow()
	oGr = oWin.getPosSize() 'urspruengliche Fenstergroesse auslesen
	'Position und Größe ändern:
	ThisComponent.getCurrentController().getFrame().getContainerWindow().setPosSize(oGr.X, oGr.Y, oGr.width, 700, com.sun.star.awt.PosSize.HEIGHT) 
	oDoc = ThisComponent.CurrentController.Frame 'Menubar ausblenden
	oLayout = oDoc.LayoutManager
	TBar="private:resource/menubar/menubar"
	
	If oLayout.IsElementVisible(TBar) Then oLayout.hideElement(TBar)

	ThisComponent.CurrentController.Frame.LayoutManager.setVisible(false) ' Symbolleisten ausblenden
	ThisComponent.getCurrentController().getFrame().getContainerWindow().setFocus() 'Fenster in den Vordergrund setzten

End Sub

Code: Alles auswählen

Sub OPENFORM

Dim Context AS Object
Dim Conn As Object
Dim DB As Object
Dim FormDoc As Object
Dim Args(1) As New com.sun.star.beans.PropertyValue
Dim FormName As String
       
FormName = "FORMULAR"
Context=CreateUnoService("com.sun.star.sdb.DatabaseContext")
DB=Context.getByName("DB")
Conn=DB.getconnection("","")
Args(0).Name="ActiveConnection" : Args(0).Value=Conn
Args(1).Name="OpenMode" : Args(1).Value="open"
FormDoc=DB.DatabaseDocument.FormDocuments.loadComponentFromURL(FormName,"_self",2,Args) REM << BASIC-Laufzeitfehler.
FormDoc.CurrentController.Frame.ContainerWindow.setFocus()
End Sub