Changeur de titre! démonstration des apis : setwindowtext, findwindow

Soyez le premier à donner votre avis sur cette source.

Vue 6 069 fois - Téléchargée 334 fois

Description

Bon voiçi un bou de code pour permettre de changer le titre d'une fenêtre en ayant son titre actuel.

Source / Exemple :


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''    CRÉÉ PAR JN   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Dim handle As String 'défini le handle de la fenêtre recherché

Private Sub Command1_Click()

handle = FindWindow(vbNullString, Text1.Text) 'trouve le handle grâce au titre de la fenêtre

SetWindowText handle, Text2.Text 'change le titre de la fenêtre

End Sub

Conclusion :


Bon c'est un bou de code très simple mais parfois utile.

Jn

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
samedi 5 mai 2007
Statut
Membre
Dernière intervention
8 juillet 2007

Bonjour, si le code d'ukr6900 fonctionne, c'est que le classname de notepad est "notepad"; pour rechercher d'après le titre, c'est le second terme qui doit être renseigné.

Si quelqu'un a les idées claires sur les tailles de données , selon que l'on soit en VB6 ou en vb2005, je prends...

relu 3 fois...A+
Messages postés
4
Date d'inscription
jeudi 23 janvier 2003
Statut
Membre
Dernière intervention
24 juin 2006

Ce code n'a pas fonctionné essaye plutot ceci

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Dim lhandle As Long 'défini le handle de la fenêtre recherché

Private Sub Command1_Click()
Shell "Notepad", vbNormalFocus
lhandle = FindWindow("Notepad", vbNullString) 'trouve le handle grâce au titre de la fenêtre
If (lhandle <> 0) Then
SetWindowText lhandle, "Hello World" 'change le titre de la fenêtre
End If
End Sub

ce code est testé avec le process "Notepad" correction:
le handle doit être de type long
Lancer le process notepad pour tester avec la commande "shell"
Contrôler si le handle différent de NULL ->fenêtre trouvée
Lancer la commande pour changer le titre
A++

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.