引用 | 編輯
n1023520
2010-12-06 23:15 |
樓主
▼ |
||
x0
請利用KeyPress事件,讓使用者輸入的英文字元,一律變成大寫。拜託!拜託! 請VB大師當忙修程式 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As .. 訪客只能看到部份內容,免費 加入會員 x0
|
引用 | 編輯
三仙
2010-12-07 20:13 |
1樓
▲ ▼ |
下面是引用 n1023520 於 2010-12-06 23:15 發表的 事件驅動程式: 妳要不要試試 Char.ToUpper(e.KeyChar) 比較快複製程式 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Char.ToUpper(e.KeyChar) End Sub x0 |
引用 | 編輯
n1023520
2010-12-07 23:25 |
2樓
▲ ▼ |
請問是將
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 x0 |
引用 | 編輯
三仙
2010-12-08 17:00 |
5樓
▲ ▼ |
下面是引用 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. 如果老師不要這種寫法,那就再說了。 x0 |