چک لیست باکس

[yavari]

سلام

یه سمپل میخوام واسه استفاده از چک لیست باکس !

ممنون میشم اگه دوستان دارن ارائه کنن !

[eyes_shut_number1]

دوست عزیز MSDN سمپل های و مثالهای خوبی داره.

[eyes_shut_number1]

امید وارم به درد بخوره

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

CheckedListBox1.Items.Clear()

CheckedListBox1.Items.Add("New Text 1")

CheckedListBox1.Items.Add("New Text 2")

CheckedListBox1.Items.Add("New Text 7")

CheckedListBox1.Items.Add("New Text 4")

CheckedListBox1.Sorted = True

CheckedListBox1.SetItemChecked(1, True)

CheckedListBox1.SetItemChecked(2, True)

CheckedListBox1.SetItemChecked(3, False)

MessageBox.Show(CheckedListBox1.Items.IndexOf("3"))

'Nemidonestam Daghighan Chisho Lazem dARID SHarmande age khstin

'bishtar begam

EndSub

[yavari]

سلام

از MSDN گفتی!
MSDN من فقط هلپ آنلاین داره ، مشکل از چیه ؟

ممنون از توجه تون

[eyes_shut_number1]

سلام دوست عزیز نه !اگه به سبک نوشتن دقت کنید میبینید که برای MSDN نیست خودم نوشتم براتون
راستش نمیدونم.اگه دات نت رو از اون 5 سی دی ها نسب کردی مشکل داره اگرم نه از همون دی وی دی استفاده کن برای نصب مجدد یا ریپیر
با تشکر

[yavari]

سلام

دوست عزیز منظورم از این جمله :

از MSDN گفتی!

این بود که داغم تازه شد که MSDN ام مشکل داره !

ممنون ، تست میکنم خبر میدم !

ممنون از توجه تون

[eyes_shut_number1]

اشتبا

دیدم

[yavari]

سلام

من میخوام اگه تیک آیتمی گذاشته شد یا برعکس دسترسی داشته باشم به آیدی اون ایتم
نمی دونم باید تو چه رویدادی بنویسمش !

    Private Sub Clst_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Clst.SelectedValueChanged

        Dim i As Integer

        For i = 0 To Me.Clst.Items.Count - 1

            If Me.Clst.GetItemChecked(i) = Not Me.Clst.GetItemChecked(i) Then  Me.LstSelect.Items.Add(Me.Clst.ValueMember)

        Next i

    End Sub

اما این جواب نمیده !

ممنون

[yavari]

سلام

ممنون ، حل شد !

[yavari]

سلام

        Dim i As Integer

        Me.LstSelect.Items.Clear()

        For i = 0 To Me.Clst.Items.Count - 1

            If Me.Clst.GetItemChecked(i) = True Then

                Me.LstSelect.Items.Add(Me.LstID.Items(i))

            Else

                Me.LstSelect.Items.Remove(Me.LstID.Items(i))

            End If

        Next i

وقتی این کدم کار میکنه که آیتم دیگه ای سلکت بشه !
چجوری این کارو انجام بدم ؟
ممنون

[eyes_shut_number1]

بیشتر توضیح بده که چیکار میخوای بکنی.اصلا متوجه نشدم

[yavari]

سلام

من میخوام اگه تیک آیتمی گذاشته شد براساس آیدی اون ایتم کار مدنظرمو انجام بدم !
اما بعضی وقتا اون کد بالا جواب نمیده !
یعنی تو اون مورد وقتی جواب میده که آیتم دیگه ای از لیست باکسم سلکت بشه (نه اینکه تیک بخوره ها !)

ممنون از توجه تون

[eyes_shut_number1]

Dim i As Integer

Me.LstSelect.Items.Clear()

For i = 0 To Me.Clst.Items.Count - 1

If Me.Clst.Checkeditems.item(i) = True Then

Me.LstSelect.Items.Add(Me.LstID.Items(i))

Else

Me.LstSelect.Items.Remove(Me.LstID.Items(i))

End If

Next i

[yavari]

سلام

نه متاسفانه !
من اگه پس از تیک زدن یتونم سلکت رو بیارم رو آیتم دیگه مشکلم حله !

ممنون از توجه تون

[eyes_shut_number1]

خوب focus رو بذار روی اون ایتم دیگت خوب!