====*====*====*====*====*====*====*====*====*====*====*====*====*====*====*=
[ Ｖｉｓｕａｌ Ｂａｓｉｃ.ＮＥＴに挑戦する No.007 ]  2003/03/19  毎週水曜日
=*====*====*====*====*====*====*====*====*====*====*====*====*====*====*====
勢いで買ってしまったVisual Basic .NETを使って、プログラムを組んでみます。
主にExcelやAccessのVBAしかやったことのない三流プログラマーのＫｅｎ３が、
がんばって解説します。初心者歓迎です(プロの人は内容が簡単で物足りないかも)
有料版なので遠慮しないでドンドン質問下さいね。
楽しみながら〜一緒にVB.NETを覚えましょう
----------------------------------------------------------------------------

＜トラックバーコントロールを使ってみます＞

どうも、三流プログラマーのＫｅｎ３です。

飛ばして行く予定が、なかなか進まなくスミマセン。
今回は、
スライドバーみたいなトラックバーコントロールを使ってみます。

まぁまぁ。
気楽に読んでください。

今後の要望や疑問点・質問は遠慮無く

/*
 * １. やりたいこと
*/

よく、値を設定する画面で、スライドバーをスクロールさせて、
値を設定する操作を見かけると思います。

そんなことをやってみたいので、
トラックバーを使用してみます。

/*
 * ２．フォームの作成
*/

いつものようにコントロールを選択して、フォーム上に作成。


コントロールの名前をbar01に変更。

F5で実行、、、してもバーが動くだけでつまらない（笑）


動かした値を処理しないとね。

/*
 * ３．テキストボックスに値をセット
*/

値の受け取りでテキストボックスを使用してみます。
テキストボックスを作成して、名前をtxt01にします。


次に、バーが移動したら（移動したタイミングのイベントで）
値をテキストボックスに保存したいので、
トラックバーコントロールをダブルクリックして、コードの入力をします。

Private Sub bar01_Scroll(ByVal sender As System.Object, 

End Sub

とコードの入力画面が表示されます。
テキストボックス.値 = バー.値としたいので、
Private Sub bar01_Scroll(ByVal sender As System.Object, _
               ByVal e As System.EventArgs) Handles bar01.Scroll
    txt01.Text = bar01.Value
End Sub

とやりました。
テキストボックスの.textプロパティ
に
トラックバーの.valueを代入してます。

Ｆ５で実行、バーを動かすとテキストの値が変わります。


/*
 * ４．Maximum  最大値　Minimum　最小値　のセット
*/

０〜１０までしか動かないよ。

あっ、これは、プロパティで最小値・最大値を設定します。
Maximum  最大値
Minimum　最小値
のプロパティを変更します。


年齢１８〜５０を選ばせたいとしたら、
１８と５０をセットします。

Ｆ５でテストします。
なんとかうまくいきましたね。


/*
 * ５．終わりの挨拶
*/

今回は、
・トラックバーコントロール
・テキストボックスに値のセット
・最小値、最大値のセット
でした。

これもプロパティをいじっているだけなんですね。
深く考えないで、なんだぁ〜簡単ジャン程度に思っててください。

次回からコントロールまわりをガーっと飛ばして行かないと、
これがＶＢ．ＮＥＴだぁ、までの道のりは長そうです。

気長に待てる人は、購読続けて下さい。
＊解説、長くかかりそうなので。

補足（連絡用マガジン発行）で、細かく説明を発行します。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

プログラム作りは簡単で面白いなぁと感じるような
解説／メールマガジンを書きたいと思ってます。

よろしくお願いします。

ＡＢ型の変わり者、三流プログラマーのＫｅｎ３でした。