用SendMessage实现剪贴板操作
2006-02-27 11:52:37 来源:WEB开发网核心提示:要使用这一技巧,你就需要声明用于剪切、复制和粘贴的常数:PRivateConstWM_COPY=&H301PrivateConstWM_CUT=&H300PrivateConstWM_PASTE=&H302然后,用SendMessage实现剪贴板操作,声明对SendMessageAPI的调用:PrivateDeclar
要使用这一技巧,你就需要声明用于剪切、复制和粘贴的常数:
PRivateConstWM_COPY=&H301
PrivateConstWM_CUT=&H300
PrivateConstWM_PASTE=&H302
然后,声明对SendMessageAPI的调用:
PrivateDeclareFunctionSendMessageLib"user32"_
Alias"SendMessageA"(ByValhWndAsLong,_
ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong
HWnd自变量能够接受消息发送的目的控件的句柄,而wMsg自变量会接受一个表明要被发送的是哪个对象的常数。WParam和lParam自变量被用来把其他信息同消息一起传递,但是不对WM_CUT、WM_COPY或者WM_PASTE使用。
下面是从菜单点击事件调用SendMessageAPI的代码:
PrivateSubmnuCopy_Click()
CallSendMessage(Me.ActiveControl.hwnd,WM_COPY,0,0)
EndSub
PrivateSubmnuCut_Click()
CallSendMessage(Me.ActiveControl.hwnd,WM_CUT,0,0)
EndSub
PrivateSubmnuPaste_Click()
CallSendMessage(Me.ActiveControl.hwnd,WM_PASTE,0,0)
EndSub
这个技巧能够用于任何实现hWnd属性,并能够响应WM_CUT、WM_COPY和WM_PASTE消息的控件。还应该实现错误处理,以处理不带hWnd属性的控件。->
PRivateConstWM_COPY=&H301
PrivateConstWM_CUT=&H300
PrivateConstWM_PASTE=&H302
然后,声明对SendMessageAPI的调用:
PrivateDeclareFunctionSendMessageLib"user32"_
Alias"SendMessageA"(ByValhWndAsLong,_
ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong
HWnd自变量能够接受消息发送的目的控件的句柄,而wMsg自变量会接受一个表明要被发送的是哪个对象的常数。WParam和lParam自变量被用来把其他信息同消息一起传递,但是不对WM_CUT、WM_COPY或者WM_PASTE使用。
下面是从菜单点击事件调用SendMessageAPI的代码:
PrivateSubmnuCopy_Click()
CallSendMessage(Me.ActiveControl.hwnd,WM_COPY,0,0)
EndSub
PrivateSubmnuCut_Click()
CallSendMessage(Me.ActiveControl.hwnd,WM_CUT,0,0)
EndSub
PrivateSubmnuPaste_Click()
CallSendMessage(Me.ActiveControl.hwnd,WM_PASTE,0,0)
EndSub
这个技巧能够用于任何实现hWnd属性,并能够响应WM_CUT、WM_COPY和WM_PASTE消息的控件。还应该实现错误处理,以处理不带hWnd属性的控件。->
Tags:SendMessage 实现 剪贴板
编辑录入:爽爽 [复制链接] [打 印]更多精彩
赞助商链接