15问答网 > 关于VB6.0+Access2000的，窗体打印代码和图片加载代码的问题

关于VB6.0+Access2000的，窗体打印代码和图片加载代码的问题

2025-03-26 23:46:44

推荐回答（3个）

回答1：

1、form2.text1.text=form1.text1.text
form2.PrintForm
或者：
form2.text1.text= DataGrid1.Columns(1).Text
form2.PrintForm
2、“工程”==>“引用”....Microsoft activex data objects 2.X library
写入图片
Command1_Click()
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile "c:\kd\test.jpg"
Adodc1.Recordset.Fields("datafield").Value = mstream.Read
End Sub

读取数据库图片
Private Sub Command2_Click() '生成图片
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write Adodc1.Recordset.Fields("datafield").Value
mstream.SaveToFile "c:\kd\abc.jpg", adSaveCreateOverWrite
image1.picture=loadpicture("c:\kd\abc.jpg")
End Sub

说明：在引用上述程序时，请先行连接好数据库。

回答2：

和我私聊吧，百度账号就是QQ

回答3：

楼下的，你这运行不起来啊