CHANGEUR DE TITRE! DÉMONSTRATION DES APIS : SETWINDOWTEXT, FINDWINDOW
UKR6900
Messages postés
4
Date d'inscription
jeudi 23 janvier 2003
Statut
Membre
Dernière intervention
24 juin 2006
-
24 juin 2006 à 09:53
perclout Messages postés 1 Date d'inscription samedi 5 mai 2007 Statut Membre Dernière intervention 8 juillet 2007 - 8 juil. 2007 à 12:28
perclout Messages postés 1 Date d'inscription samedi 5 mai 2007 Statut Membre Dernière intervention 8 juillet 2007 - 8 juil. 2007 à 12:28
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/30398-changeur-de-titre-demonstration-des-apis-setwindowtext-findwindow
https://codes-sources.commentcamarche.net/source/30398-changeur-de-titre-demonstration-des-apis-setwindowtext-findwindow
Discussions similaires
- Google apis maps
- Barre de titre
- Probleme lors de la saisie de données pour mon répertoir
- Google maps api mysql J2EE
- Titre : microsoft sql server management studio ------------------------------ une erreur s'est produite lors de l'attachement de la ou des bases de données. pour plus d'informations, cliquez dans la colonne message sur le lien hypertexte. ------------------------------ boutons : ok ------------------------------
8 juil. 2007 à 12:28
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+
24 juin 2006 à 09:53
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++