請利用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大師是否了解