croix userform

vioila

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

comme ca sa empeche de l'utiliser car il n y a pas moyen de l'enlever totalement

Munchkin

merci pour l'info

t sur de toi on peut pas l'enlever


charpy

salut,

pense a utiliser la fonction de recherche avant de poser une question
rien que avec le mot "croix" tu as pas mal de solus.
Lien supprimé

bonjour charpy,Munchkin et le forum

voila le code pour enlever la croix de ton USF,mais n'oublis pas de mettre un bouton pour fermer l'USF

Option Explicit
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
Dim Feuille As String
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF

End Sub

@ plus
petchy

Avant de lire le massage de Petchy oui j'étais sur, mais là si je le dis je serias monteur.

Oui je suis sur que tu peux l'enlever grace à petchy

Munchkin