Button démarrer, changer l'aspect

Soyez le premier à donner votre avis sur cette source.

Vue 6 633 fois - Téléchargée 436 fois

Description

Changer l'aspect du boutton démarrer

Source / Exemple :


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 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 BM_SETIMAGE = &HF7
Const Delay = 15
Const BM_SETIMAGE = &HF7
Dim Stbutt As Long
'Exécuter le code

GetStButt
PostMessage Stbutt, BM_SETIMAGE,0,Picturebox1.Picture.Handle

'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

Conclusion :


Voir le screenshot
Défault, si vous arrêter le prog vous n'aurez plus d'image sur le boutton mais le menu marche quand même

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

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 !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.