前章、利用者がマウスクリックだけで処理を制御させることができるボタン系オブジェクトを紹介しました。
当章では利用者にマウスで選択をさせることができるリスト系オブジェクトについて紹介します。
標準命令１つで配置できるリスト系オブジェクトはリストボックスとコンボボックスの２タイプです。

リストボックスから説明しましょう。

第１パラメータは選択された行番号を保持させる変数を指定します。
最上段項目が選択されていた場合は０が、上から２段目は１が…それぞれセットされます。
もし、いずれも選択されていない状態であれば−１が入ります。
第２パラメータはリストボックスの高さを指定しますが、思い通りに行かない時があります。
実は、リストの高さはリスト１段分(厳密には文字)の高さに依存しています。
項目は縦に並べられるわけですが、リストに収まらない程の項目数がある場合、
一番下に表示される段の文字が欠けるということにはならず、
その段が丸々表示されないか、もしくはその段が表示しきれる高さとなるようです。
このことはFAQに回避策を書いていますが、リストボックスでは回避できないかと思われます。
第３パラメータのリスト内容は、そのままの意味で、選択させる各項目のテキストとなります。
各項目間の区切りは改行文字で表し、区切り１つで２項目が、区切り２つで３項目…がリストに表示されます。
例えば「東京」「大阪」「博多」という３項目を設定したい場合は、
"東京\n大阪\n博多"を入れた変数又は文字列そのままを指定します。
尚、リストボックスではテキストのみ扱えます。
エクスプローラのようにテキストと共に画像(アイコン)を表示させようとするならば、
リストボックスではなく、高度なリストビューを使わなければなりません。
リストビューはHSPでも扱えるものの、標準命令では用意されていませんし、設定が複雑です。
現段階では、慣れる意味でもとりあえずはリストボックスを使うようにしましょう。

 1
 2
 3
 4
 5

	objsize 120, 100 // 現在のオブジェクト高さ
	pos  50, 50 : listbox index1, 100, "あいうえお\nかきくけこ\nさしすせ\nそたちつてと"
	pos 200, 50 : listbox index2, 30, "現在の\nオブジェクト高さより\n大きくできても\n小さくできない"
	objsize 120, 20 // 現在のオブジェクト高さを縮める
	pos 350, 50 : listbox index3, 30, "こうすれば小さくなる"

サンプルではリストボックス毎にインデクスに使用している変数を別々にしていましたが、
コレが全て同じであってもエラーにはなりません。
ただ、最後に触ったリストボックスのカレント行が保持されることとなるので、
意図しない行番号となることでしょう。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

	objsize 50, 50
	repeat 8
		pos cnt * 60 + 50, 50 : listbox index, , "１行目\n２行目\n３行目\n４行目\n５行目\n６行目"
	loop
	objsize 100, 20
	pos 50, 250 : button "選択行チェック", *check
	stop

*check
	dialog "現在" + (index + 1) + "行目を選択しています？"

それぞれの選択行を別々に知る必要があるならば、
別々の変数、もしくは配列にして別々の配列要素を割り当てましょう。

さて、別タイプのリスト形オブジェクトの紹介に移りましょうか。

設定内容はlistbox命令と同じですね。
１点違うところは、リストの高さが一覧の高さに変わったという点です。
コンボボックスは、触っていないときは、現在選択している項目だけが表示され、
選択項目を切り替える時に一覧を表示させて、その中から選択するというものです。
よって、普段の高さはリスト１段分(文字)の高さとなります。
第２パラメータの高さ部分は、選択を切り替える時に表示される一覧の高さになると言うわけですね。
高さはlistbox命令同様に、一番下に表示される項目の文字が欠けないよう自動で調整された高さとなります。
リストボックスと異なり、リストの高さは「最大でも全項目文の高さ」となり、
リストボックスのように「項目行よりも大きい場合に余白ができる」ということはありません。
インデクス保持変数はlistbox命令同様に、先頭行だと０、先頭から２段目は１、未選択だと−１が入ります。
リスト内容もlistbox命令同様に、項目間を改行文字で区切って表しましょう。

 1
 2
 3
 4

	type = "ハッチバック\nクーペ\nオープン\nセダン\nステーションワゴン\nトールワゴン"
	objsize 120, 20
	pos  50, 50 : mes "車種タイプ"
	pos 150, 50 : combox index, 100, type // コンボボックスを配置

さて、配置後にリスト内容を変更したいという時もあると思います。
例えば先ほどのサンプルで言えば、車種タイプを選択するだけのものでした。
このプログラムに、実際の車種リストを選択するリストボックスを付け加えて、
選択した車種タイプに当てはまる車種を車種リストに表示させたいとしましょう。
このような動きを実現させたい場合、オブジェクト内容の更新を行う必要がありますね。

第１パラメータにはオブジェクトのＩＤを指定します。
オブジェクトのＩＤ…？？？
今までに、このＩＤについて触れていませんでしたので、初めて聞く方もいるはずです。

プログラマが割り当てるものではなくオブジェクトを配置する時、
オブジェクト毎に自動で割り当てられる番号のことをオブジェクトＩＤと呼んでいます。
基本的に、重複はしないよう０から順番に割り振られていきますが、
途中にあるオブジェクトの配置を取り消した場合、そのオブジェクトのＩＤが歯抜けとなります。
歯抜けの状態でオブジェクトを新規に配置すると、
その新オブジェクトのＩＤは歯抜けのＩＤが割り当てられるようになっています。
具体的には、０〜６まで順番に割り振った後に２と４のオブジェクトを削除すると、
次に配置するオブジェクトは２、その次は４、その次は７になると言うことですね。
このオブジェクトＩＤはウィンドウ毎に用意されたもので、
ウィンドウ０で０〜５まで割り当てても、
ウィンドウ１以降に新しくオブジェクトを配置すると０から割り当てられます。
当然、ウィンドウ０に戻って、新しくオブジェクトを配置すると６が割り当てられることになりますよ。
ＨＳＰ２以前は、１ウィンドウ毎に最大で６４個(０〜６３)までしか配置できませんでしたが、
ＨＳＰ３以降は、１ウィンドウ毎に最大で１６，３８４個(０〜１６，３８３)まで配置可能となりました。
１，０２４個を超えると警告メッセージが表示されるとのことで、実際に配置させてみたところ、
メッセージが出て、それより多く配置することはできませんでした(Version3.0時点)。
objprm命令の第２パラメータに話を戻します。
listboxまたはcomboxの場合、パラメータに文字列又は文字列型変数を指定するとリスト内容の更新を行い、
数値又は数値型変数を指定することで選択項目の変更を行います。
ＨＳＰ２以前ではこの説明でよかったのですが、ＨＳＰ以降は実数型が使えるようになりました。
整数値ではなく実数値を第２パラメータに指定すると、エラーとなりますので指定しないでください。
objprm命令はオブジェクト内容の更新をする命令ですので、listbox、comboxだけでなく、
その他の標準命令によるオブジェクトもＯＫです。
ボタンであればキャプションのテキスト、チェックボックスならチェックのＯＮ/ＯＦＦ。
次章に説明するエディット系オブジェクトの場合だとボックス内容の更新を行います。
それでは、先ほど説明していた車種タイプのサンプルを紹介しましょう。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
11
12
13
14
15
16
17
18
19

	index.1 = -1 // 選択項目の変更チェック用
	type = "ハッチバック\nクーペ\nオープン\nセダン\nステーションワゴン\nトールワゴン"
	carlist.0 = "アヴァンシア\neKワゴン\nヴィッツ\nVWゴルフ"
	carlist.1 = "シルビア\nスープラ\nNSX\nポルシェ911"
	carlist.2 = "セリカ\nユーノスロードスター\nM･ベンツSLK"
	carlist.3 = "ギャラン\nセルシオ\nレガシィ\nローレル"
	carlist.4 = "カルディナ\nボルボV70\nレガシィ"
	carlist.5 = "キューブ\nムーヴ\nファンカーゴ\nワゴンR"
	objsize 120, 20
	pos  50, 50 : mes "車種タイプ"
	pos 150, 50 : combox index, 100, type // オブジェクトＩＤ０
	pos 300, 50 : mes "車種"
	pos 350, 50 : listbox syasyu, 100, "" // オブジェクトＩＤ１
	repeat
		if index ! index.1 {
			index.1 = index
			objprm 1, carlist.index // 定義した文字列型配列の特定要素内容に切り替える
		}
		wait 1
	loop