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 
　　以上方法在作者编写的“tapi远程监控系统”中使用，效果很好。