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

屏蔽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----编译运行,系统菜单不见了,弹出自定义菜单.
所见即所得:8款实用HTML5开发框架 Groovy最受欢迎 Java系开发者更偏爱其他JVM类语言?(图) [开源专访]iNews创始人赵戈戈:36小时开发的PHP版HackerNews 使用Spring框架的12个开源项目 甲骨文仍旧“憎恨”开源软件 开发者应该避免使用的6个Java功能 不可小觑的Web开发编码规范 软件工程师如同花园园丁,清理代码就好比拔草! 智能硬件元年 60+硬件展商引爆MDCC 2013 深藏功与名:Supercell CEO Ilkka Paananen访谈录 Google Ideas小工具捍卫言论自由 为什么谷歌要一直为摩托罗拉烧钱? 远见卓识,像CEO一样编写代码! [探讨]如何成为有代码洁癖的程序员? 消灭Bug!十款免费移动应用测试框架推荐 协同软件供应商Atlassian推出JIRA服务台 振奋人心!iOS和Android版BBM应用首日下载量冲破1000万次 十款开源的数据库管理工具 360联合多家IDC成立“安全防黑联盟” 国内百万网站受益 腾讯云如何玩转手游数据分析 成都站免费抢票 直接拿来用!10款实用Android UI工具 第14届英特尔投资全球峰会 新投16个项目逐一看 2013中国Linux内核开发者大会亮点汇总 UnitedStack:用社区的方式做IT 手游狂潮:小团队如何提高游戏数据化运营效率? 2012年全美CEO收入榜:扎克伯格第一、库克第五、Marc Benioff第九 专访:InMobi全球CEO Naveen Tewari MDCC 2013精彩专题论坛之产品与设计 中关村大型IT人才招聘会举办 现场火爆 [简讯]新代码编辑器Lime发布 号称Sublime Text的开源实现 从真实案例出发:如何在协作开发中避免误解! 关于如何用代码描述rc文件, 那位用过触摸屏的,给个建议, 请问微秒级的延迟在C语言中如何实现? 请问为什么在COM中总是使用双重值针,即指针的指针? 用过,销售,触摸屏的兄弟姐妹给个建议 关于C里面的setjmp()和longjmp()函数的使用。 一个用VB偏的“图片批量转换软件”!带源代码!!! 多伦多穷人欢庆申奥失败 有人注意到了吗???directX的资源释放不干净! 谁能帮我做一个小型帐务管理(用C)??? 用delphi编程,用什么触摸屏比较好啊? 怎样在程序运行时增加子菜单(要增加的数目是未知的) 关于Sprite动画 出售代码 ACCESS的FORMS DLL调用函数问题 VB在ACCESS中应用的一个小问题! ACCESS中的FORMS问题? 再普通不过的一个问题 delphi6中还有BDE和ADO吗?它们被淘汰了吗?现在还有必要用它们来学数据库的开发吗? 50分答谢!!!---这个css定义为什么会出现这样的效果??? 各位:怎么判断表里某个字段是否存在? 纯技术问题:精通“书签“与“层“的大虾请进!!!! 一个奇怪的现象,请教高手这是怎么回事? 哪里有破解清华五行卫士密码的软件? vc++7.0好用吗? 吃完晚饭了... 可不可以让 CppWebBrowser1的背景不是白色? 热热热!!!热疯了!!! 我的喇叭哪儿去了? 我的PB程序出了问题了!!! sql server中哪个函数是用于字符串与整型之间转换的? 我想限定文本输入框只能输入10个汉字或20个英文字符,但文件输入框却只能输入10个英文字符,如何解决? 当我将这样的字符串“dsdsdsdfsdffsdsdfsdfsfdsdfsdfsfsfdsdffs.....”放入我的表格中时,无论怎样设置也不折行,影响了部局,如何解决? MFC中视图(view)是怎样随着主窗口的大小改变而改变的。 急!请教!!猫猫连接,用数据管道同时访问两库,访问不到对方的网络库(sybase) 关于电影下载 我已经把一个exe文件加入到我自己的程序中了,请问在我的程序中应该样调用该exe文件呢? 哪位高手知道RTF格式的含义?或者更好,知道Rxlib中的RXRICHEDIT控件中识别RTF格式的方法? Delphi编写的DLL在VC下不能使用 请问哪儿有电工的<>的电子版下载?我只有这么多了 msdn2001年4月版的讨论 请问哪儿有电工的<>的电子版下载? 请教高手!!!! 请进 各位:周末愉快!为何我的多表查询用updatebatch提交时总是报错? 我不明白!!!! 请问,BAS 与 VBJ 有什么区别吗?为何他们安装在同一个目录呢? 如何得到系统进程的列表? vi下如何撤销操作? 我们知道MFC中的对象序列化做得很好,不知在DELPHI中怎样来实现对象的序列化? 我已经学过C++,想学VC++请问哪本书入门比较好啊? 判断:36和48的公因数有2、3、4、6、12,其中最大公因数是12. 科学题 (20 21:0:21)          把5毫升质量分数为98%的浓硫酸(密度为1.84克/厘米3).加入到25毫升水里进行稀释,求所得溶液的溶质质量分数. 求初二物理试题 24.36.48 公因数 (26 15:54:30)一艘船在河中逆流而上,河水流速为3米/秒,经过一座桥时,船上的一只木箱掉落水中,5分钟后船员才发现,立即掉头追赶,同时将航速(船相对与静水的速度)提高到原来的1.5倍,则可在 初二物理练习题我刚升初二请问有没有好题目分享给我些呢(用多 96和80的公因数有哪些 (26 15:39:30)甲、乙两物体都做匀速直线运动,速度之比是4:3,所用时间之比是5:2,则路程之比为 将一边长是10CM的实心立方体木块轻轻放入盛满水的大烧杯中,待木块静止时.从杯中益出600g的水.求:(1)木块受到的浮力(2)木块的密度. 160的公因数 初二科学题(关于水的浮力的) (7 15:53:16)武汉号满载时重7.5*10^7N,求满载时军舰排开海水的体积. (  ρ海水=1.03*10^3kg/m^3  g=10N/kg      结果保留两位小数) 初二物理试题 120和56的公因数是多少? 初二 物理 初二科学 请详细解答,谢谢! (5 15:45:30)铝球的体积为400立方厘米,质量为810克,问,该球是实心的还是空心的?(铝的密度:2.7×103千克/立方米) (1)一天刚下雨,地上出现一个个小水坑,但月光非常明亮,小英要去朋友家玩,走之前妈妈告诉她:路灯坏了,亮的地方是水坑,小英果然没踩到水,小英从朋友家回来时,朋友告诉她:不亮的地方 77和160有没有公因数 科学 (24 20:53:14)下列几种用电器正常工作时,电流最大的是(  )A.42寸液晶电视机   B.MP3       C.电子手表            D.100瓦 如图所示,MN是平面镜,A为发光点,B为反射光线上的一点,试画出经过B点的反射光线、这条反射光线对应的入射光线和法线. 80和30 公因数 桌子上放着一个空烧杯,烧杯内有——A氮气 B氧气 C空气 D包括ABC 一道初二物理光的反射题深夜,没有灯光,小明用手电筒照在白墙上高处的镜子,竟然发现镜子是黑的,墙是白的,为什么? 75和60 所有公因数的和 科学 (24 21:49:28)下列几种用电器正常工作时,电流最大的是(  )A.42寸液晶电视机   B.MP3       C.电子手表            D.100瓦 初二物理题(关于光的反射)急~1.你能让一束平行光线的传播方向改变180度吗?如果能,请你写出需要的器材和具体的做法(画图说明即可,用两种方案做).2.有人用“伸手不见五指”来形容很 90和60的公因数有哪些 科学 (24 16:22:14)T℃时,氯化钠的溶解度是n克,将m克氯化钠投入到n克水中,充分搅拌,若得到不饱和溶液,则溶液的溶质质量分数为(   ).如果m克氯化钠不能完全溶解在n克水中,则溶液的溶 光的反射--题 16和25的公因数 某同学质量为60㎏,每只脚与地面的接触面积150cm²,当他站在水平地面上时,对地面的压强多大?若他想使自己对地面的压强增大一倍,他可以怎样做? 1.冰块中包有石块,冰块在装睡的杯中处于漂浮状态,当冰块完全融化后,石块沉入底,则杯中的高度将( ).2.一个漂浮在小型也泳池水面上的小船,一个人从池里捞下面物体放入船中,其中能使池 45,75和60的公因数 初中物理压强计算题初中物理的压强计算题 1.小车在一段光滑的水平面上运动,若它的自重为20N,速度为3米每秒,则该物体作匀速直线运动所需要的推力为( )N;当它运动到一段平直的粗糙面上时,将会由( )变为( ),原因是受到( ) 46和13 公因数 24和54的公因数有哪些 几道初中物理计算题 压强1.动物保护组织成员测量出野牛在水平沙地上站立时留下的一个脚印的面积为0.025立方米,深度为1.8CM,并对该沙地进行抗压实验发现使沙地达到相同深度的压强为2x10x10 14和46的最小公因数 30和35的公因数有哪些 一位体重为50千克的中学生每只脚与地面的接触面积为200平方厘米,那么他双脚站在水平面上,对地面的压强是多少? 1-99的公因数是什么?可加我好友我现场问一下 科学 (26 19:5:8)一位同学用天平和量筒测定不规则木块的密度,已知木头的密度小于水的密度.请写出所需实验器材和实验步骤,并写出木块密度表达式.  一道初中物理压强计算题把一个长方体平放、侧放、立放在水平桌面上,物块对水平桌面的压强分别是0.8×1000Pa、2×1000Pa、5×1000Pa,已知ρ物=2000kg/立方米,计算这个物块的体积(g取10牛/千克) 公因数是什么意思? 1、将干燥纯净的氯酸钾13.25KG与3.25KGMNO2混合后装入大试管知趣氧气,反应一段时间后得到11.7固体物质.(1)制的的氧气质量是多少?(2)反应后固体物质是什么?质量是多少?(1)4.8KG  (2) 求初二物理关于固体压强的两道试题及解答.要有详细的过程哦.谢谢大家咯.我需要的是计算题和过程。不是填空之类的哦。 625和560有没有公因数?(1除外!)(要最大的) 科学家用_、_及_来描述与研究运动. 初二物理光现象试题和答案.过程.最好有实验 光现象的 285和175有没有公因数?(1除外!)(要最大的) 科学题 (23 21:41:24)1.水晶是晶体吗?2.晶体一般具有______、________,而非晶体一般不具有这些特性.3.无水硫酸铜粉末是____色的,遇水后形成的硫酸铜晶体是____色的,把其溶解在水中形成的硫酸铜溶 人站在水平地面上时,保持静止,受到__力和____力的作用,这两个力的施力物体分别是_____和 _____.这两个力的关系是__________.悬挂在楼板下的电灯,受到地球对它的_____和电线对它的_____作用,这两 498和415有没有公因数(1除外) 科学 (23 16:47:21)一辆长30m的大型平板车,整两车匀速通过70m长的桥,所用的时间是10s,它以同样的速度通过另一座桥,花了20s时间.那么,另一座桥长多少? 〈声现象〉声音的特性和 噪音的危害和控制 285和175有没有公因数?(1除外!) 科学 (23 21:28:35)有一铝球,体积是60cm2,质量是108g,判断该球是空心还是实心?如果该球是空心,那么球内的中空部分的体积是多大?如果在中空部分铸满铁,那么这个球的质量为多少?(铝的密度:2.7 求一套初二物理期末试题 一定要有答案啊,两套最好了.直接复制到下面,急 ,这套题不太好,还有没有啊 1和3有没有公因数求快 生活中遇到的科学问题 (21 21:17:30)春节前几天家里的墙壁都很潮湿,这是为什么?那卫生么有有些地方不这样呢? 帮忙找几道初二物理练习题吧,最好有答案
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn