vb如何把textbox的文章存成bmp图片

来源：百度知道 编辑：UC知道 时间：2024/05/04 02:52:34
我读取 c:\111.txt到 text1 的文本框里面
想把它整个存为一张图片 存为c:\111.bmp
请问代码？
最好有注释！

Private Sub Command1_Click()
'把文本内容保存为c:\111.bmp
Dim ctlNew As Control
'动态创建一个PICTUREBOX控件。
'然后设置PictureBox对象的一些属性
Set ctlNew = Me.Controls.Add("VB.PictureBox", "picNew", Me)ctlNew.AutoRedraw = True
ctlNew.AutoSize = True
ctlNew.Width = Text1.Width
ctlNew.Height = Text1.Height
ctlNew.BackColor = vbWhite
ctlNew.FontSize = 16'字体大小ctlNew.ForeColor = vbGreen
ctlNew.Print Text1.Text '将文本框的内容输出到PictureBox对象里
ctlNew.Picture = ctlNew.Image '可要可不要,刷新PICTURE属性
SavePicture ctlNew.Picture, "c:\111.bmp"
'如果没有上一句则改成SavePicture ctlNew.Image, "c:\111.bmp"
Controls.Remove ctlNew 从内存中移除picture对象
MsgBox "文件转换完毕！"
End Sub

Private Sub Command1_Click()
'把文本内容保存为c:\111.bmp
Dim ctlNew As Control
Set ctlNew = Me.Controls.Add("VB.PictureBox", "picNew", Me)
ctlNew.AutoRed