2010.04.09.22.45
Albert:
VB5 SP3
win95
我在VC中生成了一个动态库，其中一个函数的参数是一指针，请问： 我在VB中怎么调用？
VB默认的传递方式就是传指针(ByRef，也就是把变量的地址传递给所调用的函数)。如果要传值(也就是把变量的值传递给所调用的函数)反要在参数声明前加ByVal。所以如果你传递的参数是普通的数据类型，在参数前什么都不要加就行了。如C语言声明为：
void __stdcall MyProc(short * nPara);
则VB声明为：
Declare Function MyProc Lib "MyDll.dll" (nPara As Integer)
调用时同普通函数。
如果C语言中的指针是字符串指针，那么在VB声明时需要加上ByVal，这是个例外。如C语言声明为：
void __stdcall MyProc(char * sPara);
则VB声明为：
Declare Function MyProc Lib "MyDll.dll" (ByVal sPara As String)
调用时同普通函数。
如果C语言的指针是数组指针，则在VB中调用时应将数组的首元素传递给DLL。如C语言声明为：
void __stdcall MyProc(int [] arrPara);
则VB声明为：
Declare Function MyProc Lib "MyDll.dll" (nPara As String)
调用时为MyProc A(0)。
注意：不能直接传递数组名，因为如果传递数组名，VB实际会传一个复杂的结构类型给DLL，这对编写C语言的DLL来说，处理这样的结构比较麻烦，所以通常都不支持这种方式。
冯桦的意见：
VB调用DLL时，以Byval方式传递字符串参数的类型是BSTR(主持人注：BSTR的处理方法同char *)，以Byref方式传递字符串参数的类型是BSTR*。下面是以Byref方式传递参数的例子：
void _stdcall PassString(BSTR* pbstr)
{
LPSTR ss="Modify parameter in DLL";
//对pbstr重新分配内存
SysReAllocStringLen(pbstr,(BSTR)ss,strlen(ss));
}
此问题由李海回答。
回答:
| 让messagebox自动消失 | ||
| 发表日期：2003-03-31 | 作者：jennyvenus[] 出处： | |
| 利用多线程解决对话框自动消失的办法，虽然有点乱，但是完全正确，自己使用的时候把command1_click的执行动作封装成自己的函数就行了，运行过程，点command1，出现对话框，10秒后对话框消失。（因为我这个程序多次用于测试，所以没用的API声明太多了，去掉没用的就行了）
'窗体代码 Option Explicit
Private Sub Command1_Click() Command1.Enabled = False id = CreateThread(ByVal 0&, ByVal 2000&, AddressOf closemessagebox, 0, ByVal 0&, id1) MsgBox "a" TerminateThread id, 0 Command1.Enabled = True End Sub
Private Sub Form_Load() ProcOld = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf WindowProc) End Sub
Private Sub Form_Unload(Cancel As Integer) SetWindowLong Me.hwnd, GWL_WNDPROC, ProcOld End Sub
'模块代码 Option Explicit Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, lprc As RECT) As Long Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Public Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long Public Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long Public Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Public Type POINTAPI x As Long y As Long End Type Public ProcOld As Long Public Const TPM_LEFTALIGN = &H0& Public Const WM_SYSCOMMAND = &H112 Public Const MF_SEPARATOR = &H800& Public Const MF_STRING = &H0& Public Const GWL_WNDPROC = (-4) Public Const IDM_ABOUT As Long = 1010 Public Const WM_COMMAND = &H111 Public Const WM_ACTIVATE = &H6 Public Const WA_INACTIVE = 0 Public Const SRCCOPY = &HCC0020 ' (DWORD) dest = source Public Const WM_CLOSE = &H10 Public Const INFINITE = &HFFFF
Public g__thread As Long Public id As Long Public id1 As Long Public Function WindowProc(ByVal hwnd As Long, ByVal iMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Select Case iMsg Case WM_ACTIVATE If wParam = WA_INACTIVE Then Dim mywnd As Long Dim buf As String * 64 Dim oldrect As RECT GetWindowRect hwnd, oldrect mywnd = lParam GetClassName mywnd, buf, 64 If Mid(buf, 1, 6) = "#32770" Then Dim processid As Long GetWindowThreadProcessId mywnd, processid If processid = GetCurrentProcessId Then g__thread = mywnd End If End If End If End Select WindowProc = CallWindowProc(ProcOld, hwnd, iMsg, wParam, lParam) End Function Public Sub closemessagebox() Sleep 10000 If g__thread <> 0 Then SendMessage g__thread, WM_CLOSE, 0, 0 g__thread = 0 End If End Sub |
VB Declare语句
来源: 网络收集 2007-06-17 00:00:00 字体:[大 中 小]
-
用于在模块级别中声明对动态链接库 (DLL) 中外部过程的引用。
语法 1
[Public | Private] Declare Sub name Lib "libname" [Alias "aliasname"] [([arglist])]
语法 2
[Public | Private] Declare Function name Lib "libname" [Alias "aliasname"] [([arglist])] [As type]
Declare 语句的语法包含下面部分：
部分 描述
Public 可选的。用于声明对所有模块中的所有其它过程都可以使用的过程。
Private 可选的。用于声明只能在包含该声明的模块中使用的过程。
Sub 可选的（但 Sub 或 Function 二者需选其一）。表示该过程没有返回值。
Function 可选的（但 Sub 或 Function 二者需选其一）。表示该过程会返回一个可用于表达式的值。
name 必需的。任何合法的过程名。注意动态链接库的入口处（entry points）区分大小写。
Lib 必需的。指明包含所声明过程的动态链接库或代码资源。所有声明都需要 Lib 子句。
libname 必需的。包含所声明的过程动态链接库名或代码资源名。
Alias 可选的。表示将被调用的过程在动态链接库 (DLL) 中还有另外的名称。当外部过程名与某个关键字重名时，就可以使用这个参数。当动态链接库的过程与同一范围内的公用变量、常数或任何其它过程的名称相同时，也可以使用 Alias。如果该动态链接库过程中的某个字符不符合动态链接库的命名约定时，也可以使用 Alias。
aliasname 可选的。动态链接库或代码资源中的过程名。如果首字符不是数字符号 (#)，则 aliasname 是动态链接库中该过程的入口处的名称。如果首字符是 (#)，则随后的字符必须指定该过程的入口处的顺序号。
arglist 可选的。代表调用该过程时需要传递的参数的变量表。
type 可选的。Function 过程返回值的数据类型；可以是 Byte、布尔、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（只支持变长）或 Variant，用户定义类型，或对象类型。
arglist 参数的语法以及语法各个部分如下：
[Optional] [ByVal | ByRef] [ParamArray] varname[( )] [As type]
部分 描述
Optional 可选的。表示参数不是必需的。如果使用该选项，则 arglist 中的后续参数都必需是可选的，而且必须都使用 Optional 关键字声明。如果使用了 ParamArray，则任何参数都不能使用 Optional。
ByVal 可选的。表示该参数按值传递。
ByRef 表示该参数按地址传递。 ByRef 是 Visual Basic 的缺省选项。
ParamArray 可选的。只用于 arglist 的最后一个参数，表示最后的参数是一个 Variant 元素的 Optional 的数组。使用 ParamArray 关键字可以提供任意数目的参数。ParamArray 关键字不能与 ByVal、ByRef或 Optional 一起使用。
varname 必需的。代表传给该过程的参数的变量名；遵循标准的变量命名约定。
( ) 对数组变量是必需的。指明 varname 是一个数组。
type 可选的。传递给该过程的参数的数据类型；可以是 Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（只支持变长）、Object、Variant、用户自定义的类型或对象类型。
说明
对Function 过程而言，过程的数据类型决定其返回值的数据类型。可以在 arglist 之后使用 As 子句来指定函数返回值的数据类型。在 arglist 中，可以使用 As 子句来指定任何传给该过程的参数的数据类型。不单可以指定为任何标准数据类型，还可以在 arglist 中指定 As Any 来禁止类型检查，从而允许将任意数据类型传递给该过程。
空圆括号表示该 Sub 或 Function 过程没有参数，且 Visual Basic 应确保不会传递任何参数。在下面的示例中，First 不带任何参数。如果对 First 的调用中使用了参数，就会产生错误：
Declare Sub First Lib "MyLib" ()如果带参数表，则每次调用该过程时都要检查参数的个数和类型。在下面的示例中，First 有一个 Long 参数：
Declare Sub First Lib "MyLib" (X As Long)注意 在 Declare 语句的参数表中不能有定长的字符串；只有变长的字符串才能传给过程。定长的字符串可以作为过程参数使用，但在传递前都要被转换为变长的字符串。
注意 当所调用的外部过程需要一个值为 0 的字符串时，就要使用 vbNullString 常数。该常数与零长度字符串 ("") 是不相同的。
|
Visual Basic调用Windows API函数的应用举例 |
| 【 摘 要】 本 文 介 绍 了 利 用Visual Basic 调 用 Windows API 函 数 的 方 法， 并 通 过 举 例 介 绍 部 分 API 函 数 的 功 能 。 例 如：VB 程 序 私 有 初 始 化 参 数 的 存 取， 及 当 前 系 统 信 息 的 检 测。 【 关 键 字】 【 正 文 】 一、 利 用VB 调 用API 函 数 的 方 法。 (1) 用Declare 语 句 申 明 所 要 调 用 的API 函 数， 若 该 函 数 务 返 回 值， 可 申 明 为Sub 过 程； 若 有 返 回 值， 则 可 申 明 为Function 函 数。 注： 所 有 的API 函 数 的 申 明 都 在 ./VB/WINAPI/WIN31API.HLP 中， 只 需 用Copy 和 Paste 的 方 法 即 可 放 到 相 应 的 地 方。 (2) 一 旦 申 明 了 某 一 个API 函 数 后， 就 可 以 象 调 用VB 的 函 数 一 样。 但 需 注 意， 如 果 参 数 传 递 不 对， 可 能 会 导 致 死 机。 二、 VB 程 序 私 有 初 始 化 参 数 的 存 取。 Windows 软 件 的 初 始 化 参 数 的 获 取 与 保 存 是 通 过 读 取 扩 展 名 为 .INI 的 文 本 文 件 来 实 现 的， 即 程 序 运 行 前 先 从 指 定 的INI 文 件 中 搜 索 到 所 需 的 参 数， 并 反 映 到 程 序 的 运 行 环 境 中； 当 程 序 退 出 时 又 将 当 前 的 环 境 参 数 保 存 到 指 定 的INI 文 件 中。Windows 提 供 的API 函 数 中 的GetPrivateProfileString 和WritePrivateProfileString 就 有 这 些 功 能。 说 明： 功 能： 获 取INI 文 件 中 与 指 定 关 键 字 对 应 的 参 数（ 字 符 串 性） 并 将 此 参 数 拷 贝 到lpReturnedString 中。 参 数 （2）WritePrivateProfileString 功 能： 在 初 始 化 文 件 的 指 定 关 键 字 项 内 设 置 参 数（ 字 符 串）。 三、 VB 检 测 当 前 系 统 信 息 所 需 的API 函 数 有GetWindowsDirectory，GetWinFlags,GetVersion，GetSystemDirectory, 等， 具 体 的 使 用 方 法 可 见 举 例。 四、 举 例 DEMO.PRJ （ 一） 建 立 项 目 文 件DEMO.PRJ； 建 立 模 块 文 件DEMO.BAS. 并 将 下 列 声 明 插 入 到DEMO.BAS 中。 Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long 注：
4、 GetWinflags: 该 函 数 返 回Windows 运 行 系 统 上 的 内 存 配 置。 返 回 标 志 值 5、GetKeyboardType(): 该 函 数 得 到 系 统 键 盘 类 型，nTypeFlag=0 时 返 回 键 盘 类 型。 6、 为 了 调 用 这 些API 函 数 更 加 方 便， 可 以 编 写 一 些 包 含 函 数。 这 些 用 户 自 定 义 函 数 的 功 能 也 需 要 在 模 块 中。
（ 三） 运 行 本 程 序。（ 本 程 序 在486 兼 容 机Windows3.1 下 通 过）
并 存 在 当 前 系 统Windows 目 录 下。 |
3280
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
