checkListBox

[flawer 3]

أخوتي الأعزاء

هل أستطيع تلوين عدة أسطر في checkListBox

شكرا لكم

[VB Helper 751]

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

اختي حسب معرفتي لايمكن هذا لأن العناصر عبر عن نصوص ولكن دفعني الامر ان احل المشكلة بطريقة اخرى وذلك بانشاء مجموعة من الـ 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

[Sniper.ps 17]

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

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

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

وفقك الله

[VB Helper 751]

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

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

[flawer 3]

السلام عليكم

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

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

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

شكرا

[Sniper.ps 17]

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

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

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

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

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

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

WindowsApplication1.rar

تم تعديل 28 Nov 2011 بواسطه Sniper.ps