本人有偿请教,保存数据

Question

问题是这样的，我现将屏幕的图形数据通过API函数保存在剪切板中，现在我想把现有剪切板数据保存为图形文件，应该怎么做？

Answer 1

sorry,你的帖子太后，这几天我都看不见
很简单的
Private Sub Command1_Click()
Dim a As IPictureDisp
Set a = LoadPicture("d:\a.jpg")
Clipboard.SetData a
End SubPrivate Sub Command2_Click()
Dim b As IPictureDisp
Set b = Clipboard.GetData
SavePicture b, "d:\b.jpg"
End Sub
这样保存的图形是未经压缩的，
我明早试试能不能再好一些.