VB クリップボードからデータを取得する

クリップボードからデータを取得する

以下の例はすべて単純なデータの取得を扱うが、実際には同じデータが複数の形式で解釈できる場合がほとんどとなる。単純でない例として、ブラウザで画像をコピーした場合、貼り付けるときには「その画像を貼り付ける」のか「そのHTMLを貼り付ける」のか要求によって判断が分かれる。

１．クリップボードからテキストデータを取得する

以下の例ではクリップボードからテキストデータを取得してTextBox1に表示する。

TextBox1.Text = Clipboard.GetText
　

　

Dim iData As IDataObject
iData = Clipboard.GetDataObject

If iData.GetDataPresent(DataFormats.Text) Then
TextBox1.Text = CType(iData.GetData(DataFormats.Text), String)
Else
MsgBox("テキストデータは取得できませんでした。")
End If

　

２．クリップボードから画像データを取得する

以下の例ではクリップボードから画像データを取得してPictureBox1に表示する。

PictureBox1.Image = Clipboard.GetImage
　

　

Dim iData As IDataObject
iData = Clipboard.GetDataObject

If iData.GetDataPresent(DataFormats.Bitmap) Then
PictureBox1.Image = CType(iData.GetData(DataFormats.Bitmap), Bitmap)
Else
MsgBox("画像データは取得できませんでした。")
End If