richtextboxRésolu

Question

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

Renfield · Accepted Answer

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

pile_poil · Answer

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

Richtextbox

2 réponses

Votre réponse

Discussions similaires