ホーム > ユーザーフォーム > Lesson10：　コンボボックス

コンボボックスは、テキストボックスとリストボックスを合わせたようなコントロールです。
項目を入力することできるし、一覧から選択することもできます。
リストボックスと同様の操作ができます。

リストボックスの勉強で、番号を選ぶと名前が表示されるようにしました。

今度はそのリストボックスを消して、コンボボックスでできるように変更します。

プロパティ	設定
オブジェクト名	cmbNum
RowSource	成績表!B3:B6

プログラムもリストボックスと同様に、Changeイベントを使って、


番号を選ぶと名前が表示されるようになりました。

リストボックスとそっくりなコンボボックス。
違いはコンボボックスに直接入力できること。
試しにボックスに入力してみると．．．？？？

テキストボックスに、入って欲しくないものが表示されました。
リストにない値が入力されると、Linsindexプロパティは「-1」になります。

「-1」ってことはリストから何も選択していない状態と同じです。
予期しない動きがあったというのは、作ったプログラムにバクがあったということです。
Linsindexプロパティが「-1」のときの処理をくわえます。
「-1」のときは何も選択していない状態なので、
テキストボックスには何も表示したくない。
だから「-1」のときはテキストボックスを空にする処理をくわえます。

vbNullString は、値が0の文字列。
Value = "" でも問題なく動くけれど、vbNullString を使うほうがいいらしい。
上級者になると違いが明白になるらしい．．．？
初心者の私には関係ないらしいけど、とりあえず。

前と同じようにコンボボックスに入力してみると

テキストボックスには何も表示されなくなりました。
バグがなくなりました。

その２でバグをなくしたけれど、
単にコンボボックスに直接入力できないようにする方法も。
Styleプロパティを使用します。

定数	値	内容
fmStyleDropDownCombo	0	直接入力、リストからの選択ともに可能
fmStyleDropDownList	2	値はリストからの選択のみ

あるいは、リストにある値しか入力できなくする方法もあります。
MatchRequiredプロパティを使用します。

設定	内容
True	リストないにある値のみ入力可能
False	リストにない値も入力可能

バグはなくなったけれど、もうちょっと追加。
ユーザーフォームが表示されたとき、番号１の名前が表示されるようにしたい。
ユーザーフォームが表示されるときは、UserForm_Initialize()
そこで、番号１を選ぶ。つまり、cmbNum.ListIndex = 0

これだけ、ユーザーフォームが表示されたとき、
番号１が選択され、名前に「しげっち」が表示されるようになりました。