VB与VC混合编程中处理消息的方法

文章作者 100test 发表时间 2007:09:06 12:01:15
来源 100Test.Com百考试题网

　　现在越来越多的人彩VB与VC的混合编程:用VB快速开发出漂亮的界面以及外围处理程序,再用VC编写底层的各种操作,例如内存的操作,IO端口的操作等,VC中还可以嵌入汇编语言进行更底层的操作.

　　一般的做法是将VC程序编译成DLL,在VB中用DECLARE语句声明DLL中的函数,例如:

　　Declare Function SendCommand Lib "c:\windows\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以上版本中,可以定义自己的事件,但比较麻烦.这里介绍一种简单的方法,让VB巧妙的处理自定义的消息:

　　1.首先将VB窗体中TextBox控件TEXT1的句柄传递给DLL(注意:VB中的TEXTBOX控件有hWnd属性).

　　VB中:’’声明DLL中的函数

　　Declare Function SendhWnd Lib "c:\windows\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_DATACOM").

　　3.在TEXT1_CHANGE事件中处理消息:

　　Private Sub Text1_Change()

　　Select case Text1.text

　　case MW_TAPI_DATACOME.

　　case MW_TAPI_BUSY.

　　default.

　　End Select

　　End Sub

　　以上方法在作者编写的"TAPI远程监控系统"中使用,效果很好.