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

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

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

For Each i In CheckedListBox1.CheckedItems

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

        Next

نقل قول:

---

نوشته شده توسط younes221

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

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,

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

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

TextBox1.Text = ""

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

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

Next

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

View , System.Data.DataRowView , 

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

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

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

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

این کاری کن:

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

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

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