enlever la croix sur un USF

[petchy]

Le Forum

voila j'ai trouvé se code sur un autre site pour enlever la croix sur un USF mais ça ne fonctionne pas,pouvez vous me dire ce qui ne va pas.

​

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 Declare Function GetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Sub UserForm_Initialize()
Dim hWnd As Long
'''''''''''initialisation des controles

'enlève la croix
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub

 

[@+Thierry]

Salut Petchy, le forum

Je n'ai pas regardé, car si tu dis que çà ne marche pas je ne vais chercher à faire fonctionner une API pour faire ceci puisque j'en ai déjà mis dans le forum qui fonctionnent sous toutes les version de Windows !!!

Regarde ce fil (par exemple) => Lien supprimé.....

Bonne soirée
@+Thierry

 

[Vériland]

Bonsoir Petchy Thierry et le forum,

Pour l'API croix, n'était-ce pas plutôt ce fil ?

Par contre Thierry, pour ton lien => DEMO UserForm Bouton "Home Flottant", il me semble plutot que ce soit Lien supprimé...l'autre c'est pour un mot de passe...loool

enfin...y'a tout c'qui faut là...

S'cousie...j'faisais que passer...lool

 

[Ti]

pourquoi encore et toujours se compliquer la vie avec cette croix, alors qu'on peut très facilement gérer ça par l'événement QueryClose ?
N'est-ce pas Vincent 🙂)

 

[Vériland]

Hi hi hi...tout à fait Thierry

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

Tiens pour le coup je vous donne l'origine de ce code...il se trouve dans le fichier Lien supprimé

 

[@+Thierry]

Et bon soir !! 🙂 Ti re Vériland

Oh moi je me suis écroulé Lien supprimé et j'y ai mélangé les pinceaux entre la croix et le password !!

non Vériland, je parlais de Lien supprimé (cette fois ci c'est le bon lien !!)

D'ailleurs Petchy m'a même confirmé que cet appel API fonctionnait chez lui le 20-05-03 17:22...

Mais sinon oui oui Tout à fait Thierry !!! mais bon, pour mon Bouton Home Flottant c'était ...... Just For the Fun...... As Usual !! lol

Bonne nuit
@+Thierry

 

[petchy]

merci les gars,sympa
je vais opter pour "QueryClose"

@ plus
petchy

 

[Vériland]

ouarf!...t'es surmené Thierry ce soir...ton lien => DEMO UserForm Bouton "Home Flottant" sans croix, sans barre de titre, sans........ c'est exactement le même que celui que j'ai donné plus haut...loool

 

[@+Thierry]

Ah oui Vincent

J'avais vu que le premier !! vers le fil 9252 !!!

bon ben comme çà on l'aura ce lien sur Lien supprimé

Oui Petchy, si c'est juste pour contrôler une sortie inopinée du UserForm, je pense que tu prends une sage décision !

;-)
@+Thierry

 

[petchy]

salut @+Thierry

désolé,mais je ne me souvenait plus que j'avais posé cette question.
vivement les vacances