Userform

[Arapao]

Bonjour le forum,

je recherche comment enlever la croix en haut à droite (celle qui sert à fermer) dans un userfom.

Merci beaucoup

 

[albert]

bonjour Arapao,
tu peux essayer :
Ce site n'existe plus

pour moi ça marche


albert

 

[excalibur]

bonjour Arapao , le forum le code = 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()
On Error Resume Next
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 je te conseil de mettre ce code c est beaucoup plus stable Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = CloseMode = vbFormControlMenu
End Sub ' salutations

 

[excalibur]

salut albert pas vu salutations

 

[Arapao]

Merci beaucoup à excalibur et albert


Bonne journée à tous


:lol:

 

[jpcwe]

croix dans la barre bleu

bonjour,

J'essaye d'enlever la croix dans la barre bleu du USRFORM, mais en copiant le code donné sur ce forum
Lien supprimé

je n'obtiens aucun résultat.
que veux dire 'thunder' dans le code?

merci