● VB与VC混合编程中处理消息的方法 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: taotiger (一不做二不休三不回头), 信区: Program
标  题: VB与VC混合编程中处理消息的方法
发信站: BBS 荔园晨风站 (Thu Sep 16 08:25:04 1999), 转信

现在越来越多的人采用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远程监控系统”中使用，效果很
好。
--
        十  步  杀  一  人

          千  里  不  留  行

※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.29.145]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店