请利用KeyPress事件，让使用者输入的英文字元，一律变成大写。


拜托!拜托!


请VB大师当忙修程式


Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

下面是引用 n1023520 于 2010-12-06 23:15 发表的 事件驱动程式:
请利用KeyPress事件，让使用者输入的英文字元，一律变成大写。


拜托!拜托!

.......

你要不要试试 Char.ToUpper(e.KeyChar) 比较快复制程式

请问是将

TextBox1.AppendText(hanzi(Val(e.KeyChar)))

改成

Char.ToUpper(e.KeyChar)

还是将


Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    If hanzimode.Checked Then
        Dim hanzi = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

        Select Case e.KeyChar

          Case "a" To "z"
            TextBox1.AppendText(hanzi(Val(e.KeyChar)))
            e.Handled = True

        End Select
    End If
  End Sub


改成

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    Char.ToUpper(e.KeyChar)
  End Sub

下面是引用 n1023520 于 2010-12-07 23:25 发表的 :
请问是将
TextBox1.AppendText(hanzi(Val(e.KeyChar)))
改成
Char.ToUpper(e.KeyChar)
还是将
.......

后者

图 1.

可是这样还是无法因为打勾而让英文的小写变成大写

下面是引用 n1023520 于 2010-12-08 13:21 发表的 :
可是这样还是无法因为打勾而让英文的小写变成大写

无言，完全看不懂你在问什么了
1. TextBox 事件 KeyPress 不等于 CheckBox 事件 CheckedChanged
    请不要混合着问
2. Char.ToUpper(e.KeyChar) 是单一字击的转换，请自行回圈控制运用。
3. 如果你要 KeyPress 的，又不想自行写程式运用。那就用我的简单写法 
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress 
      TextBox1.CharacterCasing = CharacterCasing.Upper 
  End Sub
4. CheckedChanged的用法同 3
5. 如果老师不要这种写法，那就再说了。

谢谢VB大师帮我解答，但我还是不懂你所说的意思?

我们老师要我们拉  TextBox1  和  CheckBox1  两个表单

并将在  TextBox1  上随便打上小写英文字母，

然后将  CheckBox1  打勾时，

  TextBox1  的所输出的字，就会变成大写字母，

将  CheckBox1  打勾取消时，
 
  TextBox1  的所输出的字，就会变回小写字母。

这样的解释，不知VB大师是否了解