vb.net – 如何只在句子的开头大写字母,下一个字是正常的

Static PreviousLetter As Char
    If PreviousLetter = " "c Or TextBox1.Text.Length = 0 Then
        e.KeyChar = Char.ToUpper(e.KeyChar)
    End If
    PreviousLetter = e.KeyChar

但结果总是：

Good Night Every Body

我如何才能将句子中的第一个字母大写,而将其他字母保持正常？我想要的结果是：

Good night every body

然后,虽然从您的问题中有点不清楚,假设您希望对TextBox1的文本执行更改,您可能希望在更改后将文本设置回TextBox.

所以解决方案可能如下所示：

If TextBox1.TextLength > 1 Then
     TextBox1.Text = TextBox1.Text.Substring(0, 1).ToUpper() + TextBox1.Text.Substring(1)
 ElseIf TextBox1.TextLength = 1 Then
     TextBox1.Text = TextBox1.Text.ToUpper()
 EndIf

如果你想大写第一个字母并强制小写其余的你可以修改上面的代码,如下所示：

If TextBox1.TextLength > 1 Then
     TextBox1.Text = TextBox1.Text.Substring(0, 1).ToUpper() + TextBox1.Text.Substring(1).ToLower()
 ElseIf TextBox1.TextLength = 1 Then
     TextBox1.Text = TextBox1.Text.ToUpper()
 EndIf

UPDATE

根据评论,如果您想要即时进行此更改(即,当用户在TextBox中键入时),您还需要操作光标.基本上,您需要在更改文本之前存储光标位置,然后在更改后恢复位置.

此外,我将在KeyUp事件中执行这些更改,而不是KeyPress事件. KeyUp在TextBox注册了响应按键的更改后发生.

Dim startPos as Integer
 Dim selectionLength as Integer

' store the cursor position and selection length prior to changing the text
 startPos = TextBox1.SelectionStart
 selectionLength = TextBox1.SelectionLength

 ' make the necessary changes
 If TextBox1.TextLength > 1 Then
     TextBox1.Text = TextBox1.Text.Substring(0, 1).ToUpper() + TextBox1.Text.Substring(1).ToLower()
 ElseIf TextBox1.TextLength = 1 Then
     TextBox1.Text = TextBox1.Text.ToUpper()
 EndIf

 ' restore the cursor position and text selection
 TextBox1.SelectionStart = startPos
 TextBox1.SelectionLength = selectionLength