Changer le texte du bouton démarrer !

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 235 fois - Téléchargée 41 fois

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
robapt Messages postés 114 Date d'inscription mardi 6 juillet 2004 Statut Membre Dernière intervention 4 décembre 2009
6 mars 2005 à 16:15
WOW il est trop bien ton truc c cool pour les troyen ^^
LOL
mandark Messages postés 16 Date d'inscription dimanche 25 janvier 2004 Statut Membre Dernière intervention 10 mai 2006
29 déc. 2004 à 09:36
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" ...
cs_JLN Messages postés 371 Date d'inscription samedi 1 juin 2002 Statut Membre Dernière intervention 17 juin 2013
12 juin 2003 à 12:19
kitgen ici c'est pour les développeurs, si t'as pas vb c'est pas la peine !
JENOO Messages postés 10 Date d'inscription mercredi 5 mars 2003 Statut Membre Dernière intervention 8 janvier 2006
16 mars 2003 à 09:51
Salut, J'ai testé ton code sur WIn 2000 et je pense que ça ne fonctionne pas. A+ , JENOO.
KiTGeN Messages postés 6 Date d'inscription vendredi 7 mars 2003 Statut Membre Dernière intervention 11 mars 2003
7 mars 2003 à 21:03
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

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.