CHANGER LE TEXTE DU BOUTON DÉMARRER !

cs_blabla Messages postés 112 Date d'inscription mercredi 28 août 2002 Statut Membre Dernière intervention 13 mars 2004 - 5 mars 2003 à 22:06
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
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/6323-changer-le-texte-du-bouton-demarrer

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)
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)
cs_lagafeuse Messages postés 69 Date d'inscription mardi 26 novembre 2002 Statut Membre Dernière intervention 9 août 2003
6 mars 2003 à 17:02
y a aussi cette soucre :
http://www.vbfrance.com/article.aspx?ID=5229
c encore mieux !!
cs_lagafeuse Messages postés 69 Date d'inscription mardi 26 novembre 2002 Statut Membre Dernière intervention 9 août 2003
6 mars 2003 à 15:59
si si ca marche sous xp lol j'ai testé ;-)
tmcuh Messages postés 458 Date d'inscription dimanche 22 décembre 2002 Statut Membre Dernière intervention 18 avril 2009
6 mars 2003 à 10:11
comme vous dites y'a plus simple mais seulement son truc marche sous xp pas les votres!!! :-)
10/10
cs_raff Messages postés 182 Date d'inscription dimanche 18 août 2002 Statut Membre Dernière intervention 5 janvier 2004 3
6 mars 2003 à 05:37
eh bien hifi au moins t'es honnête
cs_HiFi Messages postés 4 Date d'inscription mercredi 5 mars 2003 Statut Membre Dernière intervention 7 mars 2003
6 mars 2003 à 00:55
c koi un module ? c ou ?
erf jy connait rien :/
cs_lagafeuse Messages postés 69 Date d'inscription mardi 26 novembre 2002 Statut Membre Dernière intervention 9 août 2003
6 mars 2003 à 00:39
version+ simple lol :

dans une form:
Private Sub Form_Load()
Call TexteDemarrer("tester")
End Sub


'dans un module:
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 Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal Handle As Long, ByVal Texte As String) As Long

Public Sub TexteDemarrer(Letexte As String) 'FOnction principale pour charnger le texte
Call SetWindowText(GetWindow(FindWindow("Shell_TrayWnd", ""), 5), Letexte)
End Sub
cs_lagafeuse Messages postés 69 Date d'inscription mardi 26 novembre 2002 Statut Membre Dernière intervention 9 août 2003
6 mars 2003 à 00:28
TheHacker> marche pas ton trucs lol
cs_lagafeuse Messages postés 69 Date d'inscription mardi 26 novembre 2002 Statut Membre Dernière intervention 9 août 2003
6 mars 2003 à 00:14
merci ;-)
cs_TheHacker Messages postés 442 Date d'inscription samedi 23 novembre 2002 Statut Membre Dernière intervention 19 octobre 2005
5 mars 2003 à 23:50
Mettez ce code c'est beaucoup + simple que l'API sendmessage ,boucles,tableau.....!!!

Dans le module:
******************************************************
Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal Handle As Long, ByVal Texte As String) As Long
********************************************************
Private Sub Form_Load()
Call SetWindowText(HdStart, "Hello")
End Sub
voila @++
cs_HiFi Messages postés 4 Date d'inscription mercredi 5 mars 2003 Statut Membre Dernière intervention 7 mars 2003
5 mars 2003 à 23:43
c ou exactement kon doit marker tt sa ?
cs_blabla Messages postés 112 Date d'inscription mercredi 28 août 2002 Statut Membre Dernière intervention 13 mars 2004
5 mars 2003 à 22:06
J adort quans ya pas de .zip ....
Rejoignez-nous