07-01-20, 12:32 PM
08-01-20, 11:41 AM
ضع على فورم جديد اربع ازرار و ليست تشك بوكس و ريتش تكست بوكس و ضع الاكواد التالية :
مع أطيب تمنياتي لك بالتوفيق .
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
08-01-20, 11:39 PM
واو ربي لايوريك مكروه ويحفظك وينصرك على الباطل
المطلوب حق الزر الأول
320 تقييم لايكفي
الكود حق الزر الأول أريد إظهار الغير مختار
وجدت الحل
المطلوب حق الزر الأول
320 تقييم لايكفي
الكود حق الزر الأول أريد إظهار الغير مختار
وجدت الحل
كود :
For i As Integer = 0 To CheckedListBox1.Items.Count - 1
If CheckedListBox1.GetItemChecked(i) = False Then
RichTextBox1.AppendText(CheckedListBox1.Items(i).ToString & vbNewLine)
End If
Next