Question

VB6 如何在已加载图像的图片框中画上一个红色的矩形框，并将矩形框连同图像一起保存？

如题，比如我往图片框中加载了一幅图像，如何在此图片框中画上一个矩形框，然后将矩形框跟图像融合保存成新的图片文件？我用line控件在图片框上画线，结果保存出来的新图像中，line线没有融合入图像中被保存起来呢。

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏50（财富值+成长值）

Answer 1

Private Sub Command1_Click()
Picture1.DrawWidth = 3
Picture1.Line (50, 50)-(500, 500), vbRed, B
Picture1.AutoRedraw = True
SavePicture Picture1.Image, "c:\temp\1.bmp"
End Sub
'Picture1.AutoRedraw = True是关键