[danti]

(24-01-23, 10:10 AM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

لا تحتاج لعكس العملية ولكن استخدم هذا الكود وأكمله بما يناسب عملك ..

كود :

Sub IsChecked()
   Dim strT As String

   If CH_Jad.Checked Then strT &= CH_Jad.Text + " + "
   If CH_Jada.Checked Then strT &= CH_Jada.Text + " + "
   If CH_Ak.Checked Then strT &= CH_Ak.Text + " + "
   '....
   '....
   '....
   '...
   '..
   '.

   Txt_Pat_Esc.Text = Strings.Left(strT, Len(strT) - 3)
End Sub

Private Sub CH_Jad_CheckedChanged(sender As Object, e As EventArgs) Handles CH_Jad.CheckedChanged
   IsChecked()
End Sub

Private Sub CH_Jada_CheckedChanged(sender As Object, e As EventArgs) Handles CH_Jada.CheckedChanged
   IsChecked()
End Sub

Private Sub CH_Ak_CheckedChanged(sender As Object, e As EventArgs) Handles CH_Ak.CheckedChanged
   IsChecked()
End Sub

هذه الطريقة ممتازة.. حتى أنها تقوم بترتيب الأسماء..

ولكن يظهر خطأ عندما أقوم بإزالة كل علامات الاختيار كي يصبح مربع النص فارغ..

كما في الصورة:

333.jpg - MediaFire

---

(24-01-23, 06:17 PM)Taha Okla كتب : وهذه طريقة مميزة - مقدمة من الأخ والمعلم الأول (OLED) :

طريقة ممتازة جداً.. نفس فكرتك في ردك السابق..
ولكن هذه  الطريقة حتى لو أزلت كل علامات الاختيار كلي يصبح مربع النص فارغ ولا يظهر أي خطأ.

جزاكم الله كل خير ونفع بعلمكم ورفع قدركم.