userform

Bonjour FB,

'Dans le haut du module formulaire, déclaration des API
Private Declare Function FindWindowA& Lib "user32" _
(ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function GetSystemMenu& Lib "user32" _
(ByVal hWnd&, ByVal bRevert&)
Private Declare Function RemoveMenu& Lib "user32" _
(ByVal hMenu&, ByVal nPosition&, ByVal wFlags&)

'----------------------
Private Sub UserForm_Initialize()

Dim hWnd&, hSysMenu&
hWnd = FindWindowA(vbNullString, Me.Caption)
hSysMenu = GetSystemMenu(hWnd, 0)
RemoveMenu hSysMenu, &HF060, 0

End Sub
'----------------------

P.S. Prévoir un bouton de fermeture !!!


Salutations!



"FB" <FB@discussions.microsoft.com> a écrit dans le message de news: 67663AD6-B94A-4144-B56C-E96FB689BCCA@microsoft.com...
bjr tout le monde

un petite question me passais a l'esprit....

Comment faire pour grisé la croix de fermeture des userform???

FB
MErci

Bonjour,

Outre ce que te propose, Michel, qui répond précisément à   ta demande, tu peux aussi rendre la croix (ou la case sur Mac)
de fermeture inopérante avec cette routine :

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

Rien ne t'empêche d'ajouter un message pour dire aux utilisateurs, q ue seul l'usage des boutons est autorisé.

bjr tout le monde

un petite question me passais a l'esprit....

Comment faire pour grisé la croix de fermeture des userform???

FB
MErci

--
Cordialement,

Michel Gaboly
www.gaboly.com