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

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

どうも、三流プログラマーのKen3です。

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

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

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

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

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

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

/*
 * 2.フォームの作成
*/

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


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

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


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

/*
 * 3.テキストボックスに値をセット
*/

値の受け取りでテキストボックスを使用してみます。
テキストボックスを作成して、名前を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を代入してます。

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


/*
 * 4.Maximum  最大値 Minimum 最小値 のセット
*/

0〜10までしか動かないよ。

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


年齢18〜50を選ばせたいとしたら、
18と50をセットします。

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


/*
 * 5.終わりの挨拶
*/

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

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

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

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

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

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

よろしくお願いします。

AB型の変わり者、三流プログラマーのKen3でした。