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

名前

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

本文 こんな感じとか。 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