Re: [prog] Agrandir la fenêtre et message "activer les macros"

Tue, 04 Jul 2006 11:33:11 -0700 

Bonsoir Hanène,

Hanène JEBARI wrote:
> Bonjour,
> 
> Comment fait-on pour agrandir au  la fenetre d'un formulaire à son
> chargement ? Pas en plein écran juste l'agrandir pour qu'elle prenne
> tout l'écran.
> 
> Est-il possible de désactiver le message "Avertissement de sécurité : ce
> document contient de smacros. Voulez-vous les activez ?" ????
> 
> 
> Merci
> 
Il y a plusieurs possibilités de travailler sur le format window.
Voici une idée :

Sub ResizeWindow()
   Dim oWindow As Object, oSizeWindow As Object
   Dim iWHeight As Integer, newHeight As Integer
   Dim iWWidth  as Integer, newWidth As Integer
   Dim xPos as Integer, yPos as Integer
   Dim sMsg As String
   Dim iRep As Integer
   oWindow = StarDesktop.getCurrentFrame().getContainerWindow()
   oSizeWindow = oWindow.getPosSize()
   'xray oSizeWindow
   With oSizeWindow
     iWHeight = .Height
     iWWidth  = .Width
     xPos     = .X
     yPos     = .Y
   End With
   'Nouvelle taille écran
   newHeight = 768
   newWidth  = 1024
   oWindow.setPosSize( xPos, yPos, newWidth, newHeight, 15 )
End Sub


-- 
Francois Gatto

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à