３．スクロールバーをアップダウンコントロールの代わりに使う

１．スクロールバーをアップダウンコントロールの代わりに使う ２．　 ３．　 ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：追加なし 使用 API：なし その他　： 　　　　：

１．スクロールバーをアップダウンコントロールの代わりに使う

Option Explicit　　 'SampleNo=117　 2002.05.22 Private Sub Form_Load() 　　'これで上側をクリックすると数値が上がる 　　'値を逆にするのがミソ 　　Text1.Alignment = vbRightJustify 　　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 　　図１．上記実行結果 　 アップダウンコントロールを使用すれば済む事ですが、プログラムの配布の事を考えるとできるだけ標準のコントロールを使用した方が後々の処置が簡単なので。 因みに、アップダウンコントロールは、Microsoft Windows Common Controls-2 6.0(SP6) に入っています。

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)