Sup le cadre d'un USF

[Thomas®]

Bonjour le forum,

j'ai un USF ou je souhaite sup le cadre avec le bouton 'la croix',

alors j'y suis arrivé mais ce qui est etrange c'est qu'apres avoir retouché mon USF le cadre est revenu.

je suis desolé de ne pouvoir joindre mon fichier car il est trop gros.

je vous joint le code que j'ai utilisé pour sup le cadre

CODE dans l'initializ de l'USF

Dim hWnd As Long, Style As Long
  hWnd = FindWindow(vbNullString, Me.Caption)
  Style = GetWindowLong(hWnd, -16) And Not &HC00000
  SetWindowLong hWnd, -16, Style
  DrawMenuBar hWnd
Etiquette '

CODE dans la declaration de mon module

Public Declare Function FindWindow Lib 'user32' Alias 'FindWindowA' _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowLong Lib 'user32' Alias _
'GetWindowLongA' (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib 'user32' Alias 'SetWindowLongA' _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function DrawMenuBar Lib 'user32' (ByVal hWnd As Long) As Long

si quelqu'un connait une autre méthode ce serait super
je suis sous excel 97 avec windows XP

D'avance merci
Thomas®

 

[Thomas®]

:woohoo: Hello le forum,

J'ai trouvé seul mon problème, et afin que cela puisse servir à quelqu'un .

si il n'y a rien d'ecrit dans Caption de l'USF il ne peut pas disparaitre.

Alors pourquoi ?? je ne sais pas mais cela est comme ca.

Voilà

Bon courage les Xlnote
Thomas®

 

[Denis]

Bonjour Thomas et le Forum
il faut un titre à ton USF car dans le code
hWnd = .... tu as Me.Caption à la fin qui représente le Titre de ton USF
voilà, pour info
Bon courage et à +
Denis