OVH Cloud OVH Cloud

Vider le presse papier

2 réponses
Avatar
TopBidouille
Bonjour,
dans une appli access 7 (Win XP) j'ai besoin de vider le presse papier...
j'utilise l'api
Private Declare Function EmptyClipboard Lib "user32" () As Long
que j'appelle ensuite dans mon evenement

Ca ne me vide pas le presse papier....
Que faire???
Merci
Christophe

2 réponses

Avatar
Raymond [mvp]
Bonjour TopBidouille.

faut pas Bidouiller, faut tout mettre. Quand on veut rouspéter il faut 3
fonctions, on ouvre sa gueule, on rouspète, on ferme sa gueule. le
presse-papier c'est pareil.

Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As
Long
Private Declare Function EmptyClipboard Lib "user32" () As Long

Private Sub Commande2_Click()
OpenClipboard Me.hwnd
EmptyClipboard
CloseClipboard
End Sub

ça devrait faire.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"TopBidouille" a écrit dans le
message de news:bu8h3u$rt0$
Bonjour,
dans une appli access 7 (Win XP) j'ai besoin de vider le presse papier...
j'utilise l'api
Private Declare Function EmptyClipboard Lib "user32" () As Long
que j'appelle ensuite dans mon evenement

Ca ne me vide pas le presse papier....
Que faire???
Merci
Christophe




Avatar
TopBidouille
Merci
En fait sur le message où j'ai trouvé ca, il n'y avait que la fonction
emptyclipboard avec un joli exemple qui fonctionnait (dixit celui qui avait
posté), alors j'ai bien tout copié ce que j'avais

Effectivement, ca va mieu...
a+
Christophe
"Raymond [mvp]" a écrit dans le message de
news:
Bonjour TopBidouille.

faut pas Bidouiller, faut tout mettre. Quand on veut rouspéter il faut 3
fonctions, on ouvre sa gueule, on rouspète, on ferme sa gueule. le
presse-papier c'est pareil.

Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long)
As

Long
Private Declare Function EmptyClipboard Lib "user32" () As Long

Private Sub Commande2_Click()
OpenClipboard Me.hwnd
EmptyClipboard
CloseClipboard
End Sub

ça devrait faire.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"TopBidouille" a écrit dans le
message de news:bu8h3u$rt0$
Bonjour,
dans une appli access 7 (Win XP) j'ai besoin de vider le presse
papier...


j'utilise l'api
Private Declare Function EmptyClipboard Lib "user32" () As Long
que j'appelle ensuite dans mon evenement

Ca ne me vide pas le presse papier....
Que faire???
Merci
Christophe