چک لیست باکس

[yavari]

سلام

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

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

[eyes_shut_number1]

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

[eyes_shut_number1]

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


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.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
End Sub

[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 رو بذار روی اون ایتم دیگت خوب!