绝对送分：怎样保存文字的信息？？

Question

定义一个type类型
type info
  xPos as long
  yPos as long
  FontSize as long
  FontColor as long
  FontName as string
  msg as string
end type
退出的时候，把上述信息写到App.path目录下面的Dat文件里面。
每次运行的时候首先把dat文件读进来，再次利用print方法画到pictrure上面就可以了。

Answer 1

Private Sub Command1_Click()
Picture1.Cls
Picture1.Print Now
SavePicture Picture1.Image, "c:\test.bmp"
End SubPrivate Sub Form_Load()
On Error Resume Next
Picture1.AutoRedraw = True
Picture1.PaintPicture LoadPicture("c:\test.bmp"), 0, 0
End Sub

Answer 2

同意楼上用
SavePicture Picture1.Image, "c:\test.bmp"

Answer 3

Private Sub Command1_Click()
Picture1.AutoRedraw = True
Picture1.Print "AAAA"
SavePicture Picture1.Image, "C:\a.bmp"
End Sub