PaintoPicture後のPictureBoxの内容をClipboardにコピーするには？

解決

でんか 2004-09-29 03:23:57 No: 116610

Clipboard上の画像をPictureBoxに読み込んで、PaintPictureで一部だけを切り取り、切り取った結果をClipboardに再びコピーしたいのですが、うまくいかなくて困っています。

Picture1.Picture = Clipboard.GetData
Picture2.PaintPicture Picture1.Picture, 0, 0, 10, 10, 0, 0, 10, 10
Clipboard.SetData Picture2.Image

としているのですが、Picture2は切り取ったものが表示されているのに、最後のClipboardへのコピー内容は元の画像のままです。どなたかヒントをご教授ください。

nanashi 2004-09-29 03:43:47 No: 116611

SetDataする前にクリップボードをClearするとか。

でんか 2004-09-29 03:47:43 No: 116612

SetDataする前にクリップボードをClearすると、SetDataしても最後までClipboardはClearされたままになります。

みい 2004-09-29 06:49:11 No: 116613

Clipboard.SetData Picture2.Image, vbCFDIB
ではいかがでしょうか？

nanashi 2004-09-29 07:54:51 No: 116614

Picture2のAutoRedrawはTrueになってますか？
あとPaintPicture時のWidthとHeightがだいぶ小さい値になってますけど、これをもっと大きい値にしてみては？
私の環境では問題無く出来ますけど。

    Picture1.Picture = Clipboard.GetData
    Picture2.PaintPicture Picture1.Picture, 0, 0, 900, 900, 0, 0, 900, 900
    Clipboard.Clear
    Clipboard.SetData Picture2.Image

でんか 2004-10-01 07:11:18 No: 116615

みなさんありがとうございました。
原因はわかりませんが、できるようになりました。