[asemshahen5]

ضع على فورم جديد اربع ازرار و ليست تشك بوكس و ريتش تكست بوكس و ضع الاكواد التالية :

PHP كود :

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        For i As Integer = 0 To CheckedListBox1.Items.Count - 1
            If CheckedListBox1.GetItemChecked(i) = True Then
                RichTextBox1.AppendText(CheckedListBox1.Items(i).ToString & " : " & CheckedListBox1.GetItemChecked(i) & vbNewLine)
            Else
                RichTextBox1.AppendText(CheckedListBox1.Items(i).ToString & " : " & CheckedListBox1.GetItemChecked(i) & vbNewLine)
            End If
        Next
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        For i As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
            RichTextBox1.AppendText(CheckedListBox1.CheckedItems(i).ToString & " : " & True & vbNewLine)
        Next
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Arr As New ArrayList
        Arr.Clear()
        Arr.AddRange(CheckedListBox1.CheckedItems)
        For i = 0 To Arr.Count - 1
            RichTextBox1.Text &= Arr(i) & vbNewLine
        Next
    End Sub
    Private Sub CHKb(ByVal Key As Boolean)
        For i As Integer = 0 To CheckedListBox1.Items.Count - 1
            CheckedListBox1.SetItemChecked(i, Key)
        Next
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If Button4.Text = "Select All" Then
            CHKb(True)
            Button4.Text = "Deselect All"
        Else
            CHKb(False)
            Button4.Text = "Select All"
        End If
    End Sub 


مع أطيب تمنياتي لك بالتوفيق .