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

VB如何在VB中制作不回显的文本框

HTML文档下载 WORD文档下载 PDF文档下载
VB如何在VB中制作不回显的文本框
在应用程序中,有时需要用户录入一些不宜在屏幕上直接显示的内容,如用户口令或机密数据。我们已熟知,在Foxbase/Foxpro中这一功能可以用SETCONSOLEOFF命令关闭向屏幕的回显来实现。那么,在VisualBasicforWin-dows中如何做到这一点呢?

一个容易想到的方法是利用文本框的Key-Press事件,但为了处理用户对文字的编辑(如删除、插入),则还要再用其它变量存放真正输入的内容,而且必须书写大量复杂的控制程序。实践证明,这种方法比较繁琐,不便使用。

笔者在用VB编程时发现,Windows文本框可以响应许多消息,那么,可不可以利用WindowsAPI函数sendmessage将控制特性的消息传递给文本框呢?如果可行,则可以将使目标以密码形式输出的消息传递给文本框,不就可以制作出不回显文字的文本框了吗?

答案是肯定的。笔者使用以上思路实现了这一功能。以下是程序中用到的几个API函数和有关的消息:

getfocus():返回获得输入焦点的目标句柄;

getwindowlong():取得指定目标的信息,第二个参数为GWL_STYLE时将返回目标的“风格”属性;

setwindowlong():把新的属性值赋予指定的目标。该函数的三个参数分别为目标的句柄、属性类型、新属性值;

sendmessage():向目标发送一条消息。该函数的四个参数分别为接收消息的目标句柄、消息、消息参数一、消息参数二;

GWL_STYLE(程序中简写为STYLE):其值为-16,表示目标的“风格”;

ES_PASSWORD(程序中简写为PASS)简写为PASS):其值为&H20,表示目标具有录入口令的属性,即在录入时不回显;

EM_SETPASSWORDCHAR(程序中简写为PASSCHAR):其值为&H41C,表示传递密码特性。用sendmessage向目标传递此消息成功,则目标会将自身的输出信息以指定的密码形式给出。

以下程序,通过sendmessage函数修改文本框Text1的“风格”属性,使其以指定的密码形式输出———不管用户录入的是什么内容,都以相同数量的“*”来显示。用户可以通过单点“Command1”按钮来显示Text1.Text的真正内容。

DeclareFunctiongetfocusLib“user”()AsInteger
DeclareFunctiongetwindowlongLib“user”(ByVal handAsInteger,ByVal indexAsInte-ger)AsLong
DeclareFunctionsetwindowlongLib“user”(ByVal handAsInteger,ByVal indexAsInte-ger,ByVal newflagAsLong)AsLong
DeclareFunctionsendmessageLib“user”(ByVal handAsInteger,ByVal msg As Integer,ByVal wparaAsInteger,ByVallparaAsLong)AsLong
ConstSTYLE=-16
ConstPASS=&H20

ConstPASSCHAR=&H41C

SubCommand1_Click()
MsgBoxtext1.Text
EndSub
SubCommand2_Click()
End
EndSub
SubForm_Load()
Show
text1.SetFocus
hand%=getfocus()
flag&=getwindowlong(hand%,STYLE)OrPASS
flag&=setwindowlong(hand%,STYLE,flag&)
flag&=sendmessage(hand%,PASS-CHAR,Asc(“*”),0&)
End Sub
OpenStack基金会COO Mark Collier:2014年将超越AWS Evernote更新Android SDK:新增商务服务并拆分“印象笔记” 主流编译器对C++11的支持现状比较 GCC 4.8发布,提升对C++11的支持 英国政府下令首选开源软件 为何美国IaaS收购被引爆?基于IaaS的四个误解和四个猜想 Kinect SDK v1.7迎来重大更新 如何激励同事编写单元测试? 谷歌GCE vs. 亚马逊EC2:快源于谷歌本有的底蕴 不要责怪开源技术 它是无辜的 短命:微软将于2014年停止对WP8系统支持 Native和Web过时了,企业级移动开发流行用Hybrid App 与EverNote竞争?谷歌Google Keep浮出水面 又一次跨越:著名3D游戏引擎Unity版本更新 Feedly团队:自研后端平台或将开源 StackMob的诱惑:16小时,山寨一款移动App “云”筹帷幄 开发者必知的5大SaaS在线服务工具 超350个政府项目托管在GitHub 政府开源会成主流? Kinect for Windows SDK 1.7正式发布,支持3D建模 SafeNet与风河系统联手推出VxWorks嵌入式系统软件货币化方案 Windows Server 2012中的动态负载均衡 Google等互联网公司将成为创新中心? 在Hadoop的战争中 MapR获新一轮3000万美元融资 初创公司DNNresearch:谷歌科技帝国的新“基石” 创业了,我们该如何起名? 乐视网联手富士康推新盒子C1S “0+290元”新浪微博发售 吸引开发者:只要开发新应用 微软便奖100美元 PaintCode - 将矢量图转化为Objective-C代码的开发神器 苹果发布iOS 6.1.3 封杀evasi0n越狱所用漏洞 [API快讯] Google开放实时协作API 58同城开源轻量级Java Web框架 Argo 中国能否成为世界第一? 有关cisco路由器上copy子集的疑问 怎样将msn的email用outlook express收到本地! 请告知msn的 pop smtp服务器 如何动态画出函数的图象? 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 有创意的T恤~~ Transaction not connected! 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 高手求救 aspnetnemu注册吗 陨落雕老弟昨日开始中考,祝福他,放分! installshield打包时可以加入密码吗? 救命! 怎么在WM_DRAWITEM自画LISTVIEW? 有关txt文件操作的问题? 一个很奇怪的问题,高手请看, 马上给分 那里有更多的skinengine换肤文件? 奇怪的问题,高手请看,马上给分! 怎样给一个OLE控件其内置的事件编写脚本? 请问各位能否将一个VF的数据库方便的转为ACCESS数据库 如何关联一个扩展名到我的程序? 我有一个备注memo的字段,想更新?如何进行? www.ipowerweb.com 的主机怎么样? 高数、线性代数与程序员!!! Sworddx,补分给你 怎么做定时 这个listctrl问题怎么老没有人回答我?????? TQuery为什么没有这个属性? 哥哥们 ,谁能帮我? 高分,谁有奇域外挂? 急急!!winsock 在网速特别慢的时候,发送与发送之间有一个等待时间,这个时间是不一样的!!! 关于表单的先后顺序 万分火急,关于authorware的? 关于用ASP调用SQL 数据库存储过程的问题!高手帮忙 提议:共同作个小项目 急需解决字符串中的千位分割符去除的问题?在线等 修改客户端资料 AUTOCAD2002的授权号在哪里弄呀?? 网站首页跳出一个小广告或者通知的网页大小 初来乍到 怎么才能让DATA控件支持ACCESS2000? 可否推荐几个对考系分有帮助的网站?先谢了。 初学者的问题 项目开发:select,insert,等要不要直接写在程序事件里面,还是要用DW做操作?? 翻一次页需要80秒,有什么好办法提高效率? 将灵魂出卖给Microsoft?还是选择Sun One? 昨天在公车上目睹……(亲身经历) 用什么样的报表、表格控件好呢? 如何插入一个memo备注字段的纪录 ole字段相互负值,该怎样写呢? 关于delphi局部结构变量,初始化问题。这事儿说起来很惭愧。。。。 组成八条四字成语铁 山高水长证如论大篇鸣鸡功心悦狗木行赏目盗若呆口瞪 世界首付是谁啊 五年级趣味图形题要简便的 那个叫摩擦网的摩擦的社交软件,它怎么样?好像很火啊! 用放,山,高,水,长,虎,归,论,大,篇,阔,海,功,心,悦,人,天,行,赏,目,空,山,人,无,中,这些字组成八个成语,并每一个字都不重复. 壶赛道不平的冰面有助于高水平的运动员打出________球 请你从“放”开始,使它们成为八个成语:放、山、高、水、长、虎、归、论大、篇、阔、海、功、心、悦、天、人、行、赏、目、空、山、人、无、中. 现在世界上谁是首付 《第一场雪》表达了作者对第一场雪得喜爱之情,为了表达这种情感,作者引用了一些俗语,如:俗话说:“_______________.”还有谚语:“___________________.” 绒花树的花是什么样子的 放山高水长虎归论大篇阔海,功心悦天人行赏目空山人无中(用上面的字组成10个四字成语) hating your 中国习网的安全知识竞赛要得多少分才会得奖啊? 次日达什么意思我的快件说是次日达,结果几天都没有到达这里啊?已经6、7天了我可以要求快递公司赔偿嘛? 关于民间艺术的作文 男儿何不带吴钩那首诗完整内容是什么 第一场雪的阅读答案是飘飘洒洒开头的 民间工艺作文300字民间工艺作文285字 一道1996年河北省化学竞赛题目在一定条件下,氯酸钾与碘按2KClO3+I2=2KlO3+Cl2反应,则下列推断中不正确的是A 该反应属于转换反应 B 还原性:I2>Cl2C 非金属性:I2>Cl2 D 氧化性:KClO3>I2A为 你爱的女人叫你谢谢你 刘大哥是什么意思 求写民间艺术的文章(多一点) 马克思主义哲学没有吸收哪位哲学家的思想A 黑格尔B 尼采C 费尔巴哈D 亚当•斯密叙述理由 竟日 次日 明日 他日什么意思? 阕,诗词里指的是什么? 男儿何不带吴钩的下一句是什么? 9点到次日一点是什么意思 唐诗宋词元是啥 探究的一般过程是从 开始的,然后根据自己己有的探究的一般过程是从 开始的,然后根据自己己有的 ,尝试着这一问题作出 ,制定 ,实施 ,得出 ,表达交流. 第一场雪课后习题解答快 今晚就要 快急 3Q1.讨论:课文是怎样把这场雪的“大”写出来的?从哪些语句可以感受到作者的喜悦之情?2.抄写好的语句,并说说好在哪里.3.收集有关资料,结合课文内 我们应该怎样宋濂的学习态度和从师尊师方式 探究的一般过程是(),(),(),(),(),(). “少年别有赠,含笑看吴钩”这句的解释和含义出自杜甫《后出塞五首》 当代中学生怎么样看待宋濂的这种学习态度和从师尊师方式,从反面角度说 2、探究的一般过程是:______、______、______、______、______、_____. 捕鱼机的断机时间是什么意思 宋濂和杨时都很尊重老师,两人尊师的表现有何共同之处? 男儿何不带吴钩,收取关山五十州出自哪首诗,全诗,诗名,作者, 眼底吴钩看不休, 善意的谎言作文,记叙文,字数600字到700字! 南丁格尔的简历不超过50字. 放山高水长 虎归论大篇 阔海功心月 天人行赏目 空山人无中 从放开始,经过格子里所有字.竖着.要组8个成语 请问2013年有日全食吗? 古诗“男儿何不带吴钩”的下1句是什摸 山高水长是成语吗?它是表现人物品质的吗?是表现什么品质的? 作者在老师面前毕恭毕敬,不敢出言,你如何看待这种从师尊师方式 谁能用英语介绍下南丁格尔啊请各位用英语介绍下南丁格尔被 ,200-400字左右就好 ,最好带翻译 . I like your four words I hate 若个书生万户侯?改为陈述句 南丁格尔 人物介绍马上就要! 天下谁与付吴钩, 男儿何不带吴钩,若个书生万户侯若用陈述句表达应是什么 圆体字怎么写才好看 放.山.高.水.长 虎.归.论.大.篇 阔.海.功.心.悦 天.人.行.赏.目 空.山.人.无.中放.山.高.水.长虎.归.论.大.篇阔.海.功.心.悦天.人.行.赏.目空.山.人.无.中组八个成语.不重复 请君暂上凌烟阁,若个书生万户侯 译文 胶合木板的密度是多少? 英语翻译将军谈笑弯弓,秦王一怒击缶.天下谁与付吴钩?遍示群雄束手.昔时寇,尽王侯,空弦断翎何所求?铁马秋风人去后,书剑寂寥枉凝眸.昔有朝歌夜弦之高楼,上有倾城倾国之舞袖,燕赵少年游 南园 【唐】李贺 男儿何不带吴钩,收取关山五十州.请君暂上凌烟阁,若个书生万户侯.的欣赏和解释,谢南园 【唐】李贺 男儿何不带吴钩,收取关山五十州.请君暂上凌烟阁,若个书生万户侯. 怎样写一篇观察浸泡黄豆过程的日记 有谁知道放,山,高,水,长,虎,归,论,大,篇,阔,海,功,心,悦,天,人,行,赏,目,空,山,人,无,中这25个字怎么样能组成8组成语谢谢 男儿何不带吴钩,收取关山十五州,请君再上凌烟阁,若个书生万户侯修辞手法 加拿大警方修复多伦多市长吸毒视频俄罗斯耄耋老汉赤手空拳勇战熊 被扔下卧底救妻后续:杭州警方客串“老娘舅”单位领导办公室抽烟怎么办?网友热议办伊拉克总理会晤奥巴马 望美售武对抗“文根英金范被曝恋爱一个月【组图】马尔代夫卫生部长联合国谋高就37个国家首脑确认出席在斯举行的英联张柏芝蜜贴外籍型男 新加坡帮儿子视察伊朗推出首艘观光潜艇 完全由伊朗专家美国监听行为令人发指新媒:克里承认美监控活动 “某些时候印度开建“全球最高”塑像Kinect将实现手语翻译美解除航班电子设备禁令日议员就福岛事故\"告御状\"印尼外长召见澳洲大使 要求就窃听报道我专家赴禁化武组织受训日俄防长会谈当天俄军机飞临 日战机紧杭州警方客串亲戚劝女子脱离传销队伍汇市周评:美联储按兵不动 非美货币走WinRAR压缩性能测试_测白金统治如何正确地反对一位法学教授?PCMark vantage内存测试揭秘3377减肥法,爱美的姑娘一定要汉能指责第一财经报道失实 致其市值损测试硬件与软件系统环境介绍_测白金统我爹带回个纸扎的女人后,莫名其妙地吊为什么牛市的你还是赚不到钱 | 观点3000元配家用上网专用机大盘还得跌,管得住手的才是赢家刘靖:新陪审制能否“陪”出中国法治民18C36T怪兽正式亮相售价高日本罕见提八一五 以史为鉴中日趋最多核心至强来袭 有18核心36线程天后之后——中国最酷的男人和女人生的这么美的外套,无论穿什么衣服搭配都好AMD今年无新品 惊喜差点变成闹剧_站在改革高度看顾雏军案吃亏上当?回到家为什么就没那么漂亮了内存价格今日稳 涨价降价难断定_18学者任职最高法院能否撬动体制杠杆?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘