スクロールするには？ (ID:106388)

名前

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

本文 こんにちは、テキストボックスに2003をデフォルトでいれスクロールバーで スクロールさせるには、下記のとおりでいいんでしょうか？ Private Sub VScroll1_KeyDown(KeyCode As Integer, Shift As Integer) '年フィールドDOWNのボタン If Text1.Text < 2002 Then MsgBox "2002年以前にはできません", 16, "警告" Exit Sub End If Text1.Text = Text1.Text - 1 End Sub Private Sub VScroll1_KeyUp(KeyCode As Integer, Shift As Integer) '年フィールドUPのボタン If Text1.Text = 2005 Then MsgBox "2005年以降には対応していません", 16, "警告" Exit Sub End If Text1.Text = Text1.Text + 1 End Sub VScroll_Changeでスクロールのダウンだけだと動きます。