SURVEILLER LE PRESSE PAPIER

zeratul67 Messages postés 97 Date d'inscription mardi 9 avril 2002 Statut Membre Dernière intervention 11 mai 2008 - 9 avril 2002 à 15:27
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 26 juil. 2007 à 07:40
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

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
26 juil. 2007 à 07:40
DaPiwi Messages postés 1 Date d'inscription mardi 10 juin 2003 Statut Membre Dernière intervention 4 mai 2006
4 mai 2006 à 15:48
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 ?
Zog2002 Messages postés 20 Date d'inscription mercredi 22 novembre 2000 Statut Membre Dernière intervention 18 septembre 2007
20 juin 2002 à 18:40
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
zeratul67 Messages postés 97 Date d'inscription mardi 9 avril 2002 Statut Membre Dernière intervention 11 mai 2008
9 avril 2002 à 15:27
à 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.