ElseIf Clipboard. GetFormat (VbCFPalette) Then

ElseIf Clipboard. GetFormat (VbCFDib) Then

ElseIf Clipboard. GetFormat (VbCFMetafile) Then

ElseIf Clipboard. GetFormat (VbCFBitmap) Then

If Clipboard. GetFormat (VbCFText) Then

Clipboard. GetData (Format)

Clipboard.GetFormat (Format)

Enb Sub

Enb Sub

Clipboard. SetText txtUser. SelText

Enb Sub

Clipboard. SetText txtUser. SelText

ClipBoard. Clear

Clipboard. SetText Text1.Text ' информация из ‘текстового поля помещается в буфер.

Метод GetText - возвращает копию текста, хранящегося в буфере обмена (операция вставки). Этот метод используется как обычная функция:

Синтаксис: Clipboard.GetText (Format)

При работе с буфером обмена и полями ввода используются операции выделения текста. Выделенному тексту присущи свойства:

.SelStart - номер позиции текста, с которой начинается выделение.

txtUser.SelStart = 0 - выделение текста с начала поля ввода.

.SelLength - количество символов в выделенном фрагменте текста.

txtUser. SelLength = Len (txtUser.Text) - выделены все символы поля ввода.

.SelText - выделенный фрагмент текста. Если текст не выделен, то SelText = “ “.

A$ = txtUser. SelText - переменная A$ примет значение выделенной строки.

txtUser. SelText= Clipboard.GetText () - вставляет содержимое буфера в текстовое поле с выделенной позиции курсора.

Пример.

§ Операция копирования в буфер выделенного текста

Private Sub Copy_Click ()

§ Операция вырезать:

Private Sub Cut_Click ()

txtUser. SelText = “ ”

§ Операция вставки:

Private Sub Paste_Click ()

txtUser. Text = Clipboard. GetText()

Чтобы правильно восстановить информацию из буфера обмена, прежде всего графическое изображение, Visual Basic должен знать ее тип.

Таблица 6.1 Типы данных буфера.

Символьные константы	Значение	Формат
VbCFRTF	-16639	Rich Text Format (.rtf file)
VbCFLink	-16640	Информация DDE
VbCFText		текст (.txt)
VbCFBitmap		побитовое изображение.bmp
VbCFMetafile		побитовое изображение.wmf
VbCFDib		Независимое от устройства побитовое изображение.dib
VbCFPalette		цветовая палитра

Можно узнать тип данных в буфере с помощью метода GetFormat:

где Format - значение или константа из таблицы. Возвращает значение True, если формат совпадает с заданным.

Например:

If Clipboard. GetFormat (2) Then MsgBox “ Это побитовое_ изображение”.

Для получения изображения из буфера используется метод GetData:

где Format = 2, 3, 8 или 9.

Пример:

txtUser.Text = Clipboard.GetText ()

picMy. Picture = Clipboard. GetData (VbCFBitmap)

picMy. Picture = Clipboard. GetData (VbCFMetafile)

picMy. Picture = Clipboard. GetData (VbCFDib)

picMy. Picture = Clipboard. GetData (VbCFPalette)

Else MsgBox “Не определен графический объект”

Дата добавления: 2014-12-10