ホーム > ユーザーフォーム > Lesson11：　タブストリップ

タブストリップは、タブをクリックすることでページを切り替えて表示するものです。
各ページに表示されるコントロールは、共通（同じ物）です。

タブストリップを使って、それぞれのページに各科目の点数が表示されるようにします。
ユーザーフォームを広げて、タブストリップを配置します。

プロパティ	設定
オブジェクト名	tstKamoku

このときタブは２つ。でも表示したいのは４つ（４科目）。
タブストリップを追加します。
タブストリップの上でゆくっり２回クリック。
そして右クリックするとメニューが表示されます。そこで「新しいページ」をクリックします。
２つ追加して、タブの名前を変更します。
そして、点数を表示するためのテキストボックスを１つ配置します。

プロパティ	設定
オブジェクト名	txtPoint

タブストリップを切り替えるごとに表示が変わる（該当科目の点数表示）ようにします。
どのタブが選択されているかを知るには、tstKamoku.Value　を見ます。
tstKamoku.Value　は、0,1,2...です。
ここでは、国語が0、算数が1、理科が2、社会が3。
番号１のしげっちの国語なら、Cells(3, 4)。
番号１のしげっちの算数なら、Cells(3, 5)。
番号１のしげっちの理科なら、Cells(3, 6)。
番号１のしげっちの社会なら、Cells(3, 7)。
番号２のえんどーくんの国語なら、Cells(4, 4)。
　　　･･･
これを、cmbNum.ListIndex　と　tstKamoku.Value　を使って表すと
Cells(3 + cmbNum.ListIndex, 4 + tstKamoku.Value)


タブストリップを切り替えると、それぞれの点数が表示されました。

タブストリップを切り替えると、対応する人の科目の点数が表示されるようになりました。
でも、気になることも。
ユーザーフォームが表示されたとき、タブを切り替えるまで点数が表示されない。
フォームが表示されたときに、点数を表示させたいな．．．
もう一つ。
番号を変えたとき（別の人に変えた時）も、タブを切り替えるまで、正しい点数が表示されない。
番号を変えたらすぐに、その人の点数を表示するようにしたい。

ユーザーフォームが表示されるとき、UserForm_Initialize
タブストリップを切り替える　tstKamoku_Change　を実行する


フォームが表示されたときに、点数を表示されるようになりました。

もう一つのほうは
番号を変えたとき　cmbNum_Change
タブストリップを切り替える　tstKamoku_Change　を実行する

番号を変えたらすぐに、その人の点数を表示するようになりました。

しかし、バグ発見。
コンボボックスに直接入力したら、こうなった。

というわけで、また修正。
cmbNum.ListIndex = -1　のときの処理を追加。