我这找了一段代码,不过在TextBox1.KeyDown这出错了,好象它只能处理如TextChanged的事件,请问高手们怎么改才正确呢Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown Select Case e.KeyCode Case Keys.left MsgBox("按下了左键") Case Keys.left MsgBox("按下了上键") Case Keys.Right MsgBox("按下了右键") Case Keys.Down MsgBox("按下了下键") End Select if e.Alt then 'e.Control e.Shift Messagebox.Show("按下了Alt键") end ifEnd Sub
改為: Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown Select Case e.KeyCode Case Keys.left MsgBox("按下了左键") Case Keys.Up MsgBox("按下了上键") Case Keys.Right MsgBox("按下了右键") Case Keys.Down MsgBox("按下了下键") End Select If e.Alt Then 'e.Control e.Shift Messagebox.Show("按下了Alt键") End If End Sub
Imports System.Windows.FormsProtected WithEvents TextBox1 As System.Windows.Forms.TextBox Private Sub Textbox1_Keydown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown Select Case e.KeyCode Case Keys.Left MsgBox("按下了左键") Case Keys.Up MsgBox("按下了上键") Case Keys.Right MsgBox("按下了右键") Case Keys.Down MsgBox("按下了下键") End Select End Sub但出来,我按了却没反应,不知道是怎么回事了
Select Case e.KeyCode
Case Keys.left
MsgBox("按下了左键")
Case Keys.left
MsgBox("按下了上键")
Case Keys.Right
MsgBox("按下了右键")
Case Keys.Down
MsgBox("按下了下键")
End Select
if e.Alt then 'e.Control e.Shift
Messagebox.Show("按下了Alt键")
end ifEnd Sub
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
Select Case e.KeyCode
Case Keys.left
MsgBox("按下了左键")
Case Keys.Up
MsgBox("按下了上键")
Case Keys.Right
MsgBox("按下了右键")
Case Keys.Down
MsgBox("按下了下键")
End Select
If e.Alt Then 'e.Control e.Shift
Messagebox.Show("按下了Alt键")
End If
End Sub
Select Case e.KeyCode
Case Keys.Left
MsgBox("按下了左键")
Case Keys.Up
MsgBox("按下了上键")
Case Keys.Right
MsgBox("按下了右键")
Case Keys.Down
MsgBox("按下了下键")
End Select
End Sub但出来,我按了却没反应,不知道是怎么回事了