| フォーム：テキストボックスの値を矢印キーで増減する方法 |
|
対象バージョン : 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
