VB中回调函数的一个问题
之前碰到一个问题，VB中向一个C++写的DLL中注册一个Callback，C++在调用这个Callback时有些问题，具体问题描述和下面这个帖子中的情况是一样的: http://topic.csdn.net/t/20051104/09/4370840.html
经过尝试以后发现，在VB中写的回调函数必须是用Function关键字，并且，必须要设置返回值，如下：
Public Function Callback () As Long
’TODO: Here
Callback = 0
End Function
如果这个回调中没有声明返回值，并且没有Callback = 0这个情况，就会出现上述帖子中的问题.
相关文档：
Microsoft VBScript 运行时错误 '800a0046' 没有权限: 'CreateObject'
显示错误：没有权限: 'CreateObject'
记得将组件加入 Users 组权限（如果将 C 盘去掉 Users 组权限的话）。
开始。。。运行。。。regsvr32 jscript.dll (命令功能： 修复Java动态链接库)
开始。。。运行。。。regsvr32 vbscript.dll(� ......
转自:http://www.pconline.com.cn/pcedu/empolder/gj/vb/0506/644702.html
Time
返回系统时钟的当前时间。
Date
返回系统时钟的当前日期。
Now
返回代表当前日期和时间的编码值。该函数经常用作其它系统时钟函数的参数。
Hour(Time)
返回指定时间的小时部分（0到23）。
Minute(Time)
返回指定时间的分钟部� ......
很多时候,我们不想一开始就显示滚动条,当文本到达指定行数文本框无法完全显示的时候再显示它,由于Scrollbar属性是只读的,无法在运行时的代码中改变这个属性,只能使用下面的API实现这个功能:
Public Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
......
本程序有一菜单开始，里面有查询，删除，修改，添加，程序不一一列出，只写出基本的过程，连接数据库采用标准模块：
'Public publicstr As String
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public Sub main() '数据库连接共享函数
Set conn = New ADODB.Connect ......
Public Sub DGToExcel(DataGrid1 As DataGrid, Optional ProgressBar1 As ProgressBar, Optional ByVal intFirst As Integer, Optional ByVal intLast As Integer, Optional strTitle As String)
'--将DataGrid导出至Excel,ProgressBar1为进度条,intFirst为从哪一列开始打印,intLast为打印到哪一列
On Error Resume ......
