说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

屏蔽TextBox的系统菜单 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
屏蔽TextBox的系统菜单 -VB资料
TextBox是最常用的控件之一,很多时候我们需要处理在其上的右键处理.而系统默认有右键菜单, 因此很多时候影响程序的美观.其实,我们可以将系统的右键菜单屏蔽掉.屏蔽TextBox右键菜单的 方法有很多,下面主要介绍常用的两种方法:

方法一:投机取巧法;
本方法实现起来十分简单,在某些场合下使用起来很方便;不足是有些场合下不适用.
>>步骤1----建立新工程,在窗体上放置一个TextBox;
>>步骤2----在窗体上创建一菜单,设其Name = a;Visible = false;
>>步骤3----编写如下代码:
Private Sub Text1_MouseDown(Button As Integer, Shift _
As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
Text1.Enabled = False
Text1.Enabled = True
PopupMenu a
End If
End Sub

>>步骤4----编译运行,在TextBox中按下鼠标右键,看看,系统菜单不见了,弹出的只是你自己定义的菜单. 简单吧!


方法二:截获系统消息法.
本方法实现起来相对来说,麻烦些,不过,应该说这种方法放之四海而皆适用.
首先取得系统函数的地址,并保存,然后用自定义的函数代替系统函数,最后恢复系统函数,弹出自定义菜单.
请看下面的代码:
>>步骤1----建立新工程,在窗体上放置一个TextBox; >>步骤2----在窗体上创建一菜单;设其Name = a;Visible = false;
>>步骤3----添加以模块,加入如下代码:

Public OldWinProc As Long' 保存系统窗口函数的地址
Public Const WM_CONTEXTMENU = &H7B' 当右击文本框时,
系统发送这条消息

Public Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) _
As Long
Public 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 Long
Public Function SubClass_WndMessage(ByVal hWnd As _
OLE_HANDLE,ByVal Msg As OLE_HANDLE, ByVal wParam As OLE_HANDLE, _
ByVal lParam As Long) As Long
If Msg <> WM_CONTEXTMENU Then
SubClass_WndMessage = CallWindowProc(OldWinProc, _
hWnd, Msg,wParam, lParam)
' 如果消息不是WM_CONTEXTMENU,就调用系统的窗口处理函数
Exit Function
End If
SubClass_WndMessage = True
End Function

>>步骤4----在窗体中加入如下代码:
Private Const GWL_WNDPROC = (-4)

Private Sub Text1_MouseDown(Button As Integer, Shift As _
Integer, X As Single, Y As Single)

If Button = 1 Then Exit Sub
OldWinProc = GetWindowLong(Text1.hWnd, GWL_WNDPROC)
' 取得窗口函数的地址
Call SetWindowLong(Text1.hWnd, GWL_WNDPROC, AddressOf _
SubClass_WndMessage)
' 用SubClass_WndMessage代替窗口函数处理消息
End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift _
As Integer, X As Single, Y As Single)
If Button = 1 Then Exit Sub
Call SetWindowLong(Text1.hWnd, GWL_WNDPROC, OldWinProc)
' 恢复窗口的默认函数
PopupMenu a
' 弹出自定义菜单
End Sub

>>步骤5----编译运行,系统菜单不见了,弹出自定义菜单.
CSS、JavaScript开发者必备的10款最佳工具 IBM推出API管理平台 抢占API经济市场份额 2013中国云计算榜单之一:15云平台,谁主沉浮? 移动周报:百万壁纸、85后程序媛,我为梦想代言! 电信天翼开放平台:为App开发者免费提供云存储和云主机服务 Google新的Web UI库:Ploymer 研发周报:让开发者高效编程的10个新框架 拯救行将就木的PHP:谷歌为GAE添加PHP支持 PPT集萃(一):10位业内高管分享云计算技术理念与行业趋势 得益于苹果谷歌,未来可穿戴技术市场规模可达500亿美元 雅虎11亿美元押注Tumblr三大因素:用户、社交、内容 Perceptual:英特尔感知计算挑战赛 正式启动 吴义坚:创业去!我用深度神经网络,处理语音识别 浅谈用户体验的“反面模式 可穿戴设备又一站:增强现实眼镜CastAR 数字医疗投资将破纪录 投资人看好这些细分领域 Mayer又下一城:雅虎收购Tumblr推进移动化? 前端开发利器:代码预处理工具Prepros 一个轻量级的JavaScript库:Reactor.js [探讨] 用户体验设计师现在面临怎样的机遇和挑战? PPT集萃(二):淘宝、CloudStack等分享的架构经验与最佳实践 2013中国云计算榜单之二:64家云主机+云存储,错综复杂! 看Java技术基础的eBay如何评价他们的Node.js首次尝鲜 Jolla发布首款Sailfish系统手机 无缝兼容Android应用 NPD:全球智能手机出货量2013年将首次超过功能手机 聚合数据左磊:不走寻常路 做国内最好的数据聚合平台 从程序员到软件商 需要注意些什么? 共享软件海外营销策略与实战(上海站) 直接拿来用!最火的Android开源项目(完结篇) 一步加入云生态系统 参加第五届中国云计算大会的十大理由 传苹果iOS7将深度整合Flickr 用户受益最大 我编了一个mousemove的过程为什么在onmousemove里看不到 jsp参数传递的乱马问题 校园网查看ip的问题 tuxedo分组很有学问,分不好会死,还有内存泄露,请赐教 有关页面调度的课程设计 新手问题,在线等! 内存大小是否会影响到网络速度? 谁来救我 ,SOS,求用C语言写的编译器 修改数据出错,不知为何? 等级考试的问题 请问能不能在不同用户登陆的情况来决定服务A是否启动。 关于还原精灵转储后win98不能启动的问题,请指教!~ 今天,我终于听到项目经理的一句内心话,让我们作为程序员感到一阵阵的寒心 请教一下 dll调试问题 怎样得到OnLButtonDown的point在整个屏幕上的坐标啊?谢谢 递归调用FindFirstFile、FindNextFile、FindClose的问题 页面调度有关的课程设计 关于client端与server端的连接问题 请问能不能在不同用户登陆的情况来决定服务A是否启动。 Textbox如何禁止它记忆以前曾经输入过的值? 我的XP的CPU经常占用90%以上,高手指点. 安装完win2000,又安装了天网防火墙,再安装SQL server 2000,快完成时启动服务警告“无法定位程序输入点” 急招深圳周边(含深圳).Net程序员 ??qustion Laney(6吨大肥猫) 快来啊^@^ 有关struts的<html:text>标签的问题!!!!!!!!!!!!!!!!!!!!!!! 为了考试挑灯夜读,遇到一个菜问题请大家帮忙! 哪位高手帮帮我!时间紧急! 关于还原精灵转储后win98不能启动的问题,请指教!~ 有几张漂亮图片,看看你的计算机是怎么累死的 求C++算法代码。 怎么实现在IE中将查找到的关键字用红色标记指示出来? 求C++算法代码。 请问哪里可以下载Numega DevPartenr Studio 测试工具 ㊣㊣ 什么也不多说了,帮忙给解决这个问题吧, 先多谢了!! ㊣㊣ 有个小小问题 寻找监测某端口的数据流量软件 都市幽灵·里面一定有宝藏 非常奇怪:为什么超链接无效? 显示异常 下个星期开始到新公司了,请大家给点经验,好吗 急!jsp+mysql,急寻blob输出方法!!! 修改记录问题 StringGrid的自画 导出 救命呀,关于XP的激活问题. 语句 请问有什么好的串口调试工具,可以模拟串口发送数据的??????? 简单问题高分相送 MessageBox.Show 方法需要什么样的名空间 忽然间明白过来适合什么成语? 英语翻译A data structure is a way to store and organize data in order to facilitate access and modifications.No single data structure works well for all purposes,and so it is important to know the strengths and limitations of several of them.这 高一数学题目..不会 ..求解1.已知U=R,A{X∈R|1<X<4} B={X∈R|X≤-1 或 X≥3},求CuA和CuB2.已知全集U={0,2,a的平方+2a+3} A={0,2} CuA={1,2},求a的值3.已知集合A={X∈R| 1≤X≤5} B={X∈R| a≤X≤2a+1} 且A≥B,求a的 心中忽然间明白了,是什么成语 为什么我单词3500都背会了但阅读还是老看不懂? 时光荏苒,怎么念 用成语代替全世界都知道 为什么背了单词还是看不懂文章单词尽管背了,可现在一做阅读发现单词还是看不懂啊,郁闷啊,只有90多天了,咋办 品读经典,完成下面的填空.1.《水浒》中的主要人物有:行者______,花和尚______,黑旋风______. 英语翻译内容是:"既然你开口叫我负责,我会负责到底的!" 单词背了就忘 阅读看不懂 愁死了 世界的统一性问题中,何谓一元论?何谓二元论?如题,要确切.重点是一元论与二元论. 实矩阵A特征值为r+is,有1/2(A+A')的特征值均为实数且为b1 在玉树地震时,电视新闻和报纸进行了大量的报道,谈谈最让你感动的一个画面,一个人或一件事 论述世界统一性原理是唯物一元论的前提和基础 谁能帮忙写篇作文啊悲观主义说,这个世界有无数的墙.乐观主义说,这个世界有无数的门.现实主义说,这个世界是由无数的隔膜和沟通的门组成的.你怎么理解这三种看法?请从上面三种看法中选 惆怅是什么意思 世界的统一性在于它的什么 谁能帮我写篇文章RT,主题是庆祝火锅店开业一周年.字数800左右. 惆怅的意思是什么?拜托了各位 谢谢 高一数学题 谢谢了诶~1.如果loga2>logb2>0,那么( )A.1 谁能帮我写篇作文啊?《爱点亮我的心灵》700字 一定是亲身经历的~ 请问一下惆怅是什么意思? 高一数学诶……泪流满面求指导做前三道就好了 我承认我问题很多==请给详细解释 谢谢 七年级下册地理的重点? 指出句子所运用的修辞手法:1.他正向古代典籍钻探,有如向地壳寻求宝藏 2.闻先生大无畏地在群众大会上,骂特务,慷慨淋漓,并指着这群败类说:你们站出来!你们站出来!阅读题:1.仰之弥高,越 《大道之行也》全篇课文的断句 您好,请问杭州离海宁有多远? 人情冷暖 世态炎凉 是什么意思 Mr Smith often helps the poor people.He is a man with a kind h_____________Mr Smith often helps the poor people.He is a man with a kind h_____________ 两个向量相等的条件是 什么叫结构化程序设计?它的主要内容是什么? 翻译成英语 人情冷暖世态炎凉 前不见古人 后不见来者念天地之悠悠独怆然而涕下谁写的啊在什么时候写的啊? 英语为啥这么难? 世态炎凉鸡最懂,人情冷暖鸭先知. 写篇英语作文should student be required to do writeen honework写篇作文 在线等 你懂得 为什么英语这么难 翻译 企业文化我们企业是以位置相关的各种信息的应用与发展,维持与改善人类生活作为企业发展方向和坚定不移的目标.把位置相关的信息领域所取得的成就做为我们衡量一起活动的标准. 请问刘老师,行阶梯形矩阵是不是只能由行变换得到? 为什么英语回这么难 念天地之悠悠,独怆然而涕下.神木意思? 求问矩阵的初等行变换是否影响其对称性?并给出证明. 为什么英语对于我来说这么难? 翻译:念天地之悠悠,独怆然而涕下 已知矩阵B,求变换矩阵T使得(T的转置)*B*T成为对角矩阵,老师我想问一下先变行再变相应的列行不行? 世态炎凉人情冷暖世态炎凉.人情冷暖.为什么真么说 在经济繁荣时期和萧条时期因怎样分别运用财政政策? 几维的时空宇宙共有几维时空? (v-2s)/(2x-u)=(v-s)/s (u、v都是正数,且v+u≠0,求出s,并推导出1/s=(1/u)+(1/v) 如何提高学前教育经济效益 时间和空间的讨论,这是个几维的空间?假设题:地球发射宇宙飞船去A星探索星际环境,地球距离A星的空间直线距离假定为一光年.在飞船起飞的时候就与地面进行实时传播,地面开始录制整个飞 已知圆面C:(x-a)^2+y^2 怎么写学前教育专业学习情况? 一道初中语法题!麻烦详解.The teacher ,together with his students ,____ a trip to Nanjing.A have taken B are talkingC are going to take D is taking答案选的是D is taking C错在哪里?B呢? 重点论也是一元论,对吗, 这是科学,请学霸帮我,谢谢! 3点多少分时,时针和分针离2的距离相等,并且在2的两边 谁能帮我写篇文章 为什么在发达的资本主义国家美国马列主义著作有一定的市场 “美丽中国”大型图片展在莫斯科举行吸烟让你变丑:双胞胎脸部皮肤对比作证解决伊核问题需要信任和耐心纽约规定21岁以下禁买烟普京治下的“俄式反腐”值得借鉴斯诺登最新照:在莫斯科乘游览船 未戴默克尔遭美国监听 德议员称斯诺登愿协孟建柱会见乌兹别克斯坦总统并主持中乌铁腕普京突击检查俄军核战备以色列攻击叙利亚军事基地 目标是俄制斯诺登莫斯科生活照曝光:休闲打扮未戴联合国称叙利亚完成对化武生产设施功能叙利亚当局表明愿无条件参加叙问题国际留祥路本月起改叫石祥西路 路牌错了破男硕士年薪5万月花400 穿旧衣相亲男子为救假装落水儿童瘫痪 28年后获美国六大互联网巨头致信国会要求改革监自称21岁大学生 40岁男子男扮女装中央第八巡视组组长:着力发现选人用人杭州13岁姑娘失踪5天 在社会上结识快递哥邱师傅倒在送货路上 同行前去凭荐|格局,决定着你的人生精选GIF图第9波来袭传统企业如何才能“互联网+”?蚂蚁金服与内蒙君正和解 成天弘基金第千古揭秘:不为人知的秦朝灭亡真相Google X 主管:我们也是要赚精神强大的5个途径失望!Apple Watch将砍掉健理财天天读|中国大妈抄底黄金 两年被索尼AR眼镜开发版接受预订,需840是不是傻,你怎么又被信用卡坑了!盘点“BAT+3M”五大互联网巨头2这些债券型基金表现不错,挑只心水的带医生们颤抖吧!一大波机器人正在袭来!推荐 | 我读书少……关于攻略男神的系统方法论经验 | 日常攒钱60法 你能做到警察蜀黍教你燃放烟花爆竹的正确姿势分析 | 首批征信机构即将开业 对P查开房我帮你泄露酒店开房记录 毁一个报告 | P2P投资人平均年龄35岁
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘