サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2009/11/02 23:22
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[リストボックス][][] *
* キーワード：選択項目を取得,全選択,選択解除,チェック項目,, *
***********************************************************************************
タイトル ： CheckedListBox
記 事 No ： 9253
投 稿 日 ： 2009/08/10(Mon) 22:15
元質問者 ： bin
CheckedListBoxコントロールで下記についてお教えください。
・チェックされた項目を string変数に取得する方法
・チェックを全選択またはその逆をする方法
-----------------------------------------------------------------------------------
記事No ： 9254
投稿日 ： 2009/08/11(Tue) 10:15
回答者 ： 魔界の仮面弁士
-----------------------------------------------------------------------------------
> CheckedListBoxコントロールで下記についてお教えください。
> ・チェックされた項目を string変数に取得する方法
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim q() As String = (From o In CheckedListBox1.CheckedItems Select CStr(o)).ToArray()
'ListBox の場合
'Dim q() As String = (From o In ListBox1.SelectedItems Select CStr(o)).ToArray()
'確認用
TextBox1.Lines = q 'TextBox1.Multiline = True にしておく
End Sub
※ 上記では、VB2005 での使用は、エラーが発生して使用できないようです。 -- By 花ちゃん --
> ・チェックを全選択またはその逆をする方法
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim c As Boolean = True '全選択なら True / 全解除なら False
For i As Integer = 0 To CheckedListBox1.Items.Count - 1
CheckedListBox1.SetItemChecked(i, c)
Next
End Sub
 |
