BUTTON DÉMARRER, CHANGER L'ASPECT

- - Dernière réponse : Noiretulipe
Messages postés
165
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
13 juillet 2008
- 7 févr. 2003 à 16:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/1094-button-demarrer-changer-l-aspect

Noiretulipe
Messages postés
165
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
13 juillet 2008
-
benh ... ça ne doit pas marcher sous XP ...... Ou, en d'autre cas je suis trop con pour .... :)
SuperClic
Messages postés
48
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
3 octobre 2002
-
Trop bien !! Je met 10 !
Au fait, neo2097 pour les API: www.AllAPI.net

:-)
cs_cyrilp
Messages postés
140
Date d'inscription
mercredi 4 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009
-
Sympa,

Allez maintenant fo se mettre à développer un concurrent pour les softs comme Window Blinds... Et refaire toute l'interface de Windows !

Je met 8 !

A+
Pas mal pas mal.

Le seul problème c qu'on peut pas remttre l'ancien..
marche pas, c de la merde, si tu veut perso windows mais toi a linux !
Comment vous trouvez les bons api au bon moment, moi je n'est pas de liste d'api ni de descriptions de fonctions. Ou puis-je trouver une liste des fonctions Api. Merci
Pourriez-vous au moin la noter
==========================
SA MARCHE LE CODE JE M'EN SERT POUR CHANGER MON BOUTON A CHAQUE DÉMARRAGE
==========================
Si vous arrêter le prog vous perder votre image de démarrer mais c'est pas grave en redémarrant vous la retrouver pis vous avez juste a mettre sa dans la barre des tâche pis si vous prenez le zip vous aurez un mouseover
1) Screenshot ??? Je le vois pas !!!

2) Ca marche pas !!!
Sa fait tu votre affaire maintenant
Dans le screenShot ya du texte a cause que dans l'image j'ai mis le texte

Je vais lui mettre un ZIP, jésitait un peu sa vient de planetsourcecode.com et j'ai enlever les commentaires

ZIP bientôt @+
CÉ normal dans l'image j'ai mis le texte
MAIS COMMENT TROUVEZ VOUS TOUT CA DANS L'API ?
et les zips c est fait pour les chiens ?
par contre max, dans le screenshot, ya encore le texte sur le bouton...apres le changement de l'image...C pas normal...
'Il faut : -1 Form (peu importe le nom)
' -1 PictureBox ('Picture1')(le nom d'origine, quoi)
' -1 Bouton ('Command1')(idem)
'
'C'est la version legerement corrigée
'il y avait quelques lignes en double
'sinon c cool, ca fonctionne bien.
'Un truc marrant, quand l'appli se
'ferme, le bouton demarrer n a plus
'd'images, mais le quadrillage de la
'grille de vb...
'
'------DEBUT DU CODE-------
'
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Const GW_NEXT = 2
Const GW_CHILD = 5
Const Delay = 15
Const BM_SETIMAGE = &HF7
Dim Stbutt As Long


'Autre fonctions
Sub GetStbutt()
Dim dt, hwnda As Long
Dim clstr As String * 14
dt = GetDesktopWindow()
hwnda = GetWindow(dt, GW_CHILD)
Do While hwnda <> 0
GetClassName hwnda, clstr, 14
If Left(clstr, 13) = "Shell_TrayWnd" Then
hwnda = GetWindow(hwnda, GW_CHILD)
Do While hwnda <> 0
GetClassName hwnda, clstr, 7
If Left(clstr, 6) = "Button" Then
Stbutt = hwnda
Exit Sub
End If
hwnda = GetWindow(hwnda, GW_NEXT)
Loop
End If
hwnda = GetWindow(hwnda, GW_NEXT)
Loop
End Sub

Private Sub Command1_Click()
'ces deux lignes executent le code
GetStbutt
PostMessage Stbutt, BM_SETIMAGE, 0, Picture1.Picture.Handle

End Sub

'voila tout
'c'est fini
'faudrait essayer de faire une image
'qui soit la copie du bouton demarrer d'origine
'et executer le code avec cette image la dans
'form.unload mais je sais pas si ca va marcher...
'nan d'ailleurs, ca marche pas...
Donnner une note un commentaire