05-06-23, 12:35 PM
واجهتني مشكلة في الكود المستعمل
Dim c As CheckBox = DirectCast(sender, CheckBox)
If (c.Checked = True And lst.Contains(c.Text & " - ") = False) Then
lst.Add(c.Text & "- ")
ElseIf (c.Checked = False And lst.Contains(c.Text & " - ") = True) Then
lst.Remove(c.Text & " ")
End If
Txtdetails.Text = "Controls Count: " & GroupPanel2.Controls.Count & " | " & lst.Count
Txtdetails.Clear()
For Each h As String In lst
If Txtdetails.Text.Contains(h) = False Then
Txtdetails.AppendText(h)
End If
Next
بعد تفريغ الحقل الذي يحتوى البيانات من محتوياته فانه يحتفظ بالبيانات اريد تفريغ الذاكرة من البيانات لبدء العمل بسجل جديد
Dim c As CheckBox = DirectCast(sender, CheckBox)
If (c.Checked = True And lst.Contains(c.Text & " - ") = False) Then
lst.Add(c.Text & "- ")
ElseIf (c.Checked = False And lst.Contains(c.Text & " - ") = True) Then
lst.Remove(c.Text & " ")
End If
Txtdetails.Text = "Controls Count: " & GroupPanel2.Controls.Count & " | " & lst.Count
Txtdetails.Clear()
For Each h As String In lst
If Txtdetails.Text.Contains(h) = False Then
Txtdetails.AppendText(h)
End If
Next
بعد تفريغ الحقل الذي يحتوى البيانات من محتوياته فانه يحتفظ بالبيانات اريد تفريغ الذاكرة من البيانات لبدء العمل بسجل جديد
