| |
Операции "копировать", "вырезать", "вставить". |
|
| |
Для работы с Clipboard используется объект - Clipboard и
свойство Form.
Вставьте в проект меню с тремя пунктами mnuEditCopy,
mnuEditCut и mnuEditPaste.
Данные примеры применимы для TextBox'а. Для RichTextBox'а
вместо SelText используйте SelRtf
'"копировать"
Private Sub mnuEditCopy_Click()
On Error Resume Next
Clipboard.Clear
Clipboard.SetText frmMain.Text1.SelText
End Sub
'"вырезать"
Private Sub mnuEditCut_Click()
On Error Resume Next
Clipboard.Clear
Clipboard.SetText frmMain.Text1.SelText
frmMain.Text1.SelText = vbNullString
End Sub
'"вставить"
Private Sub mnuEditPaste_Click()
On Error Resume Next
frmMain.Text1.SelText = Clipboard.GetText
End Sub
|
|
| |
|
|
|
|