vb批量打印数据库中的照片
Private Sub Command12_Click()
Dim i As Integer
On Error GoTo ABC
ShowPrinterSetup Me
For i = 1 To Adodc1.Recordset.RecordCount
If Picture2.Picture <> LoadPicture("") Then
Printer.PaintPicture Picture2.Picture, 200, Picture1.Top + 1000
Else
MsgBox "Picture2中没有图片可打印！"
End If
Printer.EndDoc
Adodc1.Recordset.MoveNext
Next i
ABC:
Exit Sub
End Sub
相关文档：
VB中调用MSN 6.2 API函数
了解这方面内容的起因是早上有位朋友让我看一段关于MSN开发程序，现在无法运行，我打开工程发现是针对4.7编写的，而他的计算机安装的6,2，因为我也用6.2所以我在VB中查看了一下，发现是缺少Messenger Type Library。但是多了Messenger API Type Library，可能是做为Messenger Type Library的� ......
要想在VB6.0中使用OpenGL绘图，必须先下载一个SDK,名字叫vbogl.tlb。我用的版本是2.1，这个月要出3.0版本的了。
下载该文件后，直接在VB6.0“工程”-“引用”里面引用
1、在form中加入一个PictureBox控件
2、要在Windows里面使用OpenGL，必须先进行像素格式设置，函数代码如下
Dim hRC ......
http://tieba.baidu.com/f?kz=255370663
搜集到一个程序
几乎都用它来完成采集任务了！贡献出来啊，很简单滴
Function strCut(strContent, StrStart, StrEnd) As String '通用截取函数
Dim strHtml, S1, S2 As String
dim strstart,stren ......
今天在公司服务器上看一个老掉牙的asp程序，发现竟然调用了自定义com组件，是vb写的，封装了数据库连接与操作，文档上写这样做是为什么用户到服务器也看不到数据库的用户名与密码，也对啊，这个是财务的服务器，当然不能让我们it随便看了，呵呵！（it忽悠finance，让finance相信it看不到数据库用户名与密码，my god）由于， ......
