http://www.51windows.net/hw/asp/jsview.asp?id=260

解决方案 »

  1.   

    你这提供的是用js写的,有没有vb的例子呀
      

  2.   

    得到按键信息如上所述,这是javascript的范畴,可以在code behind中帮定控件的onkeypress等事件,但这还是客户端的javascript事件,不过可以在其对应的javascript函数中使用__doPostBack来返回server
      

  3.   

    楼主说的是WinForm吗?如果是WebForm,vb.net是运行在服务器端的,在按键是客户端事件,无法在服务器端捕获客户端事件,只能用客户端脚本。
      

  4.   

    我这找了一段代码,不过在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
      

  5.   

    改為:
    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
      

  6.   

    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但出来,我按了却没反应,不知道是怎么回事了
      

  7.   

    已改用js方式实现了,看来用web.form的方法不行,只能用windows.form.但是网页中实现不了