---

チェックボックスつきリストで項目の移動選択をする

.NET では、チェックつきリストボックスコントロールが用意されています。 この機能を使えば、簡単に、 チェックボックスつきリストで項目の移動選択をするような 選択フェーズを作成できます。 -----------VB.NETコーディングここから------------------- １．フォームに、チェックつきリストボックスコントロールを配置します。     ※名前はデフォルトのCheckedListBox1のままにしておいてください。 　　貼り付け位置は、フォームの左側です。 ２．フォームに、２つめの 　　チェックつきリストボックスコントロールを配置します。     ※名前はデフォルトのCheckedListBox2のままにしておいてください。 　　貼り付け位置は、フォームの右側です。 ３．フォームに、ボタンコントロールを配置します。 　　貼り付け位置は、上記　チェックつきリストボックスコントロール 　　の真ん中上あたりです。 ４．ボタンコントロールの     text プロパティに「→」と記述します。 　　※説明用のためです。必須ではありません。 ５．フォームに、２つめのボタンコントロールを配置します。 　　貼り付け位置は、上記　チェックつきリストボックスコントロール 　　の真ん中下あたりです。 ６．ボタンコントロールの     text プロパティに「←」と記述します。 　　※説明用のためです。必須ではありません。 ７．フォームをダブルクリックして、Form_Loadイベントプロシージャ 　　へ、以下のコードを記述します。     Private Sub Form1_Load(ByVal sender As System.Object, _        ByVal e As System.EventArgs) Handles MyBase.Load         CheckedListBox1.Items.Add("氏名")         CheckedListBox1.Items.Add("氏名カナ")         CheckedListBox1.Items.Add("郵便番号")         CheckedListBox1.Items.Add("住所")         CheckedListBox1.Items.Add("電話番号")         CheckedListBox1.Items.Add("FAX番号")     End Sub ８．「→」ボタン(Button1)をクリックして、 　　ボタンのクリックイベントの編集を開始して、 　　次のコードを記述します。     Private Sub Button1_Click(ByVal sender As System.Object, _        ByVal e As System.EventArgs) Handles Button1.Click         Dim intCount As Integer         Dim intCLICount As Integer         intCLICount = CheckedListBox1.CheckedItems.Count - 1         For intCount = 0 To intCLICount             '右→が押されたとき             CheckedListBox2.Items.Add(CheckedListBox1.CheckedItems(0))             CheckedListBox1.Items.Remove(CheckedListBox1.CheckedItems(0))         Next     End Sub ９．「←」ボタン(Button2)をクリックして、 　　ボタンのクリックイベントの編集を開始して、 　　次のコードを記述します。     Private Sub Button2_Click(ByVal sender As System.Object, _         ByVal e As System.EventArgs) Handles Button2.Click         Dim intCount As Integer         Dim intCLICount As Integer         intCLICount = CheckedListBox2.CheckedItems.Count - 1         For intCount = 0 To intCLICount             '左←が押されたとき             CheckedListBox1.Items.Add(CheckedListBox2.CheckedItems(0))             CheckedListBox2.Items.Remove(CheckedListBox2.CheckedItems(0))         Next     End Sub １０．ビルドして実行します。 １１．フォームに配置した左側のチェックつきリストボックスコントロールを 　　　マウスでクリックして、チェックを複数つけてみてください。 １２．フォームに配置したボタンコントロール「→」を 　　クリックしてみると、右側に配置した 　　チェックつきリストボックスコントロールへ移動することが確認できます １３．フォームに配置した右側のチェックつきリストボックスコントロールを 　　　マウスでクリックして、チェックを複数つけてみてください。 １４．フォームに配置したボタンコントロール「←」を 　　クリックしてみると、左側に配置した 　　チェックつきリストボックスコントロールへ移動することが確認できます -----------VB.NETコーディングここまで------------------- アプリケーションの設定など、利用用途は実に多彩です。

---

---

　

Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。