【VB6】清空Picture中图片的问题！

来源：百度知道 编辑：UC知道 时间：2024/05/05 19:23:55
'PictureA1小，PictureA2大，PictureB用于显示A1或A2。
Private Sub Command1_Click()'喷小图
PictureB.Cls
PictureB.PaintPictureA1'小图
End Sub
Private Sub Command2_Click()'喷大图
PictureB.Cls
PictureB.PaintPictureA2'大图
End Sub
’为什么先喷大图后，再喷小图，会发现两个图叠加了起来？为什么PictureB.Cls没有起作用？
'我试过很多方法也不行？
'PictureB.Picture = Nothing
'PictureB.Picture = LoadPicture("")
呵呵，我是省略写了.
PictureB.PaintPictureA1，0，0，PictureA1.Width,PictureA1.Height
我试过了，能喷出图，但每次喷前都没有清空？

Option Explicit

Private Sub Command1_Click()
Picture2.PaintPicture Picture1.Picture, 0, 0
End Sub

Private Sub Command2_Click()
Picture2.Cls '我也试了试，可以清空原来paint图啊，你的怎么不能清空？我这可以！
End Sub

'set picture2=nothing
'loadpicture("") 都可以清空，估计是你不小心哪里写错了，你再检查检查

'PictureB.Picture = Nothing
'PictureB.Picture = LoadPicture("")

这两个就行，我试过了，有用啊！！

你的paintpicture语法好像不对，你这些代码能喷出来图吗？