Changer le texte du bouton démarrer !

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

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)