Pagina 1 di 1
[RISOLTO][Base] Formulario Massimizzato
Inviato: venerdì 11 maggio 2012, 13:15
da Jack
Se imposto un Formulario minimizzato 600x400 la volta successiva il form si apre a queste dimensioni, vorrei invece poter aprire un Formulario Massimizzato, c'è modo via codice di ottenere questa cosa ?. Mi basterebbe anche un workaround, ad esempio richiamare via codice una API specifica di Windows che mi massimizza un Form, se invece è possibile tramite le funzioni intrinseche di Openoffice serebbe meglio, così funge anche con Linux.
Jack
Re: [Base] Formulario Massimizzato
Inviato: venerdì 11 maggio 2012, 16:36
da codicem
Ciao con questo codice puoi aprire un formulario all'interno di base impostando la risoluzione
Codice: Seleziona tutto
Sub ApriForm
Dim InteractionHandler As Object
InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
ThisDatabaseDocument.CurrentController.connect("","")
FormDoc = ThisDatabaseDocument.FormDocuments.getByName ( "NomeTuoForm" ).open
With FormDoc.GetCurrentController().GetFrame().GetContainerWindow()
.SetPosSize(0,0,,,com.sun.star.awt.PosSize.POS) 'posizione finestra
.SetPosSize(,,1280,1024,com.sun.star.awt.PosSize.SIZE) ' grandezza finestra
.setFocus()
End With
End Sub
Re: [Base] Formulario Massimizzato
Inviato: domenica 13 maggio 2012, 9:47
da Jack
codicem ha scritto:Ciao con questo codice puoi aprire un formulario all'interno di base impostando la risoluzione
Codice: Seleziona tutto
Sub ApriForm
Dim InteractionHandler As Object
InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
ThisDatabaseDocument.CurrentController.connect("","")
FormDoc = ThisDatabaseDocument.FormDocuments.getByName ( "NomeTuoForm" ).open
With FormDoc.GetCurrentController().GetFrame().GetContainerWindow()
.SetPosSize(0,0,,,com.sun.star.awt.PosSize.POS) 'posizione finestra
.SetPosSize(,,1280,1024,com.sun.star.awt.PosSize.SIZE) ' grandezza finestra
.setFocus()
End With
End Sub
Mi è utile mi permette di tenere conto anche delle postazioni con gli utenti che tengono la barra o i Panel (gnome) alzati. Grazie per la risposta.
Jack (MN)