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

名前

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

本文 エラーが必要な場合は TextBox.Text="2003" 'コードここから Const VScrollMin = 2002 Const VScrollMax = 2005 Private Sub Form_Load() VScroll1.Min=VScrollMin VScroll1.Max=VScrollMax VScroll1.Value=2003 End Sub Private Sub VScroll1_Change() select case VScroll1.Value case VScrollMin MsgBox CStr(VScrollMin) & "以前には対応していません", 16, "警告" VScroll1.Value=VScrollMin case VScrollMax MsgBox CStr(VScrollMax) & "以降には対応していません", 16, "警告" VScroll1.Value=VScrollMax case Else 'エラー時に値を変更させないならここにText1.Text = VScroll1.Value 'をおくなど適宜変更してください end Select Text1.Text = VScroll1.Value End Sub こんな感じでしょうか。