VB.Net（2008）如何将字母做成PasswordChar*&引用；保留第一个字母作为原件？

我试着使用这个代码

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
    If TextBox2.TextLength > 0 Then
        For i As Integer = TextBox2.TextLength - 1 To 1 Step -1
            TextBox2.Text = TextBox2.Text.Replace(TextBox2.Text.Substring(i, 1), "*")
        Next
    End If
End Sub

但是没有成功

我使用的是文本框，我想要的输出是：

p******

，这是密码

---

为此，请提前感谢您，您可以使用以下示例：

Dim inputString As String = "Password"
inputString = inputString(0) + New String("*", inputString.Length - 1)

---

在您的情况下，inputString应替换为

TextBox2.Text

您可以使用以下功能

Friend Function FirstThenPass(ByVal Str As String) As String
    FirstThenPass = Mid(Str, 1, 1)
    For i = 1 To Str.Length - 1
        FirstThenPass &= "*"
    Next
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If TextBox2.Text.Length > 0 Then
        TextBox2.Text = FirstThenPass(TextBox2.Text)
    End If
End Sub

---

你所说的

不起作用是什么意思？你想让第一个字符可见，其余的都是
*
吗？我发布的代码不起作用。是的，我希望第一个字符/字母显示为字符/字母，其余字符/字母显示为星号/*@ChristianQuirante:Cool很高兴帮助您