Enlever fermer dans un userform

F

Fred

Guest
Comment faire pour que la croix pour fermer les fenetres (en haut a droite dans la barre de titre) n'apparaisse pas dans mes userforms ?
 
F

Fred

Guest
Non, c'est bon j'ai trouvé le moyen de le désactiver, c'est :

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

Mais si vous trouvez le moyen de supprimer la croix contactez moi !
 
S

Stéphane

Guest
et voilà :

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

End Sub

bye
stephane
 

Discussions similaires

Réponses
1
Affichages
293
Réponses
7
Affichages
423

Statistiques des forums

Discussions
312 797
Messages
2 092 212
Membres
105 286
dernier inscrit
SoCa