1.首先将VB窗体中TextBox控件TEXT1的句柄传递给DLL(注意:VB中的TEXTBOX控件有hWnd属性). VB中:’声明DLL中的函数 Declare Function SendhWnd Lib "c:windowshr0506dllmnsr.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
VB中:’声明DLL中的函数
Declare Function SendhWnd Lib "c:windowshr0506dllmnsr.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