VB 記錄按鍵的時間-有解無憂

按鍵盤時，記錄按鍵按了多久

uj5u.com熱心網友回復：

keydown 事件中記錄開始時間
keyup 事件中記錄結束時間
然后相減

uj5u.com熱心網友回復：



Option Explicit



Dim StartTime As Date

Dim KeyAsc As Integer



Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

   If KeyCode <> KeyAsc Then

    StartTime = Now()

    KeyAsc = KeyCode

    Debug.Print "S", StartTime

   End If

   

End Sub





Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

    Dim PassTime As Long

    Dim EndTime As Date

    If KeyCode = KeyAsc Then

        EndTime = Now()

        Debug.Print "E", EndTime

        PassTime = DateDiff("s", StartTime, EndTime)

        MsgBox "按鍵經過" & PassTime & "秒"

    End If

End Sub

uj5u.com熱心網友回復：

參考 2 樓 chewinggum 的回復:



Option Explicit



Dim StartTime As Date

Dim KeyAsc As Integer



Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

   If KeyCode <> KeyAsc Then

    StartTime = Now()

    KeyAsc = KeyCode

    Debug.Print "S", StartTime

   End If

   

End Sub





Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

    Dim PassTime As Long

    Dim EndTime As Date

    If KeyCode = KeyAsc Then

        EndTime = Now()

        Debug.Print "E", EndTime

        PassTime = DateDiff("s", StartTime, EndTime)

        MsgBox "按鍵經過" & PassTime & "秒"

    End If

End Sub

沒有復位? 同一按鍵只能檢測一次?

uj5u.com熱心網友回復：

Option Explicit



Dim StartTime As Date

Dim KeyAsc As Integer



Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

   If (KeyCode <> KeyAsc) Or StartTime = 0 Then

    StartTime = Now()

    KeyAsc = KeyCode

    Debug.Print "S", StartTime

   End If   

End Sub



Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

    Dim PassTime As Long

    Dim EndTime As Date

    If KeyCode = KeyAsc Then

        EndTime = Now()

        Debug.Print "E", EndTime

        PassTime = DateDiff("s", StartTime, EndTime)

        MsgBox "按鍵經過" & PassTime & "秒"

        StartTime = 0

    End If

End Sub

uj5u.com熱心網友回復：

參考 3 樓 VBAHZ 的回復:

Quote: 參考 2 樓 chewinggum 的回復:



Option Explicit



Dim StartTime As Date

Dim KeyAsc As Integer



Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

   If KeyCode <> KeyAsc Then

    StartTime = Now()

    KeyAsc = KeyCode

    Debug.Print "S", StartTime

   End If

   

End Sub





Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

    Dim PassTime As Long

    Dim EndTime As Date

    If KeyCode = KeyAsc Then

        EndTime = Now()

        Debug.Print "E", EndTime

        PassTime = DateDiff("s", StartTime, EndTime)

        MsgBox "按鍵經過" & PassTime & "秒"

    End If

End Sub

沒有復位? 同一按鍵只能檢測一次?

第7行和19行的兩個判斷實際上就是一種配對以及復位的邏輯，你可以試試

uj5u.com熱心網友回復：

測驗了一下，的確有問題，修正一下



Dim StartTime As Date

Dim KeyAsc As Integer

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

   If KeyCode <> KeyAsc Then

    StartTime = Now()

    KeyAsc = KeyCode

    Debug.Print "S", KeyCode, StartTime

   End If

    

End Sub

 

 

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

    Dim PassTime As Long

    Dim EndTime As Date

    If KeyCode = KeyAsc Then

        EndTime = Now()

        Debug.Print "E", KeyCode, EndTime

        PassTime = DateDiff("s", StartTime, EndTime)

        KeyAsc = 0

        Debug.Print "按鍵經過" & PassTime & "秒"

    End If

End Sub

uj5u.com熱心網友回復：

參考 6 樓 chewinggum 的回復:

測驗了一下，的確有問題，修正一下



Dim StartTime As Date

Dim KeyAsc As Integer

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

   If KeyCode <> KeyAsc Then

    StartTime = Now()

    KeyAsc = KeyCode

    Debug.Print "S", KeyCode, StartTime

   End If

    

End Sub

 

 

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

    Dim PassTime As Long

    Dim EndTime As Date

    If KeyCode = KeyAsc Then

        EndTime = Now()

        Debug.Print "E", KeyCode, EndTime

        PassTime = DateDiff("s", StartTime, EndTime)

        KeyAsc = 0

        Debug.Print "按鍵經過" & PassTime & "秒"

    End If

End Sub

我覺得這還是有問題啊。

比如按“組合鍵”Ctrl+A：
按下Ctrl鍵，不放開、稍候才按下鍵A；　然后放開A鍵、放開Ctrl鍵。
這是“正常操作”的流程，但你輸出的那些“時間”如何去理解？

uj5u.com熱心網友回復：

參考 7 樓 Chen8013 的回復:

Quote: 參考 6 樓 chewinggum 的回復:

測驗了一下，的確有問題，修正一下



Dim StartTime As Date

Dim KeyAsc As Integer

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

   If KeyCode <> KeyAsc Then

    StartTime = Now()

    KeyAsc = KeyCode

    Debug.Print "S", KeyCode, StartTime

   End If

    

End Sub

 

 

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

    Dim PassTime As Long

    Dim EndTime As Date

    If KeyCode = KeyAsc Then

        EndTime = Now()

        Debug.Print "E", KeyCode, EndTime

        PassTime = DateDiff("s", StartTime, EndTime)

        KeyAsc = 0

        Debug.Print "按鍵經過" & PassTime & "秒"

    End If

End Sub

雪糕又要滿臉黑線咯

uj5u.com熱心網友回復：

Q2776478814,加我

uj5u.com熱心網友回復：

參考 7 樓 Chen8013 的回復:

Quote: 參考 6 樓 chewinggum 的回復:

測驗了一下，的確有問題，修正一下



Dim StartTime As Date

Dim KeyAsc As Integer

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

   If KeyCode <> KeyAsc Then

    StartTime = Now()

    KeyAsc = KeyCode

    Debug.Print "S", KeyCode, StartTime

   End If

    

End Sub

 

 

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

    Dim PassTime As Long

    Dim EndTime As Date

    If KeyCode = KeyAsc Then

        EndTime = Now()

        Debug.Print "E", KeyCode, EndTime

        PassTime = DateDiff("s", StartTime, EndTime)

        KeyAsc = 0

        Debug.Print "按鍵經過" & PassTime & "秒"

    End If

End Sub

看樓主有沒有組合鍵時間判斷的需求或應用場景咯，有再說，沒有的話就這樣了。

uj5u.com熱心網友回復：

就目前的方案和代碼，結果很明確，就是 A 鍵按下的時間。因為有效地記錄開始時間的是最后產生 KeyDown 事件的 KeyCode。而且只有相同 KeyCode 鍵的 KeyUp 事件結束計時。

uj5u.com熱心網友回復：

參考 10 樓 chewinggum 的回復:

Quote: 參考 7 樓 Chen8013 的回復:

Quote: 參考 6 樓 chewinggum 的回復:

測驗了一下，的確有問題，修正一下



Dim StartTime As Date

Dim KeyAsc As Integer

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

   If KeyCode <> KeyAsc Then

    StartTime = Now()

    KeyAsc = KeyCode

    Debug.Print "S", KeyCode, StartTime

   End If

    

End Sub

 

 

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

    Dim PassTime As Long

    Dim EndTime As Date

    If KeyCode = KeyAsc Then

        EndTime = Now()

        Debug.Print "E", KeyCode, EndTime

        PassTime = DateDiff("s", StartTime, EndTime)

        KeyAsc = 0

        Debug.Print "按鍵經過" & PassTime & "秒"

    End If

End Sub

看樓主有沒有組合鍵時間判斷的需求或應用場景咯，有再說，沒有的話就這樣了。

是的，要看具體的應用需求。

但那些提問的，自己不知道如何解決問題，又不把需求的細節說清楚。
（其實很可能就是它根本就不知道、也考慮不到會有什么“潛在問題”　

　）

uj5u.com熱心網友回復：

參考 12 樓 Chen8013 的回復:

Quote: 參考 10 樓 chewinggum 的回復:

Quote: 參考 7 樓 Chen8013 的回復:

Quote: 參考 6 樓 chewinggum 的回復:

自己不知道如何解決問題，又不把需求的細節說清楚。
（其實很可能就是它根本就不知道、也考慮不到會有什么“潛在問題”　　）

這段描述,就是在說俺領導嘛

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/55871.html
標籤：網絡編程

上一篇：【找】哪有ResEditI.exe資源檔案編輯器下載?(VB5版的Add-in)
下一篇：VB 串口通信