Работа с
буфером обмена.
Очень
часто на конфоренция
встречаются вопросы типа:
"Как поместить текст в
Clipboard?". Специально для этого
существует объект Clipboard. C
помощью этого маленького
примера я коротко покажу как
просто можно с ним
взаимодействовать. 1.Создайте
стандартный проект.
2.Создайте
тестовое поле Text1.
3.Создайте
три кнопки с именами cmdCut, cmdCopy и
cmdPaste, и соответсвенно надписи к
ним: "Cut", "Copy",
"Paste".
4.Кликните
два раза на cmdCut (кнопка, которая
будет вырезать текст) -
откроется окно Code. Впишите:
Private Sub cmdCut_Click()
'конкретно команнды
"вырезать" нет - есть
положить в буфер,
'а потом надо просто удалить то,
что мы скопировали.
'как известно чтобы что-то
вырезать или вставить нужно
это выделить.
'функция Text1.SelText возвращает
именно выделенный текст, итак
'в буфер обмена помещается всё,
что выделенно
Clipboard.SetText Text1.SelText
'теперь выделенный фрагмент
текста удаляется
Text1.SelText = ""
End
Sub
5.Теперь
откройте окошко выбора (сверху
окна Code) и выбирете событие cmdCopy
- заполним кнопку Copy:
Private Sub cmdCopy_Click()
'здесь всё тоже, что и выше, но
выделенный фрагмент не
удаляется
Clipboard.SetText Text1.SelText
End
Sub
6.
Теперь выберите событие кнопки
Paste ("Вставить") и впишите:
Private Sub cmdPaste_Click()
'текстовому полю присваевается
содержимое буфера обмена
Text1.Text = Text1.Text + Clipboard.GetText
End
Sub
И всё!
А чтобы проводить подобные
операции с графикой нужно
использовать методы GetData и SetData.
|