网络编程 | 站长之家 | 网页制作 | 图形图象 | 操作系统 | 冲浪宝典 | 软件教学 | 网络办公 | 邮件系统 | 网络安全 | 认证考试 | 系统进程
Firefox | IE | Maxthon | 迅雷 | 电驴 | BitComet | FlashGet | QQ | QQ空间 | Vista | 输入法 | Ghost | Word | Excel | wps | Powerpoint
asp | .net | php | jsp | Sql | c# | Ajax | xml | Dreamweaver | FrontPages | Javascript | css | photoshop | fireworks | Flash | Cad | Discuz!
当前位置 > 网站建设学院 > 网络编程 > Visual Basic
Tag:注入,存储过程,分页,安全,优化,xmlhttp,fso,jmail,application,session,防盗链,stream,无组件,组件,md5,乱码,缓存,加密,验证码,算法,cookies,ubb,正则表达式,水印,索引,日志,压缩,base64,url重写,上传,控件,Web.config,JDBC,函数,内存,PDF,迁移,结构,破解,编译,配置,进程,分词,IIS,Apache,Tomcat,phpmyadmin,Gzip,触发器,socket
网络编程:ASP教程,ASP.NET教程,PHP教程,JSP教程,C#教程,数据库,XML教程,Ajax,Java,Perl,Shell,VB教程,Delphi,C/C++教程,软件工程,J2EE/J2ME,移动开发
本月文章推荐
.利用VB设计打印复杂报表.
.利用API函数播放Wav声音文件.
.VB图像处理之铅笔画算法和木雕算.
.有关Tray系统盒的VBAPI函数.
.复本操作的对象、属性和方法(3)-.
.VisualBasicCOM基础之更多属性.
.VB中列表框的使用技巧说明.
.VisualBasicCommonDialog控件的使.
.如何在VB中截获shell程序的输出.
.VisualBasic2005中的My功能.
.获得Windows的临时文件的路径.
.提高VisualBasic访问数据库的效率.
.在VB应用程序中恰当的使用声音.
.VB图像处理之二次线性插值的应用.
.VB应用程序访问SQLServer方法探讨.
.VisualBasic工具栏、对话框二.
.VisualBasic工程管理三.
.VB从零开始编外挂(六).
.在VB中控制Word.
.VB.Net基本语句.

用SendMessage实现剪贴板操作

发表日期:2006-2-27


要使用这一技巧,你就需要声明用于剪切、复制和粘贴的常数:

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属性的控件。->

上一篇:VB6实现局域网多站点互连手册 人气:3255
下一篇:VB环境多媒体压缩数据流播放技术 人气:4121
浏览全部Visual Basic的内容 Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐