VB把数据库查询结果生成图片2
Private Sub Command1_Click()'把文本内容保存为c:\test.bmp
Dim ctlNew As Control
'先把数据库中检索出来的记录集Rst内容放到Text1里
Text1.text=Rst.GetString
'动态创建一个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
SavePicture ctlNew.Picture, "c:\test.bmp"
Controls.Remove ctlNew
End Sub
昨天按照这个人说的做了,是成功了,请问下可以在这个结果里添加表格吗,像类似EXCEL一样的内容 在picture里放listView或datagrid或MSHFLEXGRID等控件都可以实现类表格的效果,只不过要将数据加载到这些控件里即可 可以说得详细点吗 要加表格用print也可以的,只是代码比较烦,还不如直接将查询结果输出到表格控件,然后保存表格控件为图片.... 看看这个:
http://download.csdn.net/source/1483930
补充:VB , 数据库(包含打印,安装,报表)