دسترسی به آیتم های Checkedlistbox

[mehr_83]

سلام
می خوام آیتم هایی که در Checkedlistbox تیک خورده اند Value آنها در TextBox نشون داده به البته بین هر آیتم یک «،» هم گذاشته بشه. ممنون میشم کمکم کنید

[younes221]

سلام میتونین از قطعه کد زیر استفاده کنید :

For Each i In CheckedListBox1.CheckedItems

            Me.Text += i.ToString() + ","

        Next

[mehr_83]

سلام میتونین از قطعه کد زیر استفاده کنید :

For Each i In CheckedListBox1.CheckedItems

            Me.Text += i.ToString() + ","

        Next

ممنون از پاسختون
این کد برای زمانی که آیتم ها بصورت دستی وارد میشن کار می کنه.
من آیتم ها را از دیتابیس می گیرم با این کد

CheckedListBox1.DataSource = Loc1BindingSource

        CheckedListBox1.DisplayMember = "loc1"

        CheckedListBox1.ValueMember = "id2"

ولی اینو بر می گردونه

System.Data.DataRowView,System.Data.DataRowView,Sy  stem.Data.DataRowView,

[mehr_83]

از دوستان کسی راه حلی نداره؟

[zaeimh90]

سلام عزیز.
اینو امتحان کردم کار کرد.
موفق باشی.

TextBox1.Text = ""

For i = 0 To CheckedListBox1.CheckedItems.Count - 1

TextBox1.Text += CheckedListBox1.CheckedItems.Item(i).ToString & " , "

Next

[mehr_83]

این کدها برای وقتی جواب میدن که آیتم ها بصورت دستی وارد بشن. وقتی به دیتابیس وصل میشه این خطا رو میده

View , System.Data.DataRowView , 

و این کدها text آیتم انتخابی رو برمیگردونن. من میخوام value آیتم ها رو بدست بیارم.
بازم ممنون از راهنماییتون

[mehr_83]

با این کد تونستم انجام بدم

For Each itemChecked As Object In CheckedListBox1.CheckedItems

            Dim row As DataRow = TryCast(itemChecked, DataRowView).Row

            Dim id As String = row(0).ToString()

            ' MessageBox.Show(id)

            Me.TextBox1.Text += id.ToString() + ","

        Next

اما مشکل اینه که بعد از آخرین مقدار هم «،» قرار می گیره. اگه بخوام بعد از آخرین مقدار «،» قرار نگیره چه تغییری باید در این کد بدم؟

[amirzandi]

این کاری کن:

Me.TextBox1.Text = Me.TextBox1.Text.Substring(0, Me.TextBox1.Text.Length - 1)

[mehr_83]

از این کد استفاده کردم

TextBox2.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Len(TextBox1.Text) - 1)