TimerイベントでEndキーが押されたら終了したい。

---

TIMERイベントで、Endキーが押されたらすべて終了というようにしたいのですが、Endが押されたらという判定の仕方がわかりません。
教えてください。

編集 削除

---

こんな感じとか。

Option Explicit

Private m_blnEnd As Boolean ' Endキー押下フラグ

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

    If KeyCode = 35 Then
        m_blnEnd = True ' Endキーが押下された
    Else
        m_blnEnd = False
    End If

End Sub

'Endキー監視タイマー
Private Sub Timer1_Timer()
    
    Timer1.Enabled = False

    If m_blnEnd = True Then
        Unload Me ' Endキーが押下されてたら終了
    Else
        Timer1.Enabled = True ' 監視続行
    End If

End Sub

編集 削除

---

こんなんでいいと思うが…
>Private Sub Timer1_Timer()
>    
>    Timer1.Enabled = False
なんでココでTimer1のEnabledをFalseにしているんだ？

>    If m_blnEnd = True Then
>        Unload Me ' Endキーが押下されてたら終了
>    Else
>        Timer1.Enabled = True ' 監視続行
>    End If
>
>End Sub

編集 削除

---

良く見ると後でTimer1.Enabled=Trueにしてるし…(orz
…トリoキーなコードに見える…(orz

編集 削除

---

…て、人のレスを勘違いしてたし…
     モウダメポ..._〆(゜▽゜*)

…帰って寝ます…

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。