Supprimer la Croix de Fermeture d'un USF

[YANN-56]

Bonsoir à ceux qui passeront par ici,

Je l'ai fait; je l'ai dans mes archives, mais je ne parviens pas à fiche la main dessus.
(En fouillant sur ce site où le sujet à été moult fois évoqué.... Je suis un peu noyé!)

Dans l'exemple joint, je supprime la totalité de la Bande Bleue.
Cependant, dans mon appli en cours, j'ai besoin de pouvoir déplacer l'USF.

Donc plus de Croix de Fermeture, mais le reste conservé!

Je fais appel à vous pour gagner un grand morceau de temps dans mes recherches.

Merci d'avance.

Yann

P.S. Il va falloir qu'un jour je mette de l'ordre dans mes bidouilles! 😡

 

[PMO2]

Re : Supprimer la Croix de Fermeture d'un USF

Bonjour,

Essayez le code suivant

Private Declare Function GetWindowLongA& Lib "User32" ( _
  ByVal hWnd As Long, ByVal nIndex As Long)
Private Declare Function SetWindowLongA& Lib "User32" ( _
  ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
Private Declare Function FindWindowA& Lib "User32" ( _
  ByVal lpClassName As String, ByVal lpWindowName As String)

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

Cordialement.

PMO
Patrick Morange

 

[YANN-56]

Re : Supprimer la Croix de Fermeture d'un USF

Merci Patrick,

Cela fonctionne à souhait.

Outre l'efficacité, cela va me permettre de mieux comprendre le code
que j'utilisais pour la totalité de la bande bleue.

C'est très sympa de m'avoir aidé.

Bonne soirée ou Bonne journée, suivant l'heure.

Amicalement.

Yann