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

Question

我用这个:

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

Answer 1

不要使用静态变量来保存前一个char.一般而言,这不是必需的和不好的做法.

然后,虽然从您的问题中有点不清楚,假设您希望对文本执行更改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文本框已注册响应按键变更后发生.

 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

Answer 2

TextInfo.ToTitleCase方法 将指定字符串转换为标题大小写。

txtName.Text = Threading.Thread.CurrentThread.CurrentCulture.TextInfo.ToTitleCase(txtName.Text.ToLower)

您必须先将整个文本转换为小写，否则它将无法按预期工作：

（完全大写的单词除外，这些单词被视为首字母缩略词）