Richtextbox

Résolu
pile_poil Messages postés 682 Date d'inscription vendredi 6 avril 2007 Statut Membre Dernière intervention 4 août 2012 - 3 avril 2008 à 10:29
pile_poil Messages postés 682 Date d'inscription vendredi 6 avril 2007 Statut Membre Dernière intervention 4 août 2012 - 3 avril 2008 à 11:03
Bonjour à tous
j'ai un petit probleme avec copier/coller dans une richtextbox
j'ai une tollbar avec les trois boutons couper, copier , coller
quand je m'en sers tout ce passe correctement
d'autre part quand j'utilise les raccourcis clavier classiques Ctrl + X , Ctrl + C, Ctrl + V tout va bien également
le probleme est quand je me sers du mélange des deux
en effet si je copie avec mon bouton "copier" et que je colle avec Ctrl +V j'obtiens

{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}
\uc1\pard\lang1036\f0\fs17 RichTextBox1}

ci dessous mon code pour les boutons copier et coller

Select Case Button.Key
Case "Couper"
Clipboard.Clear
Clipboard.SetText rtfBox.SelRTF
rtfBox.SelRTF = ""
rtfBox.SetFocus
Case "Copier"
Clipboard.Clear
Clipboard.SetText rtfBox.SelRTF
rtfBox.SetFocus
Case "Coller"
rtfBox.SelRTF = Clipboard.GetText
rtfBox.SetFocus
End Select

Je sais bien que quand on utilise les raccourcis claviers on ne se sert pas des boutons et inversement mais malgré tout ça me gêne. alors si quelqu'un avait l'astuce pour corriger ce bug ce serait vraiment génial

merci d'avance

2 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
3 avril 2008 à 10:54
le soucis ne viens pas du mélange d'utilisation :
tu stockes du RTF dans le presse papier texte....

tu dois faire :
Clipboard.SetText rtfBox.SelText , vbCFText
ET
Clipboard.SetText rtfBox.SelRTF , vbCFRTF

et au collage:
If Clipboard.GetFormat(vbCFRTF) then
rtfBox.SelRTF= Clipboard.GetText(vbCFRTF)
ElseIf Clipboard.GetFormat(vbCFText) then
rtfBox.SelText = Clipboard.GetText(vbCFText)
End if
3
pile_poil Messages postés 682 Date d'inscription vendredi 6 avril 2007 Statut Membre Dernière intervention 4 août 2012 6
3 avril 2008 à 11:03
merci !!!!!!

tu es le meilleur ça marche nickel !!!!
0