動画でも解説しました
リストボックスで選択アイテムを指定するには
先日ギャラリーで選択行をボタンで操作する方法についても書きました。
ギャラリーの場合は、Select関数を使用して、Select(Gallery1,選択したい行番号)
と書くことで選択する行を指定することができるため、比較的簡単に操作することができます。
しかし、リストボックスでは同じ方法は使えません。
Defaultプロパティでアイテムを指定する
そこで、Defaultプロパティを使用して選択するアイテムを指定します。
Defaultプロパティに文字列で"いろは"と入れることで、リストボックスのアイテム"いろは"を選択することができます。
この場合、複数選択をオフにしていても、リストボックスのアイテムに"いろは"が複数存在した場合は、すべて選択されてしまうことに注意してください。
ボタンで操作するには
ボタンで選択アイテムを操作するには、リストボックスの複数選択をオフにして、Defaultプロパティには変数を指定しておきます。
ここでは、変数_selectlbとしておきます。
そして、リストボックスに表示したいアイテムを読み込むタイミングで、行番号を付けておきます。
動画では画面を読み込む際に行番号を付けておきました。
リストボックス用のコレクションを準備
こちらが使用したリストです。
画面のOnVisibleプロパティに以下を記載して読み込みます。
Clear(col_list); //リストボックス用のコレクションを準備
With({pre_list:Distinct(test_list1,memo)}, //pre_listにリストのmemoを重複を削除して格納
ForAll(Sequence(CountRows(pre_list)), //pre_listの行数分繰り返し処理
With({_memo:Index(pre_list,Value).Value}, //pre_listのValue列の値を_memoに格納
Collect(col_list,{memo:_memo,Row:Value})) //コレクションにmemoとRow(行番号)を追加
)
);
test_list1のmemo列をリストボックスのアイテムとして読み込みました。
ForAll関数で、リストの行数分繰り返して、行番号Row列を作成しています。
リストボックスの項目(Itemsプロパティ)は、col_listを設定。Valueにmemoを設定すると、アイテムにmemo列の値が並びます。
最初のアイテムを選択するボタンのOnSelectプロパティ
//リセットして無選択状態にする
Reset(ListBox1);
//col_listの最初の行のmemoを_selectlbに格納する
UpdateContext({_selectlb:First(col_list).memo})
はじめのReset関数でリストボックスを初期化して、無選択状態にします。
これを入れておかないと、複数選択してしまいます。
First関数でコレクションの最初のレコードのmemo列の値を取得して、_selectlbに格納します。
ボタンを押すと最初のアイテムである"いろは"が選択されます。
最後のアイテムを選択するボタンのOnSelectプロパティ
//リセットして無選択状態にする
Reset(ListBox1);
//col_listの最後の行のmemoを_selectlbに格納する
UpdateContext({_selectlb:Last(col_list).memo})
First関数をLast関数に置き換えただけですが、これで最後のアイテムを選択することができます。
現在の選択アイテムの1つ上に移動するボタンのOnSelectプロパティ
//_nextrowに現在の選択アイテムのRowに1を足して格納
With({_nextrow:First(ListBox1.SelectedItems).Row - 1},
If(_nextrow > 0,
//リセットして無選択状態にする
Reset(ListBox1);
//_nextrowをcol_listから探して、memoを取得し_selectlbに格納
UpdateContext({_selectlb:Index(col_list,_nextrow).memo})
)
)
現在の選択アイテムの行番号から-1し、コレクションから該当する行のmemo列の値を取得。
選択する行番号が0より大きい場合のみ、移動を実行します。
これがないと0以下の場合Index関数でエラーになります。
変数_selectlbに格納することで、一つ上のアイテムを選択します。
現在の選択アイテムの1つ下に移動するボタンのOnSelectプロパティ
//_nextrowに現在の選択アイテムのRowに1を足して格納
With({_nextrow:First(ListBox1.SelectedItems).Row + 1},
If(_nextrow <= CountRows(col_list),
//リセットして無選択状態にする
Reset(ListBox1);
//_nextrowをcol_listから探して、memoを取得し_selectlbに格納
UpdateContext({_selectlb:Index(col_list,_nextrow).memo})
)
)
こちらは1つ下のアイテムに移動します。
変更点は最初の行で+1していることと
If関数で、コレクションの最大行以下の場合のみ実行するようにしています。
残念なお知らせ
これでリストボックスのアイテムをボタンで操作できるようになりますが、
リストボックスのアイテムが多い場合、表示されていない行のアイテムを選択した際に、アイテムを選択はできるのですが、ギャラリーのように自動でスクロールはしてくれません。
スクロールまでできれば完璧だったのですが、恐らく複数選択が可能なコントロールなのでスクロールしないものと思われます。