Question

VB6如何保存Picture控件中用 Print 方法写上去的内容为图片文件?

我在 Picture 控件中用 Print 方法写了一些文字，想保存为图片文件，但用 SavePicture 保存时却发现保存不了，此时 Picture 控件中好像是没有图像似的。
AutoRedraw属性已为 True

Answer 1

调用textout函数
Public Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
注意nCount需要转换长度（中文和英文长度不一致，会造成乱码）

Answer 2

Picture1.Print "测试中....."
SavePicture Picture1.Image, "c:\test.bmp"

winxp+VB6测试通过!可以保存!!