Supprimer la Croix de Fermeture d'un USF

YANN-56

XLDnaute Barbatruc
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! :mad:
 

Pièces jointes

  • QUE_BLEUE.xls
    28 KB · Affichages: 66

PMO2

XLDnaute Accro
Re : Supprimer la Croix de Fermeture d'un USF

Bonjour,

Essayez le code suivant

Code:
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

XLDnaute Barbatruc
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
 

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 847
dernier inscrit
Djigbenou