وعليكم السلام ورحمة الله وبركاته
أخي الكريم
أولا :-
عند وضع الكود يجب أختيار الحدث المناسب للكود
انت كتبت الكود في حدث Click حق الراديو بوتن يوجد حدث أكثر دقه وهو CheckedChanged
وهذا الحدث يعني عند حصول تغيير في الاختيار إي انك إذا اخترت " الدفع المسبق " وبعده قمت بأختيار " الفواتير " هنا حدث تغيير في الاختيار يقوم بتنفيذ الامر
ثانيا :-
يوجد طريقه سهله لأختصار الكود بدلا ما تقوم بكتبة الكود في الليست بوكس ومن ثم إعادة كتابته في الراديو بوكس
تستطيع إن شاء إجراء ووضع الكود هناك ومن ثم تستدعي الإجراء من كل مكان فمثلا
أريد أضافة هذا الكود في التكس بوكس الاول و الثاني
PHP كود :
TextBox1.Text = "محمد"
TextBox2.Text = "20"
واريد هذا الكود يتنفذ في اكثر من مكان اقوم بإنشاء إجراء بإي اسم اريده وليكن " LoadText "
هذا هو الإجراء الان سأضيف له الكود
PHP كود :
Sub LoadText()
TextBox1.Text = "محمد"
TextBox2.Text = "20"
End Sub
الان استطيع منادات هذا الإجراء من إي حدث اريد
وهذا كود نداء الإجراء
Call واسم الإجراء
بكذا اختصرت أكواد كثيره بدل ما تعيدها
طبقت هذا الشيء في مثالك وقمت بعديله
ثالثا :-
في كودك التالي
PHP كود :
If ComboBox2.Text = "Saudi Telecom Company (STC)" Then
TextBox1.Text = "9.00"
TextBox2.Text = "25.02"
TextBox3.Text = "51.12"
TextBox4.Text = "100.10"
TextBox5.Text = "286.00"
TextBox6.Text = "143.00"
TextBox7.Text = "11.44"
TextBox8.Text = "0.00"
ElseIf ComboBox2.Text = "Saudi GlobalStar" Then
TextBox1.Text = "20.78"
TextBox2.Text = "17.45"
TextBox3.Text = "23.67"
TextBox4.Text = "0.00"
TextBox5.Text = "0.00"
TextBox6.Text = "0.00"
TextBox7.Text = "0.00"
TextBox8.Text = "0.00"
End If
قمت بتخيره من جانب واحد لما لا تقوم بتخيره من جانبين لتشمل جميع الإحتمالات
يعني أجعل الكود كتالي
PHP كود :
If ComboBox2.Text = "Saudi Telecom Company (STC)" Then
If RadioButton1.Checked = True Then
TextBox1.Text = "9.00"
TextBox2.Text = "25.02"
TextBox3.Text = "51.12"
TextBox4.Text = "100.10"
TextBox5.Text = "286.00"
TextBox6.Text = "143.00"
TextBox7.Text = "11.44"
TextBox8.Text = "0.00"
Else
TextBox1.Text = "0.41"
TextBox2.Text = "1.05"
TextBox3.Text = "2.14"
TextBox4.Text = "4.19"
TextBox5.Text = "11.96"
TextBox6.Text = "5.98"
TextBox7.Text = "0.48"
TextBox8.Text = "0"
End If
ElseIf ComboBox2.Text = "Saudi GlobalStar" Then
If RadioButton1.Checked = True Then
TextBox1.Text = "20.78"
TextBox2.Text = "17.45"
TextBox3.Text = "23.67"
TextBox4.Text = "0.00"
TextBox5.Text = "0.00"
TextBox6.Text = "0.00"
TextBox7.Text = "0.00"
TextBox8.Text = "0.00"
Else
TextBox1.Text = "0.94"
TextBox2.Text = "0.73"
TextBox3.Text = "0.99"
TextBox4.Text = "0.00"
TextBox5.Text = "0.00"
TextBox6.Text = "0.00"
TextBox7.Text = "0.00"
TextBox8.Text = "0"
End If
End If
لو لاحظت بتلقى تم إضافة هذا الكود
PHP كود :
If RadioButton1.Checked = True Then
ومن ثم وضع قيم الفاتورة
في هذا الكود يقوم بسأل هل هو مسبق الدفع إذا كان نعم يقوم بأخذ معلومات مسبق الدفع خلاف هذا يأخذ معلومات الفاتوره
بكذا بتشمل كل شيء بدون إي مشاكل
وإجعل الكود بإجراء مستقل مثل ما وضحت لك في النقطه الثانيه
وقم بستدعائها في الاحداث التالي
PHP كود :
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Call LoadText()
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Call LoadText()
End Sub
Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged
Call LoadText()
End Sub
رابعا:- المشروع بعد التعديل في المرفق