怎样临时保存image？？？

[LuYao]

Dim im As PictureBox
Set im.Picture = picWave.Image

Dim im As iamge
Set im= picWave.Image

都不行，错误代码“91”

[wangdeshui]

保存到clipboard

[cnapc]

出错原因是，你声明了一个Dim im As PictureBox
对象，并没有实例化这个对象。所以会出错。
要在赋值语局前加上如：set im = (表单上的一个PictureBox对象)

不过这样是无法达到你的临时保存的要求。
因为当PictureBox对象的内容变化后，im中的内容也会随之变化（因为是同时引用同一个对象）

如果想达到你的要求，需要用阿水说的保存到clipboard或者文件，或者另外一个PictureBox对象中（我一般是这样做的，因为编写代码量最少）

[韧恒]

Dim im As iamge定义后，im是image控件，并不是控件的image属性，对其赋值当然不行了。

[韧恒]

你可以这样试试

Dim i As Picture

Set i = PicWave.Image

[LuYao]

Set im.Picture = frmWave.picWave(Num).Image
还是不行。错误是一样的。

由于我要用到好几个这样的临时图像，则要新建好几个了PictureBox

期待更好的方法！！！

：）

[VBToy]

Private Sub Command1_Click()
Dim p As StdPicture
Set p = Picture1.Image
Picture2.Picture = p

End Sub

[of123]

最简单，用一个 ImageList 控件：

保存：
ImageList1.ListImages.Add 1, ,picWave.Picture

显示
If ImageList1.ListImages.Count Then Set Picture2.Picture = ImageList1.ListImages(1).Picture

清除
ImageList1.ListImages.Remove 1

[LuYao]

songyaowu(不以分多而蹭之;不因分少而不答; www.vb99.com)
Dim i As Picture

Set i = PicWave.Image

这样可以的，强，呵呵。