VB与VC通信初探(一)

     在使用VB调用VC写的DLL的时候，可以实现一些VB不能实现或者很难实现的功能，但是，因为VB与VC之间的数据类型并不总是完全对应的，所以，在进行参数传递的时候，就需要进行类型转换了。下面我将通过逐步的推进的方法，来看看如何达到VB与VC之间的通信。
　　
　　首先，看一个简单的例子。
　　
　　VC中的程序：
　　
　　extern "C" _declspec(dllexport) void ReadString(void)
　　
　　{
　　
　　//函数功能
　　
　　}
　　
　　将这个VC程序编译成DLL程序供VB调用（假设生成的为commication.dll）
　　
　　VB中的程序：
　　
　　……………………
　　
　　Private Declare Function ReadString Lib "commication.dll" () 
　　
　　……………………
　　
　　call ReadString
　　
　　在这里，我们实现了一个简单的通信，即在VC中写了一个DLL,然后再在VB中调用了这个DLL,但是，在这次的通信中，实际上他们之间没有传递任何数据，仅仅是VB调用了DLL,从而使得commication.dll中的函数ReadString()函数执行。这种通信实现是非常简单，所以他完成的功能也就非常的简单，然而我们的要求肯定不止于此。
　　
　　现在就让我们来实现一个使用DLL来处理VB中的数据的例子，并且将处理结果返回给VB程序：
　　
　　VC中的程序：
　　
　　extern "C" _declspec(dllexport) bool ReadString(bool receive)
　　
　　{
　　
　　if(receive==true)
　　
　　return true;
　　
　　else 
　　
　　return false;
　　
　　}
　　
　　VB中的程序：
　　
　　……………………
　　
　　Private Declare Function ReadString Lib "commication.dll" (ByVal send As Boolean) as Boolean
　　
　　……………………

　　Dim result As Boolean
　　
　　Dim send As Boolean
　　
　　send = False
　　
　　result = ReadString(send)
　　
　　If result Then
　　
　　MsgBox "The return value is ’true’"

Else
　　
　　MsgBox "The return value is ’false’"
　　
　　End If
　　
　　在这次的通信过程中，我们还是实现了一个很简单的通行过程，在DLL中，根据VB调用的时候传递进来的参数将接收到的参数返回给了VB调用程序，虽然简单，但是已经实现了VB与DLL之间的数据传递了，在这里要注意的是它们之间的数据类型，布尔类型的数据在VC中使用的关键字是Boolean，而在VC中使用的关键字则是bool。
　　
　　由于VB与VC之间的数据类型没有相同的关键字，为了方便，下面列出常用数据类型在VC与VB中分别使用的关键字以及它们之间的对应关系：
　　
　　c中的数据类型 VB中的声明 结果
　　
　　ATOM ByVal variable As Integer 结果为Integer 类型的表达式 
　　
　　BOOL ByVal variable As Boolean 结果为 Long 类型的表达式 
　　
　　BYTE ByVal variable As Byte 结果为 Byte 类型的表达式 
　　
　　CHAR ByVal variable As Byte 结果为 Byte 类型的表达式 
　　
　　COLORREF ByVal variable As Long 结果为 Long 类型的表达式 
　　
　　DWORD ByVal variable As Long 结果为 Long 类型的表达式 
　　
　　HWND, HDC, HMENU ByVal variable As Long 结果为 Long 类型的表达式等Windows 句柄 
　　
　　INT, UINT ByVal variable As Long 结果为 Long 类型的表达式 
　　
　　LONG ByVal variable As Long 结果为 Long 类型的表达式 
　　
　　LPARAM ByVal variable As Long 结果为 Long 类型的表达式 
　　
　　LPDWORD variable As Long 结果为 Long 类型的表达式 
　　
　　LPINT, LPUINT variable As Long&nb