| 订阅 | 在线投稿
分享
 
 
 

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

来源:互联网  宽屏版  评论
2008-06-01 01:10:27

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

 
 现在越来越多的人采用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远程监控系统”中使用,效果很好。
󰈣󰈤
 
 
 
>>返回首页<<
 
 热帖排行
 
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
©2005- 王朝网络 版权所有