[RISOLTO][Base] Formulario Massimizzato

[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

[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

[Jack]

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)