Буфер обмена Windows – специальная область оперативной памяти, которая используется для переноса данных из одних программ в другие.
При разработке программ на Visual Basic программист может использовать специальный системный объект Clipboard для доступа к буферу обмена.
Объект поддерживает методы:
| Метод | Назначение |
| Clear() | Очистка буфера обмена. |
| GetText() | Получение текста. |
| GetData() | Получение растровой графики. |
| SetText() | Запись текста. |
| SetData() | Запись растрового изображения. |
| GetFormat(typeFormat) | Проверка содержимого буфера. vbCFText,vbCFBitmap |
Пример.
‘Загрузка изображения
Private Sub imgPic_Click()
imgPic.Picture = LoadPicture()
End Sub
‘Копирование текста
Private Sub mnuCopy_Click()
'Очистить буфер обмена
Clipboard.Clear
'Скопировать в буфер обмена выделенный текст
'из текстового поля
Clipboard.SetText txtUserArea.SelText
End Sub
‘Вырезание текста
Private Sub mnuCut_Click()
'Очистить буфер обмена
Clipboard.Clear
'Скопировать в буфер обмена выделенный текст
'из текстового поля
Clipboard.SetText txtUserArea.SelText
'удалить выделенный текст
txtUserArea.SelText = ""
End Sub
‘Завершение работы
Private Sub mnuExit_Click()
End
End Sub
‘Вставка графики или текста
Private Sub mnuPaste_Click()
If Clipboard.GetFormat(vbCFText) Then
'заменить выделенный текст либо
'вставить текст в текущую позицию курсора
txtUserArea.SelText = Clipboard.GetText()
End If
‘Заменить графическое изображение
If Clipboard.GetFormat(vbCFBitmap) Then
imgPic.Picture = Clipboard.GetData()
End If
End Sub