Public Function wndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'截取下来的消息存放在msg参数中.
If Msg = WM_RBUTTONDOWN Then
MsgBox Combo1.Text
Else
wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
End If
End Function
这个是放在模块中的,我想使用MsgBox Combo1.Text,可是说对象请求,combo1控件是放在窗体中的,在这里如何使用MsgBox Combo1.Text呢?
'截取下来的消息存放在msg参数中.
If Msg = WM_RBUTTONDOWN Then
MsgBox Combo1.Text
Else
wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
End If
End Function
这个是放在模块中的,我想使用MsgBox Combo1.Text,可是说对象请求,combo1控件是放在窗体中的,在这里如何使用MsgBox Combo1.Text呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货