Treeviewコントロールの画像を保存するには？

ぎびりろ 2007-11-28 03:40:55 No: 138223

こんにちは。
Treeviewコントロールの画像を保存したいと思っています。
一応以下のようなやり方をしてみましたが、うまくいきません。
Pictureを Imageにしてもダメでした。

SavePicture Treeview1.Picture, "test.jpeg"

何かアドバイスをいただけると幸いです。

魔界の仮面弁士 2007-11-28 05:12:18 No: 138224

構文的には、VB6 かな?
質問時には、開発環境のバージョン等を明記してくださいね。

で、TreeView の画面イメージを保存したいという意味であれば、
  http://support.microsoft.com/kb/161299/ja
のコードを貼り付けて、
  '(ScaleMode プロパティは vbPixels にしておく)
  Dim pic As Picture
  With Me.TreeView1
    Set pic = CaptureWindow(.hWnd, False, 0, 0, .Width, .Height)
  End With
とすれば、TreeView の画像が Picture 変数に格納されます。

あとは、画面に表示したければ、
Set Image1.Picture = pic
とすれば良いし、印刷したければ、Printer.PaintPicture すれば良し。
ファイルに保存したいなら、
SavePicture pic, "C:\sample.bmp"
とすれば良いかと。

bmp ではなく jpeg がよければ、
http://yaplog.jp/orator/archive/29
という感じで。