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

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
使回车具有 Tab 的功能-VB资料 输入时,自动转换成小写? -VB资料 显示多媒体信息 -VB资料 也谈Windows 下的自动存盘 -VB资料 一个小巧精致的CPU监视器 -VB资料 应用VB4.0实现工业控制的实时曲线和历史曲线 应用程序中实现关机功能-VB资料 萤幕抓取与萤幕保护程式 -VB资料 用VB5.0创建Windows快捷方式 用VB5.0收集键盘和鼠标信息 用VBA限制非注册软件使用时间 用VB编程检测当前电池使用情况 用VB编写定时关闭计算机的程序 用VB编写键盘拦截程序 用VB函数轻松访问系统注册表 用VB设计一个定时闹钟程序 用VB实现拖放功能 在VB中启动控制面板 在VB中异步执行程序 在Visual Basic中终止Windows 95 在关机或Logff前信息的拦截-VB资料 VB怎样捕捉窗体的鼠标? VB怎样存取注册表信息 VB怎样改变双击鼠标的时间间隔? VB怎样关闭一个正在运行的程序 VB怎样限制鼠标移动 ANI文件格式 -VB资料 AVI文件格式-VB资料 DBF文件转为MDB文件的方法 -VB资料 FLIC动画文件的播放程序设计-VB资料 MS Office 开发工具VBA 请进来看看,关于CString和WFC编程的! 关于定义一个struct 的 array问题?帮忙阿 在一个线程内部怎样实现将该线程挂起? 帮我个忙好吗,有关数据库的(我是新手)(很急) 用gcc编译后提示:/tmp/ccn/I193.o: In function "main" ...... delphi的简单问题 关于文件操作 请教,关于网管理论,协议,开发等方面,该看什么书? 提倡:对贴不对人 如何在word 中链接excel 表格后,不让它随源文件更改而变,但有时又要改变其中数据,怎么做 一个代理服务器问题 一个长久以来悬而未决的问题!! 谁有x.25协议包的格式? 在视图上建立快照日志碰到的问题? 求助:怎么用XSL制作网页菜单? 100分求助如何用DirectShow技术创建ASF格式的文件 数字的从大到小排列问题 300分求多线程解决哲学家进餐问题的源码 关于datalist 武汉的朋友帮忙啊! 严打! 我是新手,谁能告诉我如何新建类? 各位GGJJ,帮帮忙!如果每点击一次button建立一个线程,建立多个不同的线程,怎样实现? 请问那位windows98高手可以帮帮忙忙 各位GGJJ,帮帮忙!如果每点击一次button建立一个线程,建立多个不同的线程,怎样实现? 关于XML中NODE的类型的问题(特急!!!) 大家来帮小弟以下啊,!!! 如果我把一个TAdoQuery变量送到子函数中? 谁能告诉我Bjarne Stroustrup应该怎么读? 说了半天到底谁的是正确的?在100分。delete p 是删去p指针,还是它指到的内容,*p。还是删去什么?free(p) 呢? 大家好,我有一个问题问一下你们很急的。我在线等待!!! 我要去上海找工作(java) 在线提问:各位朋友帮忙啊!很急啊! 关于通过telnet修改2000的用户密码问题 请问有无现存的四舍五入函数?(in vc) 请指教有关bde和9i的问题 帮助!谢谢! 着急!!!!!!!!!!!!!!! 关于CHM文件的菜鸟问题 各位帮帮忙,我的程序重要用定时器,怎么做呀? 为什么没法看贴子? 如何在PB8。0上创建可执行文件,,,,,,(请详细一点) 关于TStrings怎样去取值? 如何编程更改IP? 谁来帮帮我!!!!! 生成密码字典,有什么好主意呢?说说好么? 有关c++中何时分配内存的问题 急救!! 请教:有关列表框 谁有win98操作培训讲义,给我发一份到—— win2000下如何对并口进行操作? 请教IBM Open Class Libraries的问题 在光滑的水平面上两个带等量正电的点电荷M,N分别固定在A,B两点,O为A,B的中点,CD为AB的垂直平分线,在CO之间的F点由静止释放一个带负电的小球P(设不改变原电场分布)在以后的一段时间内,P 全面建设小康社会的含义全面建设小康社会是?——(难度:中等) 答:A、我国发展的新阶段.B、实现现代化建设第三步走战略目标必须的承上启下的发展阶段.C、是完善社会主义市场经济体制和 一千克香蕉大约有几个? 在光滑的水平面上两个带等量正电的点电荷M,N分别固定在A,B两点,O为A,B的中点,CD为AB的垂直平分线,在CO之间的F点由静止释放一个带负电的小球P(设不改变原电场分布)在以后的一段时间内,P 如果理解全面建设小康社会的内涵和目标 第九题,B. 分别在M、N两点固定放置两个点电荷+Q和-q (Q>q),以MN连线的中点O为圆心的圆周上有四点A、B、C、D为什么答案选D而不是B? 确立全面建设小康社会的目标的意义在于__(多选)A、其与实现党的最终目标具有同向性B、 为全面实现社会主义现代化奠定了扎实的基础C、 是实现科学发展观的具体体现D、 是科学性和现实 求解答!高中物理9-12题 商店里的香皂比洗衣粉少21箱,香皂是洗衣粉的16分之9,香皂和洗衣粉各有多少箱? 排污公司每小时可抽30吨水的抽水机来抽排污公司用每小时可抽30吨水的抽水机来抽污水管道里积存的污水,估计积存的污水在1200吨到1500吨之间,那么大约需要多少小时才能把污水抽空?用一元 如何理解全面建设小康社会的内涵 商店运来香皂100箱,比洗衣粉多3份之2,运来洗衣粉多少箱? 把同样两节干电池串联或并联起来,再接上同一个小灯泡,小灯泡的亮度一样吗? G物=400N,人所受的重力为500N,当滑轮平衡时,人对绳子的拉力?人对地面的压力?(不计摩擦与滑轮质量) 我想换轮胎,车子是宝来的,应该换什么样的轮胎好用 如图在rt三角形abc中角abc为90度cd垂直ab于dE为ac的中点ed的延长线交cb的延长线于p求证pd的平方等于pb乘pc 一个不计重力的小滑轮,用一段轻绳OA悬挂在天花板上的O点,另有一段轻绳跨过该定滑轮,一端连结一个重为20(1)轻绳OA对滑轮的拉力为多大?(2)轻绳OA与竖直方向的夹角α为多大? 如果用3台抽水机2小时抽水274.8立方米,照这样计算,5台抽水机要抽完274.8立方米水,需要几小时? 在Rt三角形ABC中,角ACB=90度,CD垂直AB于D,E为AC的中点,ED的延长线交CB的延长线于P.求证:PD的平方=PB×PC 规格上下限和公差一样吗?他怎么算的啊? 5V120MA太阳能电池给两节1.2V2500MAH NI-MH电池充电,电池串联好还是并联好,还需要什么电路谢谢 RT三角形ABC中,角BAC=90°,AD垂直BC于D,E是AC上的中点,连ED且延长交AB延长线于F点,求证AB:AC=BF:DF Φ30f6 标准公差数值是? 电池充电并联电容会增大充电电流吗 关于点电荷产生的电场,正确的是() A.当某点与点电荷间的距离r→∞时,该点电场强度E→0B.当某点与点电荷间的距离r→0时,该点电场强度E→∞C.没有两个点的电场强度是相同的D.与点电荷距 滑轮的摩檫力是不是忽略不计?是不是滑轮的摩擦力不计时穿过滑轮的绳子两端的拉力相等? 放在粗糙水平面上的物块A、B用轻质弹簧秤相连,如图所示,物块与水平面间的动摩擦因数均为μ,今对物块A施加一水平向左的恒力F,使A、B一起向左匀加速运动,设A、B的质量分别为m、M,则弹簧秤 在点电荷Q产生的电场中,距Q为r处的A点有一电量q的点电荷,若把q移到离Q的距离为r/2的B点则它在B点受到的电场力大小_____?(大于,小于,等于 选填)它在A点受到的电场力. 某人利用一滑轮组提升重物绳子和滑轮的摩擦不记 所用拉力为500N提升重物为2000N,绳子所能承受最大拉力为1000N 问机械效率最大值.N=5 如图(甲)所示,完全相同的A、B两物体放在水平面上,与水平面间的动摩擦因数均为μ=0.2,如图(甲)所示,完全相同的A、B两物体放在水平面上,与水平面间的动摩擦因数均为μ=0.2,每个物体 点电荷Q的电场中,电量q=1.0×10^-10C点电荷P与点电荷Q的距离r=0.1m处受到的电场力为9.0×10^-5N已知静电力常量k=9.0×10^9,求1)点电荷Q在P处的电场强度多大?2)点电荷Q的电量多大 物体重60牛,不考虑绳子与滑轮间的摩擦及滑轮质量则拉力几牛 两个固定的异种点电荷,电荷量给定但大小不等.用E1和E2分别表示这两个点电荷产生两个固定的异种点电荷,电荷量给定但大小不等.用E1和E2分别表示这两个点电荷产生的电场强度的大小,则在通 5V电压转3v电压用什么转?简单的方法,越简单越好,对电路不是太懂,手头上有一颗1.5V手电筒是的灯珠,想接到移动电源上用,试了一下直接上5V电压灯珠很亮很亮,但两三秒后就灭,不知道是不是灯 有哪些三脚架重量在1kg左右,折合后30cm左右,价格1000以下?要买三脚架,请问市场上有哪些三脚架符合以下条件?不限品牌产地,越全越好,①重量在1kg左右或以下②折合后30cm左右或以下③价格在100 如图所示,固定于同一条竖直线上的A,B是两个带等量异种电荷的点电荷,如图所示,固定于同一条竖直线上的A、B是两个带等量异种电荷的点电荷,电荷量分别为+Q和-Q,A、B相距为2d.MN是竖直放置 无线鼠标电压3V电流10mA省电吗 如图所示,小车上固定着三角硬杆,杆的端点处固定着一个质量为m的小球.当小车有水平向右的加速度且从零开始逐渐增大时,杆对小球的作用力的变化(用F1至F4变化表示)可能是下图中的(OO’沿 物理;在两个带电荷量均为Q、相距L的等量异种点电荷的连线上o点是两电荷连线的中电,A ,B是关于o对称的两点,如图所示,一带电荷量为q的粒子(重力不计),从A点运动到B点 (1)若A点到正点 怎样用5V 的电源获得3V的电压?最好是用模块,输出3V.用串联电阻分压不是好办法吧.请高手给出个原理图. 1、一个质量m=10kg的物体,在一个水平力作用下沿水平地面做直线运动,经过4s后,该力在大小保持不变的情况下,方向改为反方向,其运动情况如图所示,则物体与水平面间的动摩擦因素=?(g取10N/kg 用两台水泵抽水,小水泵抽六小时,大水泵抽八小时,一共抽水三百一十二立方米.小水泵5小时的抽水量等于大水泉2小时的抽水量,两种水泵每小时各抽水多少立方米? 限制酶只用来切割目的基因?关于生物工程中酶的作用 限制酶只用来切割目的基因 这句话为什么错? 1.摄影电影时,为了拍摄下落物体的特写镜头,做了一个线度为实物的1/49的模型,放电影时,走片速度为每秒24张,为了使画面逼真,拍摄时走片速度应为多大?模型运动速度应为实物运动速度的多少 抽水量需求200立方每小时,高差280m,平距650m,请给出最佳抽水方案,包括泵站数量,抽水机型号.抽水量需求200立方每小时,高差280m,平距650m,请给出最佳抽水方案,包括泵站数量及布置情况,抽水机型 一种限制酶切割目的基因时,有几个切口?一种限制酶切割目的基因时,有几个切口?当然,限制酶有特异性,只能切割特定的切点,是否就因为如此, 请大家给我点明, 1.地面上放一斜面体M,另一小滑块m可沿斜面体匀速下滑,设此时斜面体受到地面对它的摩擦力为f1,在小滑块沿斜面匀速下滑时对它施加一水平作用力F,如图,使其减速下滑,设此时斜面体受到地面 如图所示,质量M=10kg的木锲ABC静止于粗糙水平面上,摩擦因素为0.02,在木切的倾角为37°的斜面上,有一质量为1KG的物块,由初速度为V=7.6m/s开始向斜面上滑,在一过程木锲没有动.1.物块在斜面上运动 定滑轮挂一条绳子,绳子一端拉着重物,为什么一定要在另一端拉绳子才能平衡?绳子对滑轮有一个向下的拉力,而滑轮给绳子一个向上的力,此时绳子还受重物向下的拉力,那么为什么这两个力方 如图,物体a重为300n,在水平向上的拉力的作用下匀速向左运动,物体的运动速度为10m/s,若拉力f=4n,则5s内拉力f做功多少(最好有过程) 质量M=10kg的木锲ABC静止于粗糙水平面上,摩擦因素为0.02,在木切的倾角为30°的斜面上,有一个质量m=1.0kg的物块由静止开始沿斜面下滑,当滑行路程s=1.4m时,其速度v=1.4m/s.在这个过程中木楔未动. 如图所示,一个不计重力的小滑轮,用一段轻绳OA悬挂在天花板上的O点,另有一段轻绳跨过该定滑轮,一端连结一个重为20 N的物体,在轻绳的另一端施加一水平拉力F,使物体处于静止状态时,求:(1 求出一把香蕉多少克 如图,两等量异号的点电荷相距为2a.M与两点电荷共线,N位于两点电荷连线的中垂线上,两点电荷连线中点到答案是AC 求分析每一个选项谢谢TUT 如图,在水平天花板与竖直墙壁间用不计质量的柔软绳子和光滑的小滑轮悬挂重物,已知绳长2.5m,OA=1.5m,滑轮和重物共重G=40N,求绳中拉力大小?讨论:(1)如果A点位置固定,将B端缓慢向上移动一 一共有45个香蕉,分成3串.从第一串中拿出4个给第二串,再从第二串中拿出7个给第三串,那么三串香蕉的个数相同.原来每串个有几个香蕉? 如图所示,M、N两点分别放置两个等量异种电荷,A为它们连线的中点,B为连线上靠近N的一点,C为连线的中垂线上处于A点上方的一点, 在A、B、C三点中 ( )A.场强最小的点 两物体M.m用跨过光滑定滑轮的轻绳相连.如图放置.OA.OB与水平面的夹角分别为30度.6 造成锂离子电池容量不同的原因
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘