スクロールバーをアップダウンコントロールに
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。 　　
スクロールバーをアップダウンコントロールの代わりに使う　　　　　　（１１７）
　　 Option Explicit　　 'SampleNo=117　WindowsXP VB6.0(SP5) 2002.05.22

Private Sub Form_Load()
　　'これで上側をクリックすると数値が上がる
　　'値を逆にするのがミソ
　　VScroll1.Max = 0
　　VScroll1.Min = 20
End Sub


Private Sub Text1_LostFocus()
　　VScroll1.Value = Text1.Text
End Sub


Private Sub VScroll1_Change()
　　Text1.Text = VScroll1.Value
End Sub


　　　　　　
特にどうって事ないのですが、標準のコントロールで出来ることは、標準のコントロールを使った
方が配布時添付する必要も無いので、又、ステータスバーの変わりにラベルの　BorderStyle =1
にすれば代用になります。




2002/05/22