クリップボードから画像を取得して表示する |
'クリップボードから画像を取得してピクチャーボックスに入れる
Private PicBox1 As PictureBox
Private Sub AddPicBox()
PicBox1 = New PictureBox()
PicBox1.Location = New Point(0, 0)
PicBox1.Size = Me.Size
GetImageFromClipboard(PicBox1.Image)
If Not PicBox1.Image Is Nothing Then
'フォームを画像サイズにのサイズに合わせる
Me.ClientSize = New Size(PicBox1.Image.Width, PicBox1.Image.Height)
'ピクチャーボックスをフォームのサイズに合わせる
PicBox1.Size = Me.ClientSize
End If
Me.Controls.Add(PicBox1)
End Sub
'クリップボードから画像を取得する
Private Sub GetImageFromClipboard(ByRef myImage As Image)
If Not Clipboard.GetDataObject() Is Nothing Then
Dim objIdata As IDataObject = Clipboard.GetDataObject()
If objIdata.GetDataPresent(DataFormats.Bitmap) Then
Dim objImage As Object = objIdata.GetData(DataFormats.Bitmap)
myImage = CType(objImage, Bitmap)
End If
End If
End Sub