Changer le texte du bouton démarrer !

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 835 fois - Téléchargée 39 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

cs_blabla
Messages postés
112
Date d'inscription
mercredi 28 août 2002
Statut
Membre
Dernière intervention
13 mars 2004
-
J adort quans ya pas de .zip ....
cs_HiFi
Messages postés
4
Date d'inscription
mercredi 5 mars 2003
Statut
Membre
Dernière intervention
7 mars 2003
-
c ou exactement kon doit marker tt sa ?
cs_TheHacker
Messages postés
442
Date d'inscription
samedi 23 novembre 2002
Statut
Membre
Dernière intervention
19 octobre 2005
-
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_lagafeuse
Messages postés
69
Date d'inscription
mardi 26 novembre 2002
Statut
Membre
Dernière intervention
9 août 2003
-
merci ;-)
cs_lagafeuse
Messages postés
69
Date d'inscription
mardi 26 novembre 2002
Statut
Membre
Dernière intervention
9 août 2003
-
TheHacker> marche pas ton trucs lol

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.