checkListBox

السلام علكم ورحمه الله وبركاته

اختي حسب معرفتي لايمكن هذا لأن العناصر عبر عن نصوص ولكن دفعني الامر ان احل المشكلة بطريقة اخرى وذلك بانشاء مجموعة من الـ CheckBox ضمن الاداة Panel وضبط الخلفية للون الابيض والخاصية AutoScroll الى True, جربي الكود التالي

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    	For i As Integer = 1 To 10
        	AddItem("Item " & i)
    	Next
	End Sub

	Sub AddItem(Text As String)
    	Dim chk As New CheckBox()
    	chk.Text = Text
    	chk.ForeColor = Color.FromArgb(Rnd() * 255, Rnd() * 255, Rnd() * 255)
    	If Panel1.Controls.Count > 0 Then
        	chk.Top = Panel1.Controls(Panel1.Controls.Count - 1).Top + chk.Height
    	End If
    	Panel1.Controls.Add(chk)
	End Sub

ولمعرفة العناصر المختارة جربي الكود التالي

    	For Each chk As CheckBox In Panel1.Controls
        	If chk.Checked Then
            	MessageBox.Show(chk.Text)
        	End If
    	Next

السلام عليكم ورحمة الله وبركاته

أختي الكريمة بالإمكان استخدام أداة ListView بدلاً من checkListBox لأنها ستعطيك الخصائص التي تريدينها بسهولة

مقالة] شرح تفصيلي لأداة ال ListView وكيفية استخدامها

وفقك الله

السلام عليكم ورحمه الله وبركاته

اخي مقالك يوضح استخدام اداة الـ ListView ولكن لم تتطرق لكيفية عمل CheckBox كما هو مطلوب في السؤال؟!!

السلام عليكم

ما شاء الله : ردود حلوة و جميلة و ما كانت تخطر ببالي

شكرا لكم جميعاً

و سأستفيد بإذن الله منها

شكرا

السلام عليكم ورحمة الله وبركاته

أختي الكريمة المثال في المرفقات باستخدام أداة الـ ListView

VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

اخي مقالك يوضح استخدام اداة الـ ListView ولكن لم تتطرق لكيفية عمل CheckBox كما هو مطلوب في السؤال؟!!

صحيح أخي فأنا لم أتطرق له بشكل تفصليلي .. وإن شاء الله المثال في المشاركة يوضح ما كنت أقصده

وفقنا وإياكم الله

WindowsApplication1.rar