none
vb2008 如何按下f4引發button 事件? RRS feed

  • 問題

  • vb2008 如何按下f4引發button 事件?

    我是用來制作自動打字程式,按f4開始,再按一下f4停止,怎樣打程式碼?

    2010年7月13日 上午 06:01

所有回覆

  • 如果你的問話態度再好一點的話,想像會有更多的大大願意幫妳回答更多的答案的,多上網查些有關鍵盤事件的文章(keydown、keypress、keyup)相信你就能解決你自己的問題的。

    通常鍵盤事件分別為keydown、keypress、keyup等....,按你按下了鍵盤時會觸發二個事件(keydown及keypress)當你放開了鍵盤就會觸發keyup這事件。

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
            Select Case e.KeyCode
                Case Keys.F4
                    Label1.Text = "按F4觸發Button"
            End Select
        End Sub

     

     Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
            Label1.Text = "放開F4觸發Button"
        End Sub

    自己找一下文章看看,上面這只是給你參考的範列,並不是真的會觸發Button,努力一下找些文章讀讀問題可能就解決了,相信如果你努力之後還是找不出問題的所在,那我想會有很多的大大願意為你解答的。

     

    2010年7月13日 下午 05:28
  • 如果你的問話態度再好一點的話,想像會有更多的大大願意幫妳回答更多的答案的,多上網查些有關鍵盤事件的文章(keydown、keypress、keyup)相信你就能解決你自己的問題的。

    通常鍵盤事件分別為keydown、keypress、keyup等....,按你按下了鍵盤時會觸發二個事件(keydown及keypress)當你放開了鍵盤就會觸發keyup這事件。

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
            Select Case e.KeyCode
                Case Keys.F4
                    Label1.Text = "按F4觸發Button"
            End Select
        End Sub

     

     Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
            Label1.Text = "放開F4觸發Button"
        End Sub

    自己找一下文章看看,上面這只是給你參考的範列,並不是真的會觸發Button,努力一下找些文章讀讀問題可能就解決了,相信如果你努力之後還是找不出問題的所在,那我想會有很多的大大願意為你解答的。

     


    我把視窗最小化,然後按下f11沒反應

        Private Sub Button1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown
            Select Case e.KeyCode
                Case Keys.F11
                    If TextBox2.Text = "" Then
                        MsgBox("請打每隔多少秒", , "EEOR")
                    ElseIf TextBox2.Text > 60 Then
                        MsgBox("最多一分鐘", , "EEOR")
                    ElseIf CheckBox1.Checked = False Then
                        Timer1.Enabled = True
                        Button1.Enabled = False
                        Button2.Enabled = True
                        CheckBox1.Enabled = False
                        TextBox2.Enabled = False
                        TextBox1.Enabled = False
                    Else
                        Timer2.Enabled = True
                        Button1.Enabled = False
                        Button2.Enabled = True
                        CheckBox1.Enabled = False
                        TextBox2.Enabled = False
                        TextBox1.Enabled = False
                        Timer1.Interval = Val(TextBox2.Text) * Val(1000)
                        Timer2.Interval = Val(TextBox2.Text) * Val(1000)
                    End If
            End Select
        End Sub

    2010年7月14日 上午 08:31
  • 當然沒反應。

     

    你要的可能是這個

    http://www.dotblogs.com.tw/huanlin/archive/2008/04/23/3320.aspx

    • 已標示為解答 Lolota Lee 2010年7月20日 上午 05:53
    2010年7月14日 上午 08:51