クリップボードからの画像の取り込みについて
- 題名: クリップボードからの画像の取り込みについて
- 著者: わんこ
- 日時: 2003/10/02 19:18:01
- ID: 825
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[1]: クリップボードからの画像の取り込みについて
- 著者: ピラルク
- 日時: 2003/10/03 14:04:05
- ID: 838
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[2]: クリップボードからの画像の取り込みについて
- 著者: わんこ
- 日時: 2003/10/03 16:41:39
- ID: 843
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[3]: クリップボードからの画像の取り込みについて
- 著者: わんこ
- 日時: 2003/10/06 10:16:45
- ID: 876
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[4]: クリップボードからの画像の取り込みについて
- 著者: わんこ
- 日時: 2003/10/06 10:17:28
- ID: 877
- この記事の返信元:
- この記事への返信:
- ツリーを表示
はじめまして。
いろいろ調べてみたのですが、どうしてもわかりません。
どなたか教えていただけないでしょうか。
あらかじめクリップボードに取り込んであるメタファイル(具体的には、Officeなどで作成した画像)をjpegファイルとして保存するようにしたいのですが、うまく動いてくれません。(Visual Basic .netで作成しています)
下のようなプログラムで、データ形式が"bitmap"や"DIB"であれば問題なく動作するですが、メタファイルではダメなようです。
どうも、メタファイルだとクリップボードからの画像の取り込みがうまくいっていないのではないかと思うのですが・・・・
(ためしにピクチャーボックスに表示してみたりしたですが、bitmapだと表示されるのですがメタファイルでは何も表示されないのです)
なぜメタファイルだと動作しないのでしょうか。
宜しくお願いします。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim myImage As System.Drawing.Image
Dim opfn As String
myImage = Nothing
FileOpen(1, "d:\test.txt", OpenMode.Input)
opfn = LineInput(1)
FileClose(1)
' Declares an IDataObject to hold the data returned from the clipboard.
' Retrieves the data from the clipboard.
Dim iData As IDataObject = Clipboard.GetDataObject()
' Determines whether the data is in a format you can use.
If iData.GetDataPresent(DataFormats.Bitmap) Then
MessageBox.Show("Bitmap")
myImage = System.Windows.Forms.Clipboard.GetDataObject.GetData(System.Windows.Forms.DataFormats.Bitmap)
ElseIf iData.GetDataPresent(DataFormats.EnhancedMetafile) Then
MessageBox.Show("EnhancedMetafile")
myImage = System.Windows.Forms.Clipboard.GetDataObject.GetData(System.Windows.Forms.DataFormats.EnhancedMetafile)
Else
MessageBox.Show("another type")
End If
myImage.Save(opfn, System.Drawing.Imaging.ImageFormat.Jpeg)
End Sub