Ancrage de la fenêtre

Ancrage de la fenêtre - VB/VBA/VBS - Programmation

Marsh Posté le 23-08-2002 à 15:12:18    

Salut :hello:
J'ai créé un Userform et je lui ai donné des dimensions  
de manière à ce qu'il remplisse tout l'écran (plein écran).
Je ne veux pas que les utilisateurs puissent voir ce qu'il
y a derrière en déplaçant cette fenêtre.
Ma question, c'est comment faire pour pouvoir ancrer cette
fenêtre ? Quelle est la commande à taper ou l'option à activer :??:
Merci d'avance :hap:

Reply

Marsh Posté le 23-08-2002 à 15:12:18   

Reply

Marsh Posté le 23-08-2002 à 15:23:56    

Il me semble qu'une feuille MAXIMISEE ne peut être déplacée (test à faire avec IE par ex). Si on donne à une feuille des dimensions qui sont celles de l'écran, je crains qu'on puisse la bouger.
 
S'il n'y a pas de boutons activables en haut à droite (ou les intercepter), ça empêche de réduire/iconiser pour voir celle qui est derrière.

Reply

Marsh Posté le 23-08-2002 à 15:34:26    

En fait, j'ai fait un plein écran manuellement.
Le test avec IE est OK si la fenêtre est en plein écran.
Mais si on l'ajuste manuellement à la taille de l'écran,  
on peut la déplacer en cliquant sur le haut de la fenêtre
(dans le bleu) et que l'on bouge la souris.
C'est la même chose pour moi.
Donc selon toi, on ne peut pas ancrer la fenêtre lorsqu'elle
est dans cette situation ?

Reply

Marsh Posté le 23-08-2002 à 15:36:27    

Quant aux boutons qui sont en haut à droite de ma fenêtre,  
il n'y a que la croix pour fermer : c'est tout !
 :heink:

Reply

Marsh Posté le 23-08-2002 à 16:20:13    

Suffit de pas mettre de border, tout simplement.
Si tu veux permettre le déplacement de ta forme sans border :
 
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
                                                                       ByVal wParam As Long, lParam As Any) As Long
 
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2
Public Declare Sub ReleaseCapture Lib "user32" ()
 
public sub MoveWindow()
 
  Call ReleaseCapture
  Call SendMessage(hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
 
end Sub

Reply

Marsh Posté le 26-08-2002 à 12:46:31    

Qu'entends-tu par "ne pas mettre de border" ?
Moi, j'utilise la fonction : Application.WindowState = xlMinimized
Mais je peux quand même déplacer la fenêtre !

Reply

Marsh Posté le 26-08-2002 à 13:00:26    

Désolé, mais j'ai dis une connerie :
c'est "Application.WindowState = xlMaximized"
Mais ça ne change rien!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed