[سعود]

(25-01-23, 02:58 AM)danti كتب :

(24-01-23, 10:56 PM)سعود كتب : احببت مشاركتكم بهذا الكود القديم.

PHP كود :

 Private Sub chk(ByRef c As CheckBox)
        If c.Checked = True Then
            If TextBox1.Text.Contains(c.Text & " + ") = False Then
                TextBox1.AppendText(c.Text & " + ")
            End If
        ElseIf c.Checked = False Then
            If TextBox1.Text.Contains(c.Text & " + ") = True Then
                TextBox1.Text = TextBox1.Text.Replace(c.Text & " + ", String.Empty)
            End If
        End If
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox4.CheckedChanged, CheckBox3.CheckedChanged, CheckBox2.CheckedChanged, CheckBox1.CheckedChanged
        chk(sender)
    End Sub 


فعلاً الكود يعمل وبشكل ممتاز..

لكن لاحظت أن طريقة الأخ (OLED) أكثر ملائمة.. حيث أنه لا تظهر علامة ( + ) في نهاية السطر..

شكراً جزيلاً لك.. وجزاك الله خيراً على المشاركة المفيدة.

العفو اخي الكريم مشكلة الرمز حلها بسيط باضافة تحقق.