Le premier site francophone dédié au développement Pocket PC

Comment utiliser le presse papier avec eVB ?

Le presse papier

Tout le monde utilise le presse papier souvent sans même le savoir, et pourtant c'est lui qui permet les opérations de Copier/Coller ou Couper/Coller dans toutes les applications. Le presse papier est une zone de stockage partagé par toutes les applications, c'est donc une fonctionnalité très pratique.

L'objet Clipboard

On accède au presse papier sous eVB par l'objet 'Clipboard' qui est automatiquement créé lors du démarrage de l'application. Cet objet est donc disponible depuis toutes les feuilles et depuis tous les modules de l'application, sa portée est globale. Avec eVB l'object 'Clipboard' ne peut mémoriser et restituer que du texte (une limitation de plus me direz-vous).

Copier dans le presse papier

L'object 'Clipboard' possède une méthode qui permet de placer dans le presse papier une chaine de caractères. Cette méthode est 'SetText' et elle reçoit comme seul paramètre la chaine à mémoriser :

Rem On place dans le presse papier le contenu de la zone de texte 'Text1'
Call Clipboard.SetText(Text1.Text)

Récupérer le contenu du presse papier

Pour récupérer le contenu du presse papier, vous devez vérifier que ce qu'il contient est bien du texte, car si sous eVB seul du texte des manipulable, il n'en est rien pour le reste du système qui peut faire tourner des applications écrites en eVC++ (par exemple) qui sont capables de placer du texte, mais aussi des images, des fichiers DIB, des métafichiers, ou encore des palettes.

Pour vérifier le type de données placées dans le presse papier, il faut utiliser la fonction 'GetFormat' de l'objet 'Clipboard' en passant comme unique paramètre le type de format que l'on veut tester. Les types de formats disponibles sont :

Pour vérifier que le presse papier contient bien des données de type texte :

Rem On affiche un message OK si le presse papier contient du texte
If Clipboard.GetFormat(vbCFText) Then Msgbox "OK"

Pour récupérer le contenu du presse papier dans une variable de type chaine (String), il faut utiliser la fonction 'GetText' de l'objet 'Clipboard' :

Rem On récupère le contenu du presse papier (si c'est du texte) dans
Rem la variable wTxt
Dim wTxt As String
If Clipboard.GetFormat(vbCFText) Then wTxt = Clipboard.GetText()

Vider le presse papier

Le fait de lire le contenu du presse papier ne le vide pas pour autant. Si vous voulez le vider il vous faut utiliser la méthode 'Clear' de l'objet 'Clipboard' :

Rem On vide le presse papier
Call Clipboard.Clear

Voilà, vous savez à présent utiliser le presse papier avec eVB. Même si son usage est limité aux données de type texte, il vous sera surement utile dans plus d'une application.

Comme toujours, si vous avez des questions concenant cet article, n'hésitez pas à utiliser le forum prévu à cet effet.

Stéphane Sibué