cs_blabla
Messages postés112Date d'inscriptionmercredi 28 août 2002StatutMembreDernière intervention13 mars 2004
-
5 mars 2003 à 22:06
robapt
Messages postés114Date d'inscriptionmardi 6 juillet 2004StatutMembreDerniè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.
robapt
Messages postés114Date d'inscriptionmardi 6 juillet 2004StatutMembreDerniè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és16Date d'inscriptiondimanche 25 janvier 2004StatutMembreDernière intervention10 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és371Date d'inscriptionsamedi 1 juin 2002StatutMembreDernière intervention17 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és10Date d'inscriptionmercredi 5 mars 2003StatutMembreDerniè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és6Date d'inscriptionvendredi 7 mars 2003StatutMembreDernière intervention11 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és6Date d'inscriptionvendredi 7 mars 2003StatutMembreDernière intervention11 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és69Date d'inscriptionmardi 26 novembre 2002StatutMembreDernière intervention 9 août 2003 6 mars 2003 à 17:02
cs_lagafeuse
Messages postés69Date d'inscriptionmardi 26 novembre 2002StatutMembreDernière intervention 9 août 2003 6 mars 2003 à 15:59
si si ca marche sous xp lol j'ai testé ;-)
tmcuh
Messages postés458Date d'inscriptiondimanche 22 décembre 2002StatutMembreDernière intervention18 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és182Date d'inscriptiondimanche 18 août 2002StatutMembreDernière intervention 5 janvier 20043 6 mars 2003 à 05:37
eh bien hifi au moins t'es honnête
cs_HiFi
Messages postés4Date d'inscriptionmercredi 5 mars 2003StatutMembreDernière intervention 7 mars 2003 6 mars 2003 à 00:55
c koi un module ? c ou ?
erf jy connait rien :/
cs_lagafeuse
Messages postés69Date d'inscriptionmardi 26 novembre 2002StatutMembreDerniè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és69Date d'inscriptionmardi 26 novembre 2002StatutMembreDernière intervention 9 août 2003 6 mars 2003 à 00:28
TheHacker> marche pas ton trucs lol
cs_lagafeuse
Messages postés69Date d'inscriptionmardi 26 novembre 2002StatutMembreDernière intervention 9 août 2003 6 mars 2003 à 00:14
merci ;-)
cs_TheHacker
Messages postés442Date d'inscriptionsamedi 23 novembre 2002StatutMembreDernière intervention19 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és4Date d'inscriptionmercredi 5 mars 2003StatutMembreDernière intervention 7 mars 2003 5 mars 2003 à 23:43
c ou exactement kon doit marker tt sa ?
cs_blabla
Messages postés112Date d'inscriptionmercredi 28 août 2002StatutMembreDernière intervention13 mars 2004 5 mars 2003 à 22:06
6 mars 2005 à 16:15
LOL
29 déc. 2004 à 09:36
Donc il renomme bien le bouton, mais à l'écran, on voit toujours "Démarrer" et pas "314" ...
12 juin 2003 à 12:19
16 mars 2003 à 09:51
7 mars 2003 à 21:03
7 mars 2003 à 21:03
6 mars 2003 à 17:02
http://www.vbfrance.com/article.aspx?ID=5229
c encore mieux !!
6 mars 2003 à 15:59
6 mars 2003 à 10:11
10/10
6 mars 2003 à 05:37
6 mars 2003 à 00:55
erf jy connait rien :/
6 mars 2003 à 00:39
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
6 mars 2003 à 00:28
6 mars 2003 à 00:14
5 mars 2003 à 23:50
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 @++
5 mars 2003 à 23:43
5 mars 2003 à 22:06