输入密码时，怎么使输入的字符显示为圆点符呢？

Question

如题。谢谢。

Answer 1

//text1.passwordchar="●"不支持这个字符啊！

Answer 2

Text3.PasswordChar = "."

Answer 3

Text4.PasswordChar = "."
靠，这么多text，不如搞个控件数组？？
看了看，MSDN中夸口说可以是任意字符，但缺不支持那个硕大的圆点，我估计你是
想实现XP登录框那样的效果，可惜啊。用这个控件是搞不定的嗯？哪个控件可以搞定？？
俺不晓得，呵呵

Answer 4

谢谢各位的关注与支持。
//text1.passwordchar="●"//MSDN中夸口说可以是任意字符，但缺不支持那个硕大的圆点，我估计你是
//想实现XP登录框那样的效果，可惜啊。用这个控件是搞不定的呵，是想实现XP登录的效果。
text1.passwordchar支持的是单字符。
而"●"是双字符。呵，看来Textbox是实现不了的了。唉。

Answer 5

将text1.passwordchar="l"
然后将font="wingdings" 就可以了，哈哈

Answer 6

可以实现：
Dim str As String’截获的输入字符串
Dim strshow As String'显示字符串
Dim num As IntegerPrivate Sub Text1_KeyPress(KeyAscii As Integer)
num = num + 1
strshow = ""
For i = 1 To num
strshow = strshow & "●"
Next
str = str & Chr(KeyAscii)
End SubPrivate Sub Text1_Change()
Text1 = strshow
End Sub注意在Private Sub Text1_KeyPress(KeyAscii As Integer)中还应加入一些特殊处理，如：用户输入的是删除键，
If KeyAscii = 8 Then
    If str <> "" Then
    str = Left(str, Len(str) - 1)
    End If
End If具体程序你自己去实现吧。

Answer 7

to xshhui(风云) 哈哈，这样都可以！！！！谢谢啦。
wingdings字体，一般机上都会有吧！！！哈。
to wildleon(释尊空相) 嗯，你的方法也不赖。
“只要想得到，没有办不到的”
谢谢你！！
//注意在Private Sub Text1_KeyPress(KeyAscii As Integer)中还应加入一些特殊处理
这确实是稍有点麻烦。