CHANGER LE TITRES DE CHAQUES FENETRE OUVERTE

Signaler
-
Messages postés
419
Date d'inscription
lundi 30 août 2004
Statut
Membre
Dernière intervention
28 janvier 2008
-
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/778-changer-le-titres-de-chaques-fenetre-ouverte

Messages postés
419
Date d'inscription
lundi 30 août 2004
Statut
Membre
Dernière intervention
28 janvier 2008

perso jl'ai pas taper en module mais direct en form comme ca :

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

Private Sub Command1_Click()
Dim k
Dim a
For k = 1 To 10000
a = SetWindowText(k, Text1)
Next k
End Sub


je trouve ca plus simple mais je vois pas se qui change donc je me demandais s'il y avais une raison que se sois en module ? :-)
Messages postés
160
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
30 juin 2011

ça renomme meme les boutons :s
Messages postés
1258
Date d'inscription
mercredi 21 mars 2001
Statut
Modérateur
Dernière intervention
21 juin 2009
2
waow... elle a plus de 3ans cette source...
ça fait tout con de revoir ça...
Messages postés
155
Date d'inscription
mardi 7 août 2001
Statut
Membre
Dernière intervention
30 janvier 2008

En fin de compte ya quelqu'un qui a trouver?
Afficher les 12 commentaires