冰楓論壇

 找回密碼
 立即註冊
查看: 68|回覆: 0

[VB.Net] 初學者 視窗外使用快捷鍵

[複製鏈接]

10

主題

0

好友

5

積分

新手上路

Rank: 1

UID
195957
帖子
202
主題
10
精華
0
積分
5
楓幣
1156
威望
2
存款
0
贊助金額
0
推廣
0
GP
5
閱讀權限
10
性別
保密
在線時間
68 小時
註冊時間
2017-7-10
最後登入
2020-7-11

Android勳章 2017年紀念勳章 太陽勳章 神手勳章 Apple勳章 性別(男) 懶人勳章

發表於 2020-6-19 13:49:40 |顯示全部樓層
這個問題可能簡單 但我不會w 求指點
最近學寫VB 寫了一個自動打字的 遇到一個問題
我只能點進程式視窗才可以使用快捷鍵 沒辦法下各位寫的都能在別的視窗按快捷也會動作
以下是我的程式 環境為Visual Studio2019

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        SendKeys.Send((TextBox1.Text))
        SendKeys.Send("{Enter}")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        Timer1.Interval = TextBox2.Text
    End Sub

    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.F1 Then
            Button1.PerformClick()
        ElseIf e.KeyCode = Keys.F2 Then
            Button2.PerformClick()
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.KeyPreview = True
        Me.Enabled = True
    End Sub

End Class
複製連結並發給好友,以賺取推廣點數
簡單兩步驟,註冊、分享網址,即可獲得獎勵! 一起推廣文章換商品、賺$$
您需要登入後才可以回帖 登入 | 立即註冊

正在連接伺服器...
打開冰楓聊天室
廣告刊登意見回饋關於我們職位招聘本站規範DMCA隱私權政策

Copyright © 2011-2020 冰楓論壇, All rights reserved

免責聲明:本網站是以即時上載留言的方式運作,本站對所有留言的真實性、完整性及立場等,不負任何法律責任。

而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。

小黑屋|意見反饋|手機版|Archiver|冰楓論壇

GMT+8, 2020-7-11 13:29

APP Store下載 Play Store下載
回頂部