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

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
保证连网计算机时间同步-VB资料 编写网络寻呼机 -VB资料 编制自已的电话录音小程序-VB资料 程序中如何启动默认的拨号连接-VB资料 打开浏览器并进入指定网址-VB资料 得到用户的IP地址 -VB资料 电话拨号 -VB资料 电子邮件的标准格式 (RFC 822)-VB资料 断开拨号网络的连接-VB资料 断开与 Internet 的连接 -VB资料 发送电子邮件附件-VB资料 VB获得用户网络登录名 基 于Win95 的VB5 串 口 通 信 程 序 基于Win95的VB5串口通信程序 检测运程数据传送的断线-VB资料 简单电子邮件发送程序-VB资料 VB建立拨号联接 -VB资料 将所有窗口最小化-VB资料 VB利用IE控件访问Internet VB利用IE控件设计简易浏览器 VB利用Mscomm32控件判断MODEM是否打开,或者正在工作,并且判断拨号时是否遇忙音 VB利用TAPI进行电话拨号 利用VB访问Internet 利用VB设计聊天室 利用Visual Basic实现无线通讯 VB利用Winsock控件实现局域网通信 VB如何从 Internet 上取回某一个网页的內容? VB如何检测是否已连接到Internet? VB如何利用Winsock控件编写自己的Internet程序 VB如何每天抓取 Internet 上某一个网页中的图片来更换桌面的壁纸 VB如何启动拨号网路中的连线? 各地软件工程学院的学生都写写自己在学校学习的经历和体会! adobeacrobat 耗尽内存 如何解决 ! 新手求助:ADOQUERY控件的问题 文件与下拉列表 真搞不懂 关于办公系统及美术设计问题 API 局部放大函数 版主为什么删除我的帖子? 浏览器对象模型与文档模板(DOM)有什么不同和联系? 在datalist或datagrid中绑定的checkbox如何控制呢? 我的xp系统中ABC输入法,词组记忆功能始终不能用,请问怎么解决。 如何编程打开一些特殊窗口?如网上邻居,我的电脑属性,设备管理器 请教又一ShellListView和ShellTreeView中的问题?还望大家多多指教! 不懂!不懂!不懂!关于文档和视图。 将照片从数据库中取出,并显示到Image控件中,若当中不用文件作为临时存储行不行?? 弹出菜单怎么做 关于存储过程执行的正误判断及数据回滚问题。 关于LPCWSTR的问题? TChart的Canvas写上字后,最小化再最大化后字就没了, [2]请大家无论如何都要帮个忙,oralce存储过程性能问题,高手请进!!! 请问如何直接取得其它计算机的系统时间 如何使的 Form2 在 Form1 的 Top ? 怎样在pagecontrol的一个tabsheet中的页面加一个上下的滚动条 急!将textbox控件放入table中后无法通过controls获得textbox的id? 大家说说看!! 初来乍到,向各位学习,请大家指点一下,介绍些好的C#的WEB源码示例。 请大家帮我看看! weblogic发布servlet的问题 Fatal Error 的问题 哪里有和手机一样的笔划输入法下载. 哥哥们,问题还没有搞定,帮帮忙吧,很急呀,分不够可以加分 XDevClub.Com[X时代开发俱乐部]欢迎大家一起来讨论,来者有分 求救!!我的vc缺少一个 psapi.h 头文件!!!急用,帮忙粘贴一下,当场给分!!! 怎样更改CListCtrl中内嵌的CHeadCtrl控件的风格? 有关TChart的问题? 我怎样才能获得插入语句的ID值? 求帮助数组的问题 给分100 紧急求救 在DELPHI里执行ORACLE存储过程出错??? 当按照书名查询时,系统提示没有该索引:no index with 'bookname' field.何故 CorelDram教程碟不能播放怪的问题!! 如何在vb調用SQL存儲過程,并能得到返回的參數值. 哪位大侠帮帮忙呀!! 用CString的Find(LPCTSTR pstr,int nStart),pstr有没有通配符,急!!!!! 一个XP与2000的共享问题 打印问题,请各位提点建议。 DBA的缺省密码---【在线等】 错误:"参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。" 产生原因 免费100m asp 空间 求救,如何打开一个USB设备,CreateFile吗?请具体些 在线求救 东西罗马如何分裂和灭亡 NaCl转化为NaCo3只要一步. 字谜:武术运动员拿过教练的书,放在剑的旁边;围棋运动员捡了一颗棋子放在瓷盆上. 罗马皇帝是提奥多西还是狄奥多西 如何只得到NaCl,而不得到NaCO3? 武术运动员拿过教练的书,放在剑的旁边;围棋运动员捡了一颗棋子放在瓷盆上,猜一猜,这两位运动员分别姓 铝板研磨时,如何防止表面被氧化, 灯泡的灯丝烧断后搭接,搭接处还容易烧断原因是什么?我觉得是因为电阻变小,实际功率大于额定功率造成的,可答案不是,征求广大朋友的建议 化学,求解决 罗马何时分裂 常温下,将PH=a的NaoH溶液与PH=b的醋酸溶液等体积混合,恰好完全反应则醋酸溶液与NaoH溶液的物质的量浓度A 前者大 B后者大 C相同 有X,Y,Z三种金属,只有Z在自然界中主要以单质形式存在,如果把Y加入X的硝酸盐溶液中,Y表面有X析出,则这三种金属的活动性由强到弱的顺序为 铝板被消毒水氧化怎么办? 用醋酸钠和硫酸为什么能反应出醋酸和硫酸钠?是不是因为什么强酸置弱酸?如果不是,那是什么?醋酸钠和醋酸那个酸性更强? 一个苯环上有一个丙基(-CH2CH2CH3),问所有C原子可能共平面吗?答案是不可能,我怎么也想不通,我认为丙基上的3个C都能转到一个平面, 离子交换膜的用途是什么包括工艺原理是什么 从悬液中分离细胞和细胞器所采用的技术是什么 一个苯环上有一个丙基(-CH2CH2CH3),问所有C原子可能共平面吗?答案是不可能,我怎么也想不通,我认为丙基上的3个C都能转到一个平面,到底可不可能,还是答案错了 丁烯醛和丁醛哪个更易发生亲和反应比如和HCN,NaHSO4等化合物的亲核加成反应.在同一亲核试剂的条件下,醛发生亲核反应的活性与三个因素有关:电子效应、空间位阻效应、反应中间体的稳 硫酸与乙酸钠反应后如何分离 含铁2+的溶液有哪些{4个}含铜2+的溶液有哪些【4个】 怎样知道硝酸镍里有没有铁 75cm 细胞培养瓶 接种多少细胞 :混合密度 1.1m^3的水和2m^3的酒精混合后,体积为原来的0.9倍,求混合液的密度.水的质量为:m水=V水ρ水=1m^3*1.0*10^3kg/m^3=1.0*10^3kg酒精··········:···························· 硝酸铜和醋酸镍哪个先分解 细胞培养离心收集细胞时为了让细胞能完全重悬,应如何操作? 臭氧可以和金反应吗 丁醛与氢氧化钠反应的化学反应 如何配制KCN试剂 在下列仪器中的用处1.烧杯 2.滴管 3.玻璃棒 4.酒精灯 5.药匙 6.试管 7.电流表用来加热的是——————————( )用来取少量固体药品的是——————————( )用作少量试剂反应容 我想化验硝酸镍中镍的浓度比,谁可以帮我?我在义乌,有一种电镀挂水中含镍,我想通过化学仪器测出镍的浓度,一般化工大学里的人都可以测出,我希望那位高人帮我 用生活中的器材,试着测量一个玻璃茶杯的体积(注意不是容积),写出所需器材和做法. 写出五种气体水合物勘探设备,并说明其用途 若用实验证明CuSO4溶液显蓝色不是由SO42-离子造成的,下列实验无意义的是 :A 观察Na2SO4溶液,溶液没有颜色B 对比不同浓度的CuSO4溶液的颜色差异,浓度小的溶液颜色较浅C 向CuSO4溶液中滴加足量氯 物理公式中那些要注意方向问题物理公式使用时位移和速度要同向吗那比如位移向左,速度斜向上可以吗 为什么冰棍的白气是向下冒的, 证明硫酸铜溶液显蓝与SO42-无关,没意义的A观察硫酸钠溶液有没有颜色,B向硫酸铜溶液中滴中适量的氢氧化钠溶液,振荡后静置,溶液蓝色未消失 ,C向硫酸铜溶液中滴加适量的氢氧化钠溶液,振荡 为什么人总爱吹牛? 如何区分碳酸铵盐还是碳酸铵盐加入足量的BaCL2浓液,震荡,充分反应后,若不产生白色沉淀,说明该化肥是碳酸氢铵,产生白色沉淀,过滤,取滤液加入适量的氢氧化钡浓液,也产生白色沉淀,说明是 用什么可以腐蚀花岗岩我试过一些化学物,没用的。谁要是能有把握的就告诉老哥,单凭理论想象可以的不要来忽悠我去做实验。 [一道化学题]铅蓄电池.(请求完整地解题步骤)铅蓄电池是一种常见的使用方便、电压稳定切安全可靠的电源,在交通及通讯等行业有广泛的应用.有一种铅蓄电池中所用硫酸溶液的质量分数 打开冰箱会看到一层'白汽',请用物理知识解答. 什么是电生成Fenton试剂?是否就是Fenton试剂?Fenton试剂法属于均相催化氧化,电催化氧化属于多相催化氧化,而在电催化氧化中由于生成活性中间体H2O2,而后提及电生成Fenton试剂体系,是怎么回事? 怎样使氢氧化钠和铝的反应加快 .一只青蛙两只青蛙三只青蛙,猜一成语.你们知道吗?写出来. 什么是fenton 试剂,他有什么作用 细菌涂片未经热固定会出现什么问题 骑青蛙打仗猜一个成语 并且解释出含义 请问Fenton试剂制作方法和配方,就是硫酸亚铁如何配置含量多少?双氧水含量多少?硫酸亚铁和双氧水的比例怎么配,是用作池塘氧化有机质的,主要用于氧化作用,不懂的请不要在网上复制一大片, 一般细菌涂片 未查到细菌怎么出报告 猜成语:围着一只青蛙快. 用化学腐蚀方法在大理石刻字为什么要涂上石蜡 细菌涂片怎么制作? 一摩尔氢原子有多重? 哪里有大理石刻字的 怎样做细菌涂片 10ppm甲醛一个月后还能用么 做饮用水的甲醛 用乙酰丙酮分光光度安瓿瓶是100mg/L的甲醛标准液 稀释10倍 后 变成10ppm的使用液放置一个月左右 在冰箱里封口保存 这个月还能用么 浓度会不会变 池塘的荷叶,每天长一倍,20天长满整个池塘.问多少天长到一半池塘? 铜锂试剂,如二甲基铜锂如何成键的?铜、锂是如何与甲基结合的?最好能给出个结构式. 请问前列腺液细菌涂片和细菌培养的区别病情描述(发病时间、主要症状等):请问前列腺液做细菌涂片和细菌培养的区别,谁的检查病原体的准确率高,如果细菌涂片检查未发现细菌是不是意味 国际新闻早报:土耳其出动战机拦截叙利Netfix测试4K超清视频 或于明中马友好合作关系不断向前推进--访中菲报:中国海基核威慑仍受制第一岛链克里中东之行访埃及 停留数小时修复两美国务卿克里访问埃及 承诺美将与埃过伊朗最高领袖称美是微笑的敌人 对核谈美研发新型间谍机 可一小时内到达全球泰国芭堤雅发生游船沉没事故 造成中国如何确保机密数据安全?把密码藏在潜意港媒:设计师为《人民日报》新大楼辩护中国如何从西方垃圾中获益港报:“伙伴关系”成中国重要外交工具浙江普陀山大型翡翠观音宝像开雕(图)广州高端相亲会测谎仪上阵 许多女性表温州两干部停车救人被撞身亡 被追授“赣州副市长否认脐橙染色 记者暗访揭染孙杨涉嫌无证驾驶 被交警带走或面临1珠三角乒乓争霸赛明年规模扩大 奖励金英超门将开场13秒进球 还是英超距离菲律宾副总统:人质事件总统不可代表整还没开售就降价的现货手机,可能只有这南理工学霸的“最牛毕业礼”:一学期3江苏集中整治工程运输车和校车违法行为央企拿地表现突然低调,或集体被约谈收“星空九宫 避暑天堂”九宫山旅游推介苏清泉不支薪接任屏东党部主委 盼拉抬害美国“丢人” 美海军副指挥官被解除大胸MM的智商更高哦人民网 暴跌还未到头?后市又该如何?为什么差不多品质的绿松石价格会不一样1.8T的大众高尔夫你见过?看看这辆不知摆设什么风水摆件?这5个小秘招个晚上睡不着?进入深睡眠就靠这些俄伊密谋6月称霸欧佩克控油价,沙特能广东烧鸭烧鹅技术 勿信2天就能学会的唐山港 反攻势头明显,短期股价将继续分享投资黄反之:过于理性的人不适合从大开眼界!全球十种最离奇的服务美2017法案再提对台军售拟撤回对华涉中国人主权与尊严 大陆行动挺台湾乐视2优势和创新,小米还能追得上?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘