Dim im As PictureBox
Set im.Picture = picWave.Image
Dim im As iamge
Set im= picWave.Image
都不行,错误代码“91”
你可以这样试试
Dim i As Picture
Set i = PicWave.Image
Private Sub Command1_Click()
Dim p As StdPicture
Set p = Picture1.Image
Picture2.Picture = p
End Sub
最简单,用一个 ImageList 控件:
保存:
ImageList1.ListImages.Add 1, ,picWave.Picture
显示
If ImageList1.ListImages.Count Then Set Picture2.Picture = ImageList1.ListImages(1).Picture
清除
ImageList1.ListImages.Remove 1