OVH Cloud OVH Cloud

Contrôle pour redimensionner un userform

3 réponses
Avatar
Pierre Archambault
Bonjour à tous,

J'ai un classeur qui utilise un userform pour l'affichage d'un fichier
d'aide .PDF

J'utilise le contrôle "WebBrowser" pour afficher ce fichier. J'ai déterminé
une taille par défaut de 640 x 480 pour le userform lui-même. Cependant je
voudrais donner à l'usager la chance de modifier la taille de la fenêtre
comme on peut normalement le faire en utilisant le coin inférieur droit.

Je ne vois pas de propriété au userform qui permette de changer sa taille.
Alors j'ai cherché parmi les contrôles disponibles mais je n'arrive pas à
trouver celui qui fera le travail.

J'espère que l'un de vous saura m'indiquer le chemin à suivre.

Merci d'avance

Pierre

3 réponses

Avatar
michdenis
Bonjour Pierre,

Voici un fichier exemple de Michel Perron sur le sujet :


http://cjoint.com/?mvbohHhe5m


Salutations!



"Pierre Archambault" a écrit dans le message de news:
8L_pf.68039$
Bonjour à tous,

J'ai un classeur qui utilise un userform pour l'affichage d'un fichier
d'aide .PDF

J'utilise le contrôle "WebBrowser" pour afficher ce fichier. J'ai déterminé
une taille par défaut de 640 x 480 pour le userform lui-même. Cependant je
voudrais donner à l'usager la chance de modifier la taille de la fenêtre
comme on peut normalement le faire en utilisant le coin inférieur droit.

Je ne vois pas de propriété au userform qui permette de changer sa taille.
Alors j'ai cherché parmi les contrôles disponibles mais je n'arrive pas à
trouver celui qui fera le travail.

J'espère que l'un de vous saura m'indiquer le chemin à suivre.

Merci d'avance

Pierre
Avatar
Michel Pierron
Bonjour Pierre;
Au + court:

Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String _
, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long _
, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub UserForm_Initialize()
hwnd = FindWindow(vbNullString, Me.Caption)
SetWindowLong hwnd, -16, &H84CC0080
End Sub

MP

"Pierre Archambault" a écrit dans le
message de news: 8L_pf.68039$
Bonjour à tous,

J'ai un classeur qui utilise un userform pour l'affichage d'un fichier
d'aide .PDF

J'utilise le contrôle "WebBrowser" pour afficher ce fichier. J'ai
déterminé

une taille par défaut de 640 x 480 pour le userform lui-même. Cependant je
voudrais donner à l'usager la chance de modifier la taille de la fenêtre
comme on peut normalement le faire en utilisant le coin inférieur droit.

Je ne vois pas de propriété au userform qui permette de changer sa taille.
Alors j'ai cherché parmi les contrôles disponibles mais je n'arrive pas à
trouver celui qui fera le travail.

J'espère que l'un de vous saura m'indiquer le chemin à suivre.

Merci d'avance

Pierre





Avatar
Pierre Archambault
Merci infiniement Michel

Pierre

"Michel Pierron" a écrit dans le message de
news:%
Bonjour Pierre;
Au + court:

Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String _
, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long _
, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub UserForm_Initialize()
hwnd = FindWindow(vbNullString, Me.Caption)
SetWindowLong hwnd, -16, &H84CC0080
End Sub

MP

"Pierre Archambault" a écrit dans le
message de news: 8L_pf.68039$
Bonjour à tous,

J'ai un classeur qui utilise un userform pour l'affichage d'un fichier
d'aide .PDF

J'utilise le contrôle "WebBrowser" pour afficher ce fichier. J'ai
déterminé

une taille par défaut de 640 x 480 pour le userform lui-même. Cependant
je


voudrais donner à l'usager la chance de modifier la taille de la fenêtre
comme on peut normalement le faire en utilisant le coin inférieur droit.

Je ne vois pas de propriété au userform qui permette de changer sa
taille.


Alors j'ai cherché parmi les contrôles disponibles mais je n'arrive pas
à


trouver celui qui fera le travail.

J'espère que l'un de vous saura m'indiquer le chemin à suivre.

Merci d'avance

Pierre