slt le forum
j'ai développé une interface et je veux ajouter des boutons pour agrandir et réduire l'interface; j'ai trouvé le code correspondent et je l'ai écris mais malheureusement ça n'a pas fonctionner, j'ai testé le même code avec un autre fichier et ça fonctionne bien.
J'ai pas compris le problème.je peux pas joindre le fichier puisque le fichier dépasse les limites autorisés par le forum le code:
Private Declare Function GetSystemMenu Lib "User32" ( _
ByVal hWnd As Long, _
ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu _
Lib "User32" ( _
ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Private Declare Function FindWindow _
Lib "User32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong _
Lib "User32" _
Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) 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()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, _
Me.Caption)
SetWindowLong hWnd, _
-16, _
GetWindowLong(hWnd, -16) Or 196608
End Sub
j'ai développé une interface et je veux ajouter des boutons pour agrandir et réduire l'interface; j'ai trouvé le code correspondent et je l'ai écris mais malheureusement ça n'a pas fonctionner, j'ai testé le même code avec un autre fichier et ça fonctionne bien.
J'ai pas compris le problème.je peux pas joindre le fichier puisque le fichier dépasse les limites autorisés par le forum le code:
Private Declare Function GetSystemMenu Lib "User32" ( _
ByVal hWnd As Long, _
ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu _
Lib "User32" ( _
ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Private Declare Function FindWindow _
Lib "User32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong _
Lib "User32" _
Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) 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()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, _
Me.Caption)
SetWindowLong hWnd, _
-16, _
GetWindowLong(hWnd, -16) Or 196608
End Sub