10 Январь 2009

Как Копировать, Вставить и Вырезать текст в RichTextBox?

RichTextBox |  Таги: , , ,

Как Копировать, Вставить и Вырезать текст в RichTextBox?

Option Explicit

Private Sub mnuCopy_Click()
   On Error Resume Next
   Clipboard.SetText Me.RichTextBox1.SelRTF
End Sub

Private Sub mnuCut_Click()
   On Error Resume Next
   Clipboard.SetText Me.RichTextBox1.SelRTF
   Me.RichTextBox1.SelText = vbNullString
End Sub

Private Sub mnuPaste_Click()
   On Error Resume Next
   Me.RichTextBox1.SelRTF = Clipboard.GetText
End Sub

Запись опубликована on 10.01.2009 at 9:00 и размещена в рубрике: RichTextBox. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.