salut,
<li>
Vous êtes ici :
Thèmes / [forum-VISUAL-BASIC_1.aspx Visual Basic 6] / [theme-DIVERS_220.aspx Divers] / [theme-DEBUTANTS_226.aspx Débutants] / desactiver croix</li>
userform = VBA , pas VB6 !
merci de faire attention aux rubriques
<hr />
'
SUPPRIMER LA CROIX D'UN USERFORM (VBA)
'
http://www.codyx.org/snippet_supprimer-croix-userform-vba_257.aspx#826
' Posté par [
=647037 mortalino ] le 31/10/2006
<hr />
' *** A placer dans les déclarations Du UserForm
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
' *** Placer cette procédure aussi dans le
UserForm
' dont la croix doit être
supprimée
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
'----------------------------------------------------------------
'Remarques :
'Nota : Si pendant l'affichage du UserForm le Caption est modifié,
la croix réapparaitra !
<hr size ="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp