
checkedlistboxコントロールについて教えてください。
A、Bというカラムがある、testというテーブルの内容を
checkedlistboxに表示します。
この時に表示するのはA(DisplayMember)、値としてB(ValueMember)を
指定したいと思っています。
チェックされた項目については、Bの値とそれがチェックされたかという
情報を、ハッシュテーブルで返すようにしたいです。
((3,True)、(4,False)みたいに。)
とりあえず書いてみた限りでは、
Dim dt As New DataTable
Dim DBAccess As new DataBaseAccess
Dim selectSql As String
selectSql = "SELECT A,B FROM test"
'データテーブルに格納
dt = DBAccess.GetDataSet(selectSql).Tables(0)
Me.CheckListBox.DataSource = dt
Me.CheckListBox.DisplayMember = "A"
…
こんな感じかと思うのです。
(DataBaseAccessというのは、DB接続用に作ったクラスで、
GetDataSetメソッドはSQLの結果をDataSetで返すものです)。
どう書いたものか悩んでいるのが、チェックされたか否かの情報と
Bの値を格納していく処理です。
ループさせて見ていくのかと思うのですが、この時にBの値を取得
していくにはどのようにすれば良いのでしょうか?
サンプルソースを交えて教えていただけると助かります。
宜しくお願いします。
No.1ベストアンサー
- 回答日時:
お世話になります。
以下はサンプルです。
Form1 には CheckedListBox と Button が配置されています。
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows フォーム デザイナで生成されたコード "
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DBAccess As DataBaseAccess = New DataBaseAccess
Dim sql As String = "SELECT A, B FROM TABLE"
Dim dt As DataTable = DBAccess.GetDataset(sql).Tables(0)
Me.CheckedListBox1.DataSource = dt
Me.CheckedListBox1.DisplayMember = "A"
Me.CheckedListBox1.ValueMember = "B"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For index As Integer = 0 To Me.CheckedListBox1.Items.Count - 1
System.Diagnostics.Debug.WriteLine( _
index.ToString() & "チェック状態:" & Me.CheckedListBox1.GetItemCheckState(index).ToString())
Dim listObject As DataRowView = DirectCast(Me.CheckedListBox1.Items(index), DataRowView)
System.Diagnostics.Debug.WriteLine( _
"A:" & Convert.ToString(listObject("A")) & ControlChars.NewLine & _
"B:" & Convert.ToString(listObject("B")))
Next
End Sub
End Class
Button1_Click メソッド内でチェックの状態や各列の値などを取得しています。
これを応用するなりして HashTable とかを作ればよいかと思います。
参考URL:http://msdn.microsoft.com/ja-jp/library/system.w …
お礼が遅れまして申し訳ありません。
参考にさせていただき、無事に目的の動作をするよう組む
ことが出来ました。
大変助かりました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストボックスのvalueとtext...
-
値を返さないコード パス
-
OracleでRecordCountが正しくな...
-
PL/SQLでのTO_DATEの時間取得に...
-
pingを行うプログラム
-
C言語では0は・・・
-
VB.NETでアクティブなformを知...
-
VBで三項演算子
-
C#の質問です
-
VBA ドロップダウンリストを残...
-
ComboBoxとListBoxとの連動
-
DataTableに対するLINQについて
-
VisualBasic2005でExcelを最小...
-
【ASP.NET】 DataTextFieldの値...
-
MATLABのGUIについて教えていた...
-
OpenCVにおいてのYCrCb値の求め方
-
フォーム間での変数の受け渡し
-
ListView 項目の選択/選択解除...
-
Accessのクエリで、replace関数...
-
VBA初心者です。結合セルを保持...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストボックスのvalueとtext...
-
VBA ドロップダウンリストを残...
-
VB.NETでコンボボックスの1行目...
-
C#の質問です
-
Excel VBAのリストボックスの値...
-
値を返さないコード パス
-
【C++/CLI.NET】コンボボックス...
-
VB初心者。小数点以下の表示で...
-
PL/SQLでのTO_DATEの時間取得に...
-
マクロ 特定のセル値のみクリ...
-
マクロで奇数と偶数の値を2か所...
-
VB.NETのスクロールバーコント...
-
VB.netでRGB関数を使うには
-
シーケンサで最小値を保持する
-
【ASP.NET】 DataTextFieldの値...
-
C言語では0は・・・
-
変数名の取得
-
VB.NETでアクティブなformを知...
-
textboxとLabelを動的に変更する
-
ACCESS VBA 画像ファ...
おすすめ情報