フォーム:テキストボックスの値を矢印キーで増減する方法 Hit Counter

対象バージョン : 97, 2000, 2002, 2003
最終更新日 : 2016/09/18 (オリジナル作成日:2000/05/21)


概 要 

フォーム上に貼り付けられたテキストボックスの値を矢印キー(↑↓←→)で増減する方法です。

 

解 説

フォーム上にある日付を表しているテキストボックスコントロール txtDate にフォーカスがある場合、矢印キーにより値を増減します。

↓キーで翌日、↑キーで前日、→キーで一週間後、←キーで一週間前に変更します。

コントロール txtDate の "OnKeyDown/キークリック時" イベントプロシージャで、次のようにします。

Private Sub txtDate_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
    Me!txtDate = DateAdd("d", 1, Me!txtDate)
    KeyCode = 0
Case vbKeyDown
    Me!txtDate = DateAdd("d", -1, Me!txtDate)
    KeyCode = 0
Case vbKeyRight
    Me!txtDate = DateAdd("d", 7, Me!txtDate)
    KeyCode = 0
Case vbKeyLeft
    Me!txtDate = DateAdd("d", -7, Me!txtDate)
    KeyCode = 0
End Select
End Sub

目次へ戻る