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

发布时间：2020-12-17 07:23:09 所属栏目：百科来源：网络整理

导读：我用这个： 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 我如何才能将句子中的第一个字母大写,

我用这个：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!