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 Nigh 我用这个：

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

解决方法 不要使用静态变量来保存前一个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在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

总结

以上是内存溢出为你收集整理的vb.net – 如何只在句子的开头大写字母,下一个字是正常的全部内容，希望文章能够帮你解决vb.net – 如何只在句子的开头大写字母,下一个字是正常的所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。