OVH Cloud OVH Cloud

resizer mon formulaire

1 réponse
Avatar
Eddy Maue
Bonsoir,

toujour avec mon p'tit formulaire qui flotte sur mes feuilles Xl j'ai besoin de
le resizer avec la souris.

je n'ai pas trouver la propiété qui me pemettre de le faire

vous avez une p'tite idée ?

1 réponse

Avatar
Michel Pierron
Bonjour Eddy;
Dans le module UserForm:

Private Declare Function FindWindow& Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function SetWindowLong& Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd&, ByVal nIndex& _
, ByVal wNewWord&)

Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, Me.Caption)
SetWindowLong hWnd, -16, &H84CC0080
End Sub

MP

"Eddy Maue" <eddymaue hotmail.com> a écrit dans le message de news:

Bonsoir,

toujour avec mon p'tit formulaire qui flotte sur mes feuilles Xl j'ai
besoin de le resizer avec la souris.

je n'ai pas trouver la propiété qui me pemettre de le faire

vous avez une p'tite idée ?