用VB怎样把输入的密码变成星号（*）显示出来？

只要将核橘textbox设置属性PARRWORDCHAR为“*”即可，如：textbox1.PasswordChar = '*'

TextBox组件使用虽然比较简单，但TextBox类的构成成员却是非常的丰富。在一般性的编程中，主要涉及到三类：属性、方法和事件。其中属性PasswordChar 获取或设置字符，该字符用于屏蔽单行。

把文本框的passwordchar属性设置为"*"，可以在属性窗口衫氏汪直接设置，也可以在程序中使用代码设置。例如：

Private Sub Form_Load()

Text1.PasswordChar = "*"

End Sub

扩展资料：

TextBox类的其它相关属性：

1、Enabled 获取或设置一个值，该值指示组件是否可以对用户交互作出响应。

2、Focused 获取一个值，该值指示组件是否有输入焦点。

3、Font 获取或设置组件显示的文字的字体。

4、ForeColor 获取或设置组件的前景色。

5、MaxLength 获取或设置用户可以在或仔文本框组件中最多键入的字符数。

6、Multiline TRUE/FALSE，该值指示它是否为多行文本框组件。

参考资料来源：百度百科-textbox

打开数据库资料表野做没内的("用户名称")

和("用户密码")

栏位里面直接改就可以了。

或写一个新增用户名称和用胡弯户密码的程式。

比如：

数据库=login.mdb

资料表=user

栏位名=username

和

password

Private

Sub

Command1_Click()

Data1.Recordset.AddNew

Data1.Recordset.Fields("username")

=

Text1.Text

Data1.Recordset.Fields("password")

=

Text2.Text

Data1.Recordset.Update

Data1.Refresh

MsgBox

"颂纳成功存取",

vbOKOnly

+

vbInformation

End

Sub

Private

Sub

Form_Load()

Data1.DatabaseName

=

App.Path

&

"\login.mdb"

Data1.RecordSource

=

"user"

End

Sub

'2个窗体(form1,form2) 2个textbox(text1,text2) 1个commandbutton (command1)

'text1 为账慎庆号框,text2为密码框,command1为登录按钮

Dim cCount As Long

Private Sub Command1_Click()

If LCase(Text1.Text) = "abc" And Text2.Text = "123" Then'账号abc(不区分大小写) ,密码123

cCount = 1

Form2.Show

'Unload Me

Else

If cCount = 3 Then

MsgBox "密码不正确且密码搭桥3次错误"

Unload Me

Else

MsgBox "宽枝握密码不正确"

cCount = cCount + 1

End If

End If

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text2.PasswordChar = "*"

cCount = 1

End Sub

---