zeratul67
Messages postés97Date d'inscriptionmardi 9 avril 2002StatutMembreDernière intervention11 mai 2008
-
9 avril 2002 à 15:27
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 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.
DaPiwi
Messages postés1Date d'inscriptionmardi 10 juin 2003StatutMembreDerniè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és20Date d'inscriptionmercredi 22 novembre 2000StatutMembreDernière intervention18 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és97Date d'inscriptionmardi 9 avril 2002StatutMembreDernière intervention11 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.
26 juil. 2007 à 07:40
illustrée ici
http://www.vbfrance.com/codes/CLIPBOARDSPY-ESPIONNEZ-ACTIVITE-PRESSE-PAPIER_43561.aspx
4 mai 2006 à 15:48
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 ?
20 juin 2002 à 18:40
...
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
9 avril 2002 à 15:27
" 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.