funziona, il formulario dipendenti si apre senza toolbar , ma quando passo da un altro formulario non si vede nulla , openoffice si chiude.
Aiuto!
Codice: Seleziona tutto
Sub AutoExec
On Error Goto HandleError
Dim LastFrame As Object
Dim NumFrames As Integer
Static FormDocs As Object
Dim DBDoc As Object
Dim ImpName As String
Dim DataSource As Object
Dim Conn As Object
Dim Args(1) As New com.sun.star.beans.PropertyValue
Dim FormName As String
Dim FormDoc As Object
FormName="Dipendenti" REM CHANGE TO YOUR FORM NAME
ImpName="com.sun.star.comp.dba.ODatabaseDocument"
NumFrames=StarDesktop.Frames.Count
LastFrame=StarDesktop.Frames.getByIndex(NumFrames-1)
If LastFrame.Frames.Count>1 Then
Exit Sub
End If
If Not (LastFrame.Controller.Model.ImplementationName=ImpName) Then
Exit Sub REM not a db doc
End If
DataSource=LastFrame.Controller.DataSource
DBDoc=DataSource.DatabaseDocument
FormDocs=DBDoc.FormDocuments
Conn=DataSource.getConnection("","") REM no user/password
Args(0).Name="ActiveConnection" : Args(0).Value=Conn
if FormDocs.hasByName(FormName) Then
FormDoc=FormDocs.loadComponentFromURL(FormName,"_self",2,Args() )
FormDoc.CurrentController.Frame.ContainerWindow.setFocus()
REM istruzione che nasconde il menu di ooffice
oLMgr = FormDoc.CurrentController.Frame.LayoutManager
oLMgr.setVisible(False)
oLMgr.hideElement("private:resource/menubar/menubar")
End If
HandleError:
If Err<>0 Then
Exit Sub
End If
REM istruzione che nasconde la finestra iniziale di oobase tabelle ricerche formulari e rapporti
oWin = starDesktop.getCurrentFrame.getContainerWindow()
oWin.visible = false
End Sub