- 1、本文档共8页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
用VB进行子类化
摘要
这里我们讨论一下如何使用VB进行子类化,以及VB6和VB.NET的子类化实现的异同。
目录
1. 何谓子类化(subclassing)
2. Visual Basic 6子类化的实现
3. Visual Basic .NET子类化的实现
4. 小结
1. 何谓子类化(subclassing)
众所周知,Windows是一个基于消息的系统,消息在Windows的对象之间进行着传递。子类化和Windows的钩子机制存在于消息系统之中,我们可以利用这些机制来操纵、修改甚至丢弃那些在操作系统或是进程中传递的消息,以求改变系统的一些行为。
子类化技术用来截取窗口或控件之间的消息,当然是消息在到达目的窗口之前完成的操作。这些被截获的消息既可以保留也可以修改它们的状态,之后就继续发送到目的地。子类化技术实现了一些正常情况下无法实现的功能,试想鼠标右键单击TextBox,系统默认弹出Undo、Cut、Copy、Paste等菜单,我们就可以利用子类化技术来改变这个系统菜单。
简单的说,子类化就是创建一个新的窗口消息处理过程,并将其插入到原先的默认窗口消息处理过程之前。
子类化分为三类:实例子类化(instance subclassing)—从窗口或控件的单一实例截获消息,这种子类化技术最普遍;全局子类化(global subclassing)—能够截获从相同的窗口类创建出来的多个窗口或控件的消息;超类化(superclassing)—和全局子类化很类似,区别在于可以应用在新的窗口类上面。
2. Visual Basic 6子类化的实现
在Visual Basic 6子类化的实现中我将通过一段代码的实例来介绍这一技术在VB6中的应用。下面的例子将演示如何将About加入窗口的系统菜单。
①创建工程
启动Visual Basic 6同时创建一个标准EXE工程。
②在窗体中录入代码
Private Declare Function GetSystemMenu Lib user32 (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function InsertMenu Lib user32 Alias InsertMenuA (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long
Private Const MF_BYCOMMAND = H0
Private Const MF_BYPOSITION = H400
Private Const MF_STRING = H0
Private Const MF_SEPARATOR = H800
Private Sub Form_Load()
InsertMenu GetSystemMenu(Me.hWnd, False), 0, MF_BYPOSITION Or MF_SEPARATOR, 2001,
InsertMenu GetSystemMenu(Me.hWnd, False), 0, MF_BYPOSITION Or MF_STRING, 2002, About Me(A)
安装子类化入口
Call Init(Me.hWnd)
End Sub
Private Sub Form_Unload(Cancel As Integer)
‘卸载子类化
Call Terminate(Me.hWnd)
End Sub
③加入一个模块并录入代码
Option Explicit
Private Declare Function SetWindowLong Lib user32 Alias _
SetWindowLongA (ByVal hWnd As Long, ByVal nIndex _
As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib user32 Alias _
CallWindowProcA (ByVal lpPrevWndFunc As Long, ByVal _
hWnd As Long, ByVal Msg As Long, ByVal wParam As _
Long, ByVal lParam As Long) As L
您可能关注的文档
- 用MicrosoftExpressionEncoder4制作播放器并添加快照.docx
- 用MRTG打造流量监视器.doc
- 用NeroCoverDesinger打印光盘贴纸.doc
- 用NAT地址转换搞定局域网共享问题.doc
- 用Nero打印光盘贴纸.doc
- 用Office2013邮件合并功能批量制作带照片的工作证.docx
- 用ORIGIN60设置数据图的基线-红外谱图举例.doc
- 用Origin80也能对图片进行编辑和处理.docx
- 用origin7处理饱和蒸汽压.doc
- 用PADSLayout设定原点和查找零件.doc
- 2025年房地产市场运行情况总结分析.pdf
- 2025年度全国安全生产知识竞赛试题库及答案(二).pdf
- 2025年度环保知识竞赛复习题库及答案(共100题).pdf
- 2025年妇产科护理知识竞赛试题库及答案(共90题).pdf
- 2025年法制宣传日普法知识竞赛测试题库及答案(三).pdf
- 2025年法律基础知识竞赛抢答题库及答案(共50题).pdf
- 2025年法制宣传日普法知识竞赛判断题库80题及答案(抢答版).pdf
- 2025年高级化工仪表维修工理论知识判断题库及答案(共230题).pdf
- 2025年度事业单位招聘考试公共基础知识全真模拟试卷及答案(共三套).pdf
- 2025年反法西战争胜利78周年知识竞赛考试卷(精选).pdf
文档评论(0)