| Меню сайта |
|
|
 |
| Категории каталога |
|
|
| Форма входа |
|
|
| Поиск |
|
|
|
| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
| Наш опрос |
Оцените мой сайт
Всего ответов: 23
|
|
|
 | |  |
|
Как Копировать, Вставить и Вырезать текст в 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
|
| Категория: Visual Basic 6.0 | Добавил: Vadim (11.01.2009)
|
| Просмотров: 2293
| Рейтинг: 3.0/2 |
|
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] | |
 | |  |
|
