Changer le texte du bouton démarrer !

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 853 fois - Téléchargée 39 fois

Commenter

Contenu du snippet

Voila un petit code pour changer le texte du bouton démarrer.
Très simple d'utilisation

Utilisation :
Private Sub Command1_Click()
Dim Var1 as string
Var1 = "alors!"
textedemarrer InputBox("Texte")
'ou
textdemarrer "ca"
textdemarrer var1
'etc...
End Sub

Source / Exemple : 


'dans un module
   
   'Declaration d'APIS
   Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
   Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   Public Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
   Public Const WM_SETTEXT = &HC 'CONSTANTE pour mettre texte
   Dim wnd As Long, tWnd As Long 'Variables pour stocker le hwnd du bouton démarrer
   Public Function ConvertirStringByte(Letexte As String) As Variant  'Fonction pour convertir une chaine en byte(tableau de byte)
       Dim Tablo() As Byte
       Dim Cnt As Integer
       Dim Ln As Integer
       Ln = Len(Letexte)
       ReDim Tablo(Ln)
       For Cnt = 0 To Ln - 1
           Tablo(Cnt) = Asc(Mid(Letexte, Cnt + 1, 1))
       Next Cnt
       Tablo(Ln) = 0
       ConvertirStringByte = Tablo
   End Function
   
   Public Sub TexteDemarrer(Letexte As String) 'FOnction principale pour charnger le texte
   Dim loctet() As Byte
       tWnd = FindWindow("Shell_TrayWnd", "") 'Rehcercher le wnd du bouton
       wnd = GetWindow(tWnd, 5)
       ReDim loctet(Len(Letexte) + 1)
       loctet = ConvertirStringByte(Letexte)
       Call SendMessage(wnd, WM_SETTEXT, 0&, loctet(0))
   End Sub
   
   '******************************************************

Conclusion :


Voila,

Postez des commentaires :)

A voir également

Ajouter un commentaire

Commentaires

Signaler
robapt
Messages postés
114
Date d'inscription
mardi 6 juillet 2004
Statut
Membre
Dernière intervention
4 décembre 2009
 -
WOW il est trop bien ton truc c cool pour les troyen ^^
LOL
Signaler
mandark
Messages postés
16
Date d'inscription
dimanche 25 janvier 2004
Statut
Membre
Dernière intervention
10 mai 2006
 -
Aucun de ces code ne fonctionne sous 2000, c'est d'ailleur trés étrange, dans microsoft spy++ j'ai bien "shell_traywnd / "314" Button" ( oui j'avait donné 314 pour tester comme nom de bouton )
Donc il renomme bien le bouton, mais à l'écran, on voit toujours "Démarrer" et pas "314" ...
Signaler
cs_JLN
Messages postés
373
Date d'inscription
samedi 1 juin 2002
Statut
Membre
Dernière intervention
17 juin 2013
 -
kitgen ici c'est pour les développeurs, si t'as pas vb c'est pas la peine !
Signaler
JENOO
Messages postés
10
Date d'inscription
mercredi 5 mars 2003
Statut
Membre
Dernière intervention
8 janvier 2006
 -
Salut, J'ai testé ton code sur WIn 2000 et je pense que ça ne fonctionne pas. A+ , JENOO.
Signaler
KiTGeN
Messages postés
6
Date d'inscription
vendredi 7 mars 2003
Statut
Membre
Dernière intervention
11 mars 2003
 -
Je suis nouveau dans tt ca, j ai pas trop cimpris, on fais comment en fait? On ouvre un nouveau fichier bloc note avec une extension bien precise? Le fichier existe deja et il faut juste le modifier? Dites moi ou il faut le mettre, avec kel extension...Merci :o)
Afficher les 17 commentaires
S'inscrire maintenant

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.

Du même auteur (AtomWare)