none
鎖定鍵盤 RRS feed

  • 問題

  •  

    請問,

    我想要在程式中鎖定滑鼠和鍵盤,

    在鎖定滑鼠部份已搞定,

    但現在不知道要怎麼去鎖定鍵盤,

    想要做到在程式中,如果按鍵盤的話,則會出現"目前鍵盤鎖住"的訊息,

    謝謝…

    2008年3月9日 上午 06:53

解答

  • Hi,

    不知道你想鎖什麼按鍵,把Form的KeyPreview屬性設定為True,會讓Form先得到按鍵事件,例如下面的持式碼會讓TextBox的輸入失效

    Code Snippet

        Dim IsLock As Boolean = False

        Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
            If IsLock Then
               e.Handled = True
            End If
        End Sub

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.KeyPreview = True
        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            IsLock = True
        End Sub

     

     

     

    2008年3月9日 下午 12:24
    版主