Effacement croix sur userform

[tartare2009]

Bonjour à tous,
je souhaiterais effacer les croix de tous mes userform et j'ai trouvé ces lignes de code:

--------------------------------------------------------------------------
'-- Dans la partie Déclaration de la Form :
Private Const SC_CLOSE = &HF060&
Private Const MF_BYCOMMAND = &H0&

Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

--------------------------------------------------------------------------
'-- Dans l'évènement Initialise de la Form :
Private Sub UserForm_Initialize()
Dim hSysMenu As Long
Dim MeHwnd As Long
MeHwnd = FindWindowA(vbNullString, Me.Caption)
If MeHwnd > 0 Then
hSysMenu = GetSystemMenu(MeHwnd, False)
RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND
Else
MsgBox "Handle de " & Me.Caption & " Introuvable", vbCritical
End If
End Sub

Je sais comment inserer du contenu dans l'évenement initialise de l'userform, mais qu'est-ce que la partie de déclaration de l'UF???????
Vous etes priéés de ne pas rire......


Merci de m'aider pour ce problème si stupide..

 

[tototiti2008]

Re : Effacement croix sur userform

Bonjour tartare,

C'est tout au début du code de l'userform (donc au-dessus de Userform_Initialize, en haut de la page)

 

[tartare2009]

Re : Effacement croix sur userform

merci beaucoup tototiti.
J'aurai appris quelque chose aujourd'hui!!

 

[tartare2009]

Re : Effacement croix sur userform

Pour ceux qui sont intéressés, le premier code que j'ai inséré ne fonctionne pas mais celui-ci est OK.😀

'-- Dans la partie Déclaration de la Form :
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

--------------------------------------------------------------------------

Private Sub UserForm_Initialize()
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF

 

[laetitia90]

Re : Effacement croix sur userform

bonjour tous
tu peus faire plus simple pour empecher de fermer par la croix!!! au lieu de la supprimer

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

 

[YANN-56]

Re : Effacement croix sur userform

Bonjour tartare, aux participants,

Tu peux aussi supprimer totalement la Bande Bleue, si tu n'as pas besoin de déplacer ton USF:

Dans un module:

Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

Sub CACHER_BANDE_BLEUE(USF As UserForm)
Dim hWnd&
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", USF.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And Not &HC00000: DrawMenuBar hWnd
End Sub

Dans l'USF:

Private Sub UserForm_Initialize()
CACHER_BANDE_BLEUE Me
End Sub

Amicalement.

Yann