SURVEILLER LE PRESSE PAPIER

Signaler
Messages postés
97
Date d'inscription
mardi 9 avril 2002
Statut
Membre
Dernière intervention
11 mai 2008
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
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/29-surveiller-le-presse-papier

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
Messages postés
1
Date d'inscription
mardi 10 juin 2003
Statut
Membre
Dernière intervention
4 mai 2006

N'existe-t-il pas une possibilité de faire la même chose sans Timer ? Je pense en particulier à des évènements ou éventuellement autre chose...
J'aimerais en fait intégrer cette surveillance du presse-papier à un contrôle ActiveX (exploité sous Internet Explorer), et je ne pense pas qu'un timer soit la bonne solution :|
Qu'en pensez-vous ?
Messages postés
20
Date d'inscription
mercredi 22 novembre 2000
Statut
Membre
Dernière intervention
18 septembre 2007

Ou plutot :
...
If Clipboard.GetText <> DerniereTrouve Then
...

à part ça, c'est tip top cool comme bout de code, je teste un p'tit truc et je reviens... :-D
Messages postés
97
Date d'inscription
mardi 9 avril 2002
Statut
Membre
Dernière intervention
11 mai 2008

à mon avis, le code est plutôt:
" Public DerniereTrouve As String
' Créez une horloge dans votre Formulaire appelé PressePapierHorloge
' Mettez la fonction suivante dans le Module de votre Formulaire :

Private Sub PressePapierHorloge_Timer()

If Clipboard.GetText <> LastCopy Then

If Left(Clipboard.GetText, 7) = "http://" Then
MsgBox (Clipboard.GetText)
End If

DerniereTrouve = Clipboard.GetText
End If

End Sub "

(car les variables LastCopy et DerniereTrouve correspondent à la même chose.