在vb中如何在显示密码的text中输入文字

Question

如题所述

Answer 1

我们在使用时，经常会碰到一些密码编辑框，输入其中的文字都以“”显示。现在，有许多共享软件和自由软件都可以实现隐藏密码的正确显示。究竟这是怎样实现的呢！其实，这比较简单，虽然这些都以“”显示，但其内部还是以当初的字符表示，所以，我们只要用WindowsAPI函数就可以实现。

在Windows中，每一个窗口、控件都有它的名字（叫做Name或WindowText）。对于Form、DialogBox、MessageBox来说，名字就显示在TitleBar中；对于Edit、Button、StaticControl，名字显示在他所占的区域中。密码编辑框本身就是个Edit控件，虽然显示的是特殊字符，但名字属性没有变，还是输入时的字符。Windows提供了两个API函数来获得这个名字：

intGetWindowTextLength;／／得到名字的长度

其中，hWnd：想要得到的那个窗口或控件的句柄handle

intGetWindowText;／／得到名字

其中，hWnd：想要得到的那个窗口或控件的句柄handle；

lpString：存放名字的字符串的地址

nMaxCount：可拷贝的最大字符数

下面以为例，说明它的实现过程。

新建一Form，放置Label、Edit、Button各一个到Form中，将Edit1的PasswordChar属性改为“”，双击Button1：

procedureTForm1.Button1Click;
var

Name:PChar;／／名字

L:integer;／／名字的长度

begin

L:=GetWindowTextLength＋1;／／得到名字长度，并将长度加1

GetMem;／／为将要得到的名字分配内存

GetWindowText;／／得到名字

label1.Caption:=String;／／将得到的名字显示于Label1

FreeMem;／／释放分配的内存

end;

经过运行，在Edit1中输入的密码就可通过Label1显示出来。

Answer 2

问题描述不清晰

Answer 3

text1.passwordchar = "*"

sub command1_click()
label1.caption =text1.text
end sub
这是让标签显示你输入的密码明文。是这意思么，不是还可以

sub command1_click()
label1.caption = string("*",len(text1.text))
end sub
文本框里有几个*号，他也显示几个*号。