怎么显示VB文本框中的密码字符

意思是输出的字符时 第一个字符 实际存在字符还是你原来输入的一般用在输入密码的时候 Private Sub Command1_Click()MsgBox Text1.TextEnd SubPrivate Sub Form_Load()Text1.PasswordChar = ＂*＂Text1.Text = ＂123456＂End Sub你看到的是6个星号 可实际内容却是123456

如何将vb里的输入文本框中的数字变成*

VB6.0可设置文本框的PasswordChar 属性为*号字符，就能达到目的。

PasswordChar 属性，返回或设置一个值，该值指示所键入的字符或占位符在 TextBox 控件中是否要显示出来；返回或设置用作占位符。

PasswordChar 属性示例本例说明 PasswordChar 属性是如何影响 TextBox 控件显示文本的方法的。

要试用此例，先将下面的代码粘贴到包含 TextBox 的窗体的声明部分，然后按 F5 键 并单击窗体。

每次单击窗体，文本将在星号 （*） 密码和普通文本之间转换。

Private Sub Form_Click ()If Text1.PasswordChar = ＂＂ ThenText1.PasswordChar = ＂*＂ElseText1.PasswordChar = ＂＂End IfEnd Sub

VB登陆界面,有账号密码2个文本框,我想输入三次密码错误后,他就...

Dim PassWord As LongDim Sec As Long //声明变量Private Sub Command1_Click()If Text1 = ＂true＂ Then Exit Sub //如果password 正确 则计数器不增加PassWord = PassWord + 1 //错误的话则 计数器 +1If PassWord = 3 ThenMsgBox ＂password error three times!!＂, 16Timer1.Enabled = TrueCommand1.Enabled = FalsePassWord = 0End IfEnd SubPrivate Sub Form_Load()Timer1.Interval = 1000 // interval 设定成1000毫秒 就是1秒 Timer1.Enabled = FalsePassWord = 0Sec = 0End SubPrivate Sub Timer1_Timer()Sec = Sec + 1 //每秒 计数器 +1If Sec = 180 Then //计数器到达 180 就是 3分钟 Sec = 0Command1.Enabled = True //回复 按钮Timer1.Enabled = FalseEnd IfEnd Sub

转载请注明出处51数据库 » vb文本框password