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

屏蔽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----编译运行,系统菜单不见了,弹出自定义菜单.
Delphi中的INI文件编程 DELPHI中的消息处理机制 Delphi中对目录拷贝、删除和搬移的操作 Delphi中任务栏状态区的编程 Delphi中如何处理2000年问题 Delphi中如何实现系统权限的设置 Delphi中异常的截获及其个性化处理 Delphi自定义消息应用一例 Delphi5中资源文件的创建和使用 Delphi的Bug-Tthread Suspend方法 Email服务器的简单实现-Delphi资料 Hook的制作-Delphi资料 INI文件的应用-Delphi资料 NT中的关闭计算机,重新登陆的实现-Delphi资料 Windows 系统方面-Delphi资料 Windows外壳扩展编程-Delphi资料 避免二次运行-Delphi资料 编程实现文件关联-Delphi资料 编写定制的文件流实现文件读写加密-Delphi资料 采用多线程进行数据采集-Delphi资料 产生临时文件名-Delphi资料 程序不出现在任务栏-Delphi资料 程序缩小为任务条右下角的小图标-Delphi资料 得到 Windows 用户名和序列号-Delphi资料 得到windows临时路径-Delphi资料 得到Windows用户名和序列号-Delphi资料 得到计算机的名字和ip-Delphi资料 得到内存的 Status-Delphi资料 得到上一个激活的组件-Delphi资料 得到在内存中运行的所有应用程序的handle-Delphi资料 调用控制面板项目大全-Delphi资料 请问嵌入网页中的Activex如何调整自身的大小?请各位高手帮忙!谢谢! Oracle和SQLSERVER中5用户10用户到底是什么意思? 我身边的一个PLMM说,她想找一个成熟、幽默、聪明的程序员。 一个局域网内访问odbc数据源的问题 对女孩子不能太热情了! 一个easy 的question 请精通C#与VB.net的大虾帮忙翻译一下 在异地拷贝一个文件(200M以上)到本地,如何做 《C++程序语言》(特别版)怎么样 getContentPane()是什么意思? 高手请进!嵌入网页中的Activex如何获取加载它的浏览器对象?谢谢! i am 24 year old ,but i have nothing 请问哪里有exchange2000 server??? XP,IE 6 SP1,安装JRE 1.4无数次,<APPLET>标签下的东西仍不能看,<OBJECT>可以,为什么??!!求救!! Socket发送接收的问题! c++ builder6的盘 mapx 问题? partition magic 8.0 一个既包含静态图象又包含视频播放的视频,怎样把它抓屏下来??? SOS!!!一个有关全文检索,以及文档的数据库存储的问题,急急!各位大侠出招啊,在线等候 请问如何在程序中将CEdit控件设为只读或取消只读, Java认证问题 请问你们认为哪种操作系统更好用和稳定? 关于mfc dll wizard 做出来的dll 的内存泄漏问题!! vc++与C++Builder有何本质的区别? 能否做个象Media Play的ACTIVEX查件,既有动画窗口,又有按钮??? 高手,关于数据库转换的问题 给分:谁有关于“从网卡取得数据”方面的论文 大家好,有一个关于拔号、专线系统的IP地址问题 SAX的问题 表单传递后,如何判断用户是否填入了内容的? 请教 请教各位大侠 各位好,小弟初学Oracle,请各位指点哪有相关电子书下载,多谢! 辞职,不知是对是错?(第一次散分,请版主高台贵手) 关于vb在com编程的几个问题! 请教如何用C#取网卡MAC的地址?? 那位大侠做过数据加密解密的程序呀! 询问一个关于组件安装的问题 Windows2000网上邻居里没有任何东西 我要的form控件在哪里? 有谁用过windows.net server 2003? 有关于结合JBuilder介绍XML的书籍吗? treeview的一个问题 有谁用过windows.net server 2003?介绍一下相关情况?谢谢 如何单击按钮产生超级连接的效果? mail函数怎么让邮件正文换行? redhat 7.2 请问这个问题如何解决? DropDownList不捆定数据库在线等待 急! 大家好,请教一个创建表的问题? 在所有支架结构中,()支架最稳定. 下列五种有色溶液与SO2作用,均能褪色,其实质相同的是( )①品红溶液 ②酸性KMnO4溶液 ③溴水 ④滴有酚酞的NaOH溶液 ⑤淀粉—碘溶液A.①④              B.①②③C.②③ 高压灭菌锅,深圳高压灭菌锅,高压灭菌锅价格,高压灭菌锅规格,高压灭菌锅型号,高压灭菌锅厂家? 结构由( )构成,()最稳固,结实,所用材料也最少. 女生生病了要我帮她去拿药 说明了什么校医室不远 她只不过是咳嗽 Fe可不可以与CuO反应 植物的抗氧化酶系统(SOD,POD,CAT)测定前提取的粗酶液最适保存温度是多少?该温度下最长能保存多少时间?有些说4度就可以,但最多24小时,有些又说负的几十度,但又有些人说不易结冰,究竟是 细菌拟核中有一个环状的DNA分子这句话对不对2 细菌和蓝藻都有细胞壁,细胞内只含有DNA一种核酸分子 对么? Cuo能与Fe(So4)反应吗 RNA提取植物材料需要消毒吗?求答案 为什么环状 DNA细菌体内的A≠T,C≠G? 叶绿体中ADP由叶绿体基质向内囊体膜运动,ATP则是向相反方向运动为什么是对的? 青海盐湖卤水可以泡脚吗 植物POD达到三四百,有没有可能?植物(沉水植物)叶片的POD值的范围一般是多少?在叶片还绿时达到三四百有没有可能? “氨能直接被植物吸收”这个说法对吗?如题有个题是:3.下面有关氮循环的说法中正确的一项是 A.生物的固氮过程就是氮被吸收到植物体内并被利用的过程 B.氮素一旦进入生物体内就会形 我要用ICS-1500型离子色谱仪测定盐湖卤水中锂的含量,请问离子色谱仪使用条件是什么,卤水需要什么预处理 怎样准确阅读药品说明书? 问问“看不懂”的粤语怎么说? 氯气能导电吗 节能灯塑料件的配方,我知道节能灯塑料件PP料加母料(就是石粉)的配方,但我石粉加多了,产品就容易碎,一捏就破,可能还有一种原料要掺进去,那就可能是玻纤,但我不知道他们的配比是多少, 带8个结晶水的氢氧化钡和氯化铵反应的中立即用玻璃棒搅拌的原因 下列所描述的二氧化硫的一些化学性质中,体现二氧化硫作为还原剂的是A.溶于水形成不稳定的亚硫酸 B与碱液反应生成硫酸根离子C通过溴水溶液使溴水褪色 D通入品红溶液中,使品 魔法玉米如何消毒? 为什么环状DNA细菌体内的A≠T,C≠G? 国产地平线摩托车跑车怎么样?宗申250小链发动机机. 猪场氨气太重,怎么处理? 粤语,听不懂不说,可怎么还看不懂...那些繁体字不说 好像很多词都没见过 像是古人用的 有点文言文的味道 有些简单句子看起来还特别扭 不同民族的教育具有不同的传统和特点说明了教育的() A民族性 B历史继承性 C生产性 D阶段性 怎么样解决养猪场的氨气?目前我们规模比较小,但是氨气也比较严重,请问有什么方法可以解决呢? 细菌拟核中的DNA是单链的对吗? 实践的基本形式包括( ) A生产实践 B处理社会关系的实践 C教育医疗实践 D科学实验 E艺术实践 (多选)E是否正确 为什么必须阅读药品说明书上的注意事项 下列关于HC-三键-苯环-CH-二键-CH-CH3的说法中正确的是A.所有原子都可能在同一平面上B.最多只可能有9个碳原子在同一平面上C.有7个碳原子可能在同一平面上D.只可能有5个碳原子在同一直线上 学会合作()A.是教育的目的 B.才能适应竞争 C.是成功的要素 D.目的是受人欢迎 E.目的是改善人际关系 一个关于药品的问题,药品说明书上有如下内容:不良反应:尚不明确禁忌:尚不明确注意事项:尚不明确这说明什么问题? 苯环可以与CH3-CH=CH2反应么?生成什么? 菲涅耳公式推导时利用的边值关系为什么是B和D法向分量连续呢? 阅读下列材料,材料一:楚越之地,地广人希(稀),饭稻羹鱼,或火耕而水耨,果隋赢蛤.材料二:江南地广野丰,民勤本业,一岁或稔(丰收),则数郡忘饥.)材料二中的江南地区相比材料一中的描 英语翻译Other ingredients:soybean oil,soy lecithin,gelatin,glycerin,magnesium hydroxide,silica.Warning:if you are pregnant,nursing,taking any medications,or planing any medical procedure,consult your doctor before use.discontinue use and consult 灭菌灯如何安装 兵团棉花目标价补贴是按面积补还是按斤数补 翻译药的说明书!第一种药:Duodenal ulcer,1 cup in the morning for 2-4 weeks, Gastric ulcer, reflux oesophagitis 1 cup in the morning for 4-8 weeks, Patients refractory to other regimens 40mg once daily for 4 weeks in patients with duodenal 二氧化硫做还原剂的反应都有哪些? 谁知道棉花是怎样补贴的? 亚铁离子的存在为什么会加速高锰酸钾氧化氯离子 So2 可以作还原剂吗 2014年棉花补贴怎么补 审计风险的定义和组成要素是什么? 爱包含了什么含义? 棉花补贴补每亩补贴l了191元,剩下的产量补贴还能补多少钱 实验室消毒设备有哪些谢谢wrgeng的回答,请问能再说明更细吗?例如紫外线灯用可移动的还是固定的好?臭氧我用密闭的臭氧机还是什么好?呵呵,多谢 爱和喜欢包含着什么含义? 细菌质粒是不是环状DNA?它要是DNA为什么还要做细胞工程的运载体?把它放入细胞里面,细菌的DNA不就也进去了么?而且目的基因是如何把质粒当成载体的呀? 找个懂德语的翻译段德语http://www.euro-piano.org/html/modules.php?op=modload&name=News&file=article&sid=80这个西德人的生平.翻译好了,再加一百分,现在不能一次二百了. 有50gKCL和KI的固体混合物加水溶解后,通入足量的氯气充分反应后,将溶液蒸干灼烧得固体31.7g.求:(1)标准状况下通入氯气的体积(2)原混合物中各物质的质量各是多少? 某种细菌每15分钟分裂一次(有一个分裂为两个)经过2小时,这个细菌由1个分裂成几个? 手提式高压灭菌锅如何使用什么时间放气?如果是电炉如何维持20分钟? 三角形组成的支架结构最稳固、结实,所用材料也最少吗?判断题 噬菌体在细菌细胞内的繁殖,需要利用细菌的物质中,为什么没DNA我看实验过程明明有细菌的DNA参加 含氯消毒剂中 氯 指什么 A元素 B原子 C分子 D离子 我认为应该是D 伊朗处死16名反政府组织囚犯 回应边奥巴马参观学校旁听课程 揶揄国会议员义乌26日清晨发生爆炸凶杀案 已有一安倍称担心中国加强军备 日本应领导亚墨糖果厂爆炸现场搜救结束确认两人遇难浙江首次采用新评价体系对1300余所我军少将:中国发展军力绝不针对日本伊朗东南部武装冲突致17名边防人员死国航增加三条国际航线香港影片《狂舞派》纽约放映获好评官员强奸幼女案双方民事和解 受害人获卡梅伦成英国将不改变与美国的情报合作秘鲁最高法院就藤森在家服刑举行听证会卡梅伦称英国将不改变与美国情报合作关秘鲁最高法院就藤森在家服刑举行听证会卡梅伦成英国将不改变与美国的情报合作向世界传播浙江声音 港澳新闻媒体聚焦浙江义乌一集装箱起火 消防成功排除唐家璇:中日关系深层次原因在于彼此认赵启正:中日关系令人担忧 面临政冷经中国古代绘画展在伦敦举行“猫论”背后的故事:毛泽东为何“黑”日媒:公明党党首首次表态同意修改宪法西班牙新国王检阅部队 一身戎装英姿飒韩国成立委员会 听政府汇报沉船事故调中国禁毒战争之“双村记”美国德州一母亲回家后悲痛发现三子遭枪萧淑慎晒近照 呼吁远离毒品珍爱生命(海报集团2014车展:零门槛加盟 享浙江发布暴雨黄色预警未来五天雨仍不停广州大学城多所高校齐停电 或因供电超中国经济这半年之一 深植全球改革竞合中国经济这半年之三 经济改革亮点清单兄冒名孪生弟弟作案锒铛入狱 弟以哥名震惊全台腌头案公厕夜传女哭声 拆掉重国防部:日本调整军事政策不得损害别国北影2014毕业典礼美女如云 杨紫张国务院办公厅印发《关于进一步加强涉企广东惠州机场改扩建工程开工湖北首只小贷公司私募债券登陆交易所湖北18条措施促进毕业生就业创业 计湖北5家公立医院开展“慈善白内障千人
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘