Helldo
XLDnaute Nouveau
Hello le forum !
Voila j'ai récupérer de Marc_du_78 le bout de code ci-dessous pour faire ce que l'intitulé indique. Le problème est que j'ai trois userform, et ce code ne marche que sur 2 d'entre eux seulement... l'erreur pointe sur : "-> style =...". Message "erreur de compilation _ variable non définie"
Pourquoi dans ce userform et pas dans les deux autres ?!?
Quelqu'un aurait-il une idée sur ce problème ? voici le code de Marc_du_78 :
Merci d'avance !
Voila j'ai récupérer de Marc_du_78 le bout de code ci-dessous pour faire ce que l'intitulé indique. Le problème est que j'ai trois userform, et ce code ne marche que sur 2 d'entre eux seulement... l'erreur pointe sur : "-> style =...". Message "erreur de compilation _ variable non définie"
Pourquoi dans ce userform et pas dans les deux autres ?!?
Quelqu'un aurait-il une idée sur ce problème ? voici le code de Marc_du_78 :
Code:
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 Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
'--------------------------------------------
Private Sub UserForm_initialize()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, Me.Caption)
style = GetWindowLong(hwnd, -16) And Not &HC00000
SetWindowLong hwnd, -16, style
DrawMenuBar hwnd
end sub
Merci d'avance !
Dernière édition: