クリップボードの静止画保存がPNG形式になってしまう。

たろう 2010-11-22 22:33:24 No: 147233

'クリップボードにあるデータの取得
Dim d As IDataObject = Clipboard.GetDataObject()

        'クリップボードにデータがあったか確認
        If d IsNot Nothing Then
            'ビットマップデータ形式に関連付けられているデータを取得
            Dim imgData As Image =
とあるサンプルプログラムを使いました。

'クリップボードにあるデータの取得
Dim d As IDataObject = Clipboard.GetDataObject()

'ビットマップにしるデータ
Dim bmpData As Bitmap = d.GetData(DataFormats.Bitmap)

            If Not (bmpData Is Nothing) Then
                'データが取得できたときは表示する
                bmpData.Save("c:\moo.bmp")

End If

出来た静止画は、BMP形式でなく PNG形式です。

BMPにしたいのですがどうすれば良いでしょうか？

たろう 2010-11-22 22:34:40 No: 147234

１回目はミス投稿です。

とあるサンプルプログラムを使いました。

'クリップボードにあるデータの取得
Dim d As IDataObject = Clipboard.GetDataObject()

'ビットマップにしるデータ
Dim bmpData As Bitmap = d.GetData(DataFormats.Bitmap)

            If Not (bmpData Is Nothing) Then
                'データが取得できたときは表示する
                bmpData.Save("c:\moo.bmp")

End If

出来た静止画は、BMP形式でなく PNG形式です。

BMPにしたいのですがどうすれば良いでしょうか？

VBレスキュー(花ちゃん) 2010-11-23 04:46:15 No: 147235

c:\moo.bmp が PNG形式だと何で調べられたのでしょうか？
クリップボードには、間違いなくBMP形式のフォーマットであったのでしょうか？

下記で取得しても同じですか？

    Dim iData As IDataObject = Clipboard.GetDataObject()
    If iData.GetDataPresent(DataFormats.Bitmap) Then
        Dim img As System.Drawing.Image = iData.GetData(DataFormats.Bitmap, True)
        img.Save("c:\moo.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
    End If

matsu 2010-11-23 18:41:23 No: 147236

>bmpData.Save("c:\moo.bmp")

ImageFormatを指定してください。
bmpData.Save("c:\moo.bmp", System.Drawing.Imaging.ImageFormat.Bmp)