2011-08-16 260 views
3

我想允許用戶使用鍵盤輸入符號。我正在檢查按鍵的文本框onkeydown事件,然後將其更改爲符號,例如,如果我按'a',那麼文本框會顯示'☺'。但問題是文本框顯示'a'和'☺'。有沒有更好的事件來檢查這個,或更好的方法來做到這一點?更改文本框輸入

Private Sub TextBox_KeyDown(sender as object, e as keyeventargs) handles TextBox.KeyDown 
    Select Case e.key 
    Case 'a' 
     TextBox.text += '☺' 
    End Select 
End Sub 
+0

粘貼轉換文本框文本的確切代碼 – Snowbear

回答

7

嘗試使用KeyPress事件。在該事件處理程序中,您需要將KeyPressEventArgsHandled屬性設置爲true,以防止將a鍵添加到文本框中。

Private Sub TextBox_KeyPress(sender as object, e as KeyPressEventArgs) handles TextBox.KeyPress 
    Select Case e.key 
    Case 'a' 
     TextBox.text += '☺' 
     e.Handled = True 
    End Select 
End Sub 
0

從onKeyDown處理函數返回false,它應該防止添加'a'。