vb中savepicture保存picture.image问题

VB code

Private Sub Form_Load()'Command1.Style = 1  事先手动设置command的style属性为1Command1.Picture = LoadPicture("c:\1.gif")End SubPrivate Sub Form_Click()Picture1.PaintPicture Command1.Picture, 0,0End SubPrivate Sub Command1_Click()SavePicture Picture1.Image, "c:\2.jpg"   '这儿有问题,保存是成功了,但是是picture1的截图,没有paint出来的图像End Sub

why?

[解决办法]
打开picture的自动重绘功能。

[解决办法]
Private Sub Form_Load()
'Command1.Style = 1 事先手动设置command的style属性为1
Command1.Picture = LoadPicture("c:\1.bmp")
Picture1.AutoRedraw = True

End Sub

[解决办法]

探讨

VB code

Private Sub Form_Load()
'Command1.Style = 1 事先手动设置command的style属性为1
Command1.Picture = LoadPicture("c:\1.gif")
End Sub

Private Sub Form_Click()
Picture1.PaintPicture Command1.Pictur……