VC++代码转换成VB代码

特别之处：
unsigned char -> byte
unsigned long -> long
unsigned char* -> long(指针) 或 string 建议使用long
lptcstr -> long(指针) 或 string 建议使用long
CopyMemory ByVal VarPtr(strRet), ByVal pStr, 4
if bUnicode then
GetStr =strconv(strRet,vbUnicode)
else
ULONG Long
WORD,DWORD Long
WPARAM,LPARAM Long
WMSG,UMSG Long
HRESULT Long
BOOL Boolean
COLORREF Long
HWND,HDC,HBRUSH,HKEY,等等. Long
LPCSTR lpszTest,HWND hwndParent,UINT wID);
这个函数创建一个StatusBar控件.从WINCOMMCTRLAPI可以得知该函数来自动态 链接库ComCtl32.dll.(有时,我们需要从MSDN中查找某函数对应的DLL) 然后我们知道该函数的返回类型是HWND,对应VB的类型是Long.最后,根据前面提到 类型对应表,很容易的转换相应的函数参数.
GetStr = strRet
end if
End Func参数的动态库函数的提醒
荣士电子 2009-3-13 12:06:59
VB 在调用VC编写的动态库时常常会出现“调用约定错误”，原因VC和VB在机制上的不同。我们在声明和定义方面下点功夫，仍然可以搞定。
在VC++代码中用#define定义常量,而在VB中是用Const来定义,因此转换成VB的代码是:
Public Const STD_COPY=1
第二个例子:
#define LB_SELECTSTRING0x018C //WINUSER.h
这有一个问题,VC++中所有以"0x"开头的值是十六进制,而在VB中表示十六进制要用"&H"开头.因此转换成VB的代码为:
typedef struct tagTBSAVEPARAMSA{
HKEY hkr;
LPCSTR pszSubKey;
LPCSTR pszValueName;
}TBSAVEPARAMSA,FAR* LPTBSAVEPARAMSA;
首先我们需要把第一行的"typedef struct"转换成"Public Type"
Dim mypiccserial(0 To 3) As Byte '卡序列号
Dim mypiccdata(0 To 47) As Byte '卡数据缓冲
控制字指定,控制字的含义请查看本公司网站提供的动态库说明
myctrlword = BLOCK0_EN + BLOCK1_EN + BLOCK2_EN + EXTERNKEY
End Type
以下是VC++中数据类型对应到VB中的数据类型VC++数据类型VB数据类型
------------------------------------
short Integer
int Long
long Long
UNIT Long
如果使用long 想获取里面的字符串 使用这个函数来获取 指向的地址的字符串
Private Declare Sub CopyMemory Lib "kernel32.dll " Alias "RtlMoveMemory " (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
例如读卡动态库函数的VC声明如下：
unsigned char __stdcall piccreadex(unsigned char ctrlword,unsigned char *serial,unsigned char area,unsigned char keyA1B0,unsigned char *picckey,unsigned char *piccdata0_2)
VC++代码转换成VB代码
对于大多数VB的爱好者来说,在很多情况下都想通过使用API函数来实现一些比较高级的功能或达到某种特殊效果,这就需要用到一些VC++的代码.
本文就如何把VC++代码转换成VB代码给出了一些策略和方法.
1.定义常量
我们首先看第一个例子:
#define STD_COPY 1//COMMCTRL.H
Public Type tagTBSAVEPARAMSA
然后处理结构成员,
HKEY hkr;
LPCSTR pszSubKey;
LPCSTR pszValueName;
对于第一个成员类型HKEY.我们要知道VC++中的以"H"开头的大部分数据类型代表的是某种句柄.在VB中每一个Form对象和许多控件都有一个hWnd属性,它代表所属窗口的句柄.hWnd的类型是Long,并且所有用来存储句柄的变量类型都是Long.因此,该成员在VB中定义为:
mypicckey(4) = &HFF
mypicckey(5) = &HFF
status = piccreadex(myctrlword, VarPtr(mypiccserial(0)), myareano, authmode, VarPtr(mypicckey(0)), VarPtr(mypiccdata(0)))
对于最后一行"}TBSAVEPARAMSA,FAR* LPTBSAVEPARAMSA;"我们只需要用"End Type"取代 就可以了.转换成VB代码后完整的结构为:
Public Type tagTBSAVEPARAMSA
hkr As Long
pszSubKey As String
pszValueName As String
LPSTR,LPCSTR String
LPWSTR,OLECHAR,BSTR String
LPTSTR String
VARIANT_BOOL Boolean
unsigned char Byte
BYTE Byte
VARIANT Variant
(任何以*或**结尾的数据类型) Long
3.函数的转换
我们知道VB提供了API Viewer add-in,但是有很多API函数它并没有包括在内. 因此知道如何把VC++函数转换成VB的函数格式是非常重要的.先看第一个例子:
WINCOMMCTRLAPI HWND WINAPI
CreateStatusWindowsA(LONG style,
'在下面设定断点，然后查看mypiccserial、mypiccdata，
'调用完 piccreadex函数可读出卡序列号到 mypiccserial，读出卡数据到mypiccdata，
'开发人员根据自己的需要处理mypiccserial、mypiccdata 中的数据了。
'处理返回函数
Select Case status
'bUnicode 为是否需要转化unicode 如果是 char *的话 需要 转化
Private Function GetStr(pStr As Long,bUnicode as Boolean)
Dim strRet As String
Const TCN_FIRST=(0-550) 这同样适合以"L"结尾的值
另外,对于 #define CDDS_ITEMPOSTERASE(CDDS_ITEM | CDDS_POSTERASE),我们需要用"Or"来取代"|"
2.结构的定义
我们先看VC++定义的一个比较简单的结构:
初步一看，可能发现为什么VB声明VC的指针不是用byref,而是用一个long来表示地址。实际上在VB6上也就这样才能搞定（微软似乎在做了改进，用byref就行了，合理了很多）。
以下是使用中的代码：
Private Sub Command1_Click()
'轻松读卡
'技术支持:
Const LB_SELECTSTRING = 0x018C
第三个例子:
#define TCN_FIRST(0U-550U)
这里有个特别的是定义的值是以"U"结尾,这是意味着该常量的类型是"unsigned long"(在VB中不支持 该数据类型).但是unsigned long和signed long(在VB中是Long)两种数据类型的值在存储方式上是一样 的,只是表现的形式不同.因此,我们只需要去掉末尾的"U"就可以了.
相应的VB声明如下：
Private Declaer Function piccreadex Lib "OUR_MIFARE.dll"(ByVal ctrlword As Byte, ByVal serial As Long, ByVal area As Byte, ByVal keyA1B0 As Byte, ByVal picckey As Long, ByVal piccdata0_2 As Long) As Byte