VB 版 (精华区)
发信人: coolpine (九头虫),信区: VB 标 题: VB与VC混合编程中处理消息的方法 VB与VC混合编程中处理消息的方法 现在越来越多的人采用VB与VC的混合编程：用VB快速开发出漂亮的界面以及外 围处理程序，再用VC编写底层的各种操作，例如内存的操作、IO端口的操作等， VC中还可以嵌入汇编语言进行更底层的操作。 一般的做法是将VC程序编译成DLL，在VB中用Declare语句声明DLL中的函数， 例如： Declare Function SendCommand Lib ″c:\program files\devstudio\wjfprojects\Hr0506dllMnsr\debug\Hr0506dllMnsr.dll″ (CmdNum As Integer) As Boolean 声明以后，函数SendCommand 就可以当作VB自己的函数使用了。 但是，怎样将VC中的各种消息（例如各种底层的状态）及时通知VB并且VB能够 及时处理呢？这是VB的一个缺陷：不能方便地处理自定义的Windows消息。例如在 VC中自定义了两条消息：MW_TAPI_DATACOME，MW_TAPI_BUSY，在C语言中，用 PostMessage（hWnd，MW_TAPI_CONNECTED，0，0）；语句可以很方便地将 MW_TAPI_CONNECTED消息传递给窗体（窗体句柄为hWnd），在主回调函数中就可以 处理了。但是要把这条消息传递给VB，并让VB处理这条消息，并不太容易。虽然在 VB5.0以上的版本中，可以定义自己的事件（EVENT），但比较麻烦。这里介绍一种 简单的方法，让VB巧妙地处理自定义的消息： 1．首先将VB窗体中TextBox控件Text1的句柄传递给DLL（注意：VB中的 TextBox控件有hWnd属性）。 VB中： ′声明DLL中的函数 Declare Function SendhWnd Lib ″c:\program files\devstudio\wjfprojects\Hr0506dllMnsr\debug\ Hr0506dllMnsr.dll″ ((ByVal hWnd As Long) As Boolean ′传递text1的句柄 SendhWnd（text1.hWnd） VC中：//句柄接收函数 declspec(dllexport) BOOL GethWnd(HWND hWnd1) { hWnd=hWnd1; if (hWnd==NULL) { return FALSE; } return TRUE;} 2．在VC中用API函数SetwindowText取代PostMessage直接发送消息给VB中的 Text1控件： SetwindowText(hWnd,″ MW_TAPI_DATACOME ″); 3．在Text1_Change事件中处理消息： Private Sub Text1_Change() Select case Text1.text case W_TAPI_DATACOME： ′消息处理语句 case MW_TAPI_BUSY： ′消息处理语句 default: ′其他处理语句 End Select End Sub