تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] التنقل بين الراديو بوتون
#1
Rainbow 
سلام عليكم

اخواني مشروعي هو تعرفة اتصالات والمشروع جاهز ولكن هناك مشكلة او كود ناقص من حيث انة لايتم التغيير مابين RadioButton1 وكذلك الـ RadioButton2


بحيث يتم التبديل والتغيير عند اختيار الدولة مثلاً نجد ان البوتون واحد الذي هو الدفع مسبق شغال تمام , ولكن عند تحديد البوتون 2 الذي هو الفواتير واختيار الدولة نجد ان القيم لا تتغير في التاكس بوكس المشكلة باختصار زملائي لايوجد تبديل بين البوتون 1 والبوتون 2 من والى ارجوء كتابة الكود الناقص ولكم خالص الشكر والتقدير والله لا يضيع اجر من احسن عملا.


الملفات المرفقة
.rar   التعرفة.rar (الحجم : 130.14 ك ب / التحميلات : 48)
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

أخي الكريم
أولا :-
عند وضع الكود يجب أختيار الحدث المناسب للكود

انت كتبت الكود في حدث Click حق الراديو بوتن يوجد حدث أكثر دقه وهو CheckedChanged
وهذا الحدث يعني عند حصول تغيير في الاختيار إي انك إذا اخترت " الدفع المسبق " وبعده قمت بأختيار " الفواتير " هنا حدث تغيير في الاختيار يقوم بتنفيذ الامر

ثانيا :-
يوجد طريقه سهله لأختصار الكود بدلا ما تقوم بكتبة الكود في الليست بوكس ومن ثم إعادة كتابته في الراديو بوكس
تستطيع إن شاء إجراء ووضع الكود هناك ومن ثم تستدعي الإجراء من كل مكان فمثلا
أريد أضافة هذا الكود في التكس بوكس الاول و الثاني
PHP كود :
TextBox1.Text "محمد"
TextBox2.Text "20" 

واريد هذا الكود يتنفذ في اكثر من مكان اقوم بإنشاء إجراء بإي اسم اريده وليكن " LoadText "
PHP كود :
Sub LoadText()

End Sub 

هذا هو الإجراء الان سأضيف له الكود
PHP كود :
Sub LoadText()

TextBox1.Text "محمد"
TextBox2.Text "20"

End Sub 

الان استطيع منادات هذا الإجراء من إي حدث اريد
وهذا كود نداء الإجراء

PHP كود :
Call LoadText() 
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.ObjectByVal e As System.EventArgsHandles ComboBox2.SelectedIndexChanged
        Call LoadText
()
    
End Sub

    
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles RadioButton1.CheckedChanged
        Call LoadText
()
    
End Sub

    
Private Sub RadioButton2_CheckedChanged(sender As System.ObjectAs System.EventArgsHandles RadioButton2.CheckedChanged
        Call LoadText
()
    
End Sub 

رابعا:- المشروع بعد التعديل في المرفق


الملفات المرفقة
.rar   التجوال الدولي.rar (الحجم : 127.88 ك ب / التحميلات : 61)
الرد }}}}
تم الشكر بواسطة: محمد مسافر , vbnet
#3
الشكر الكثير لك فعلاً انت لك دور كبير في مساعدة الاخرين فلك جزيل الشكر والامتنان وبالفعل مكسب للمنتدى وللاخرين
الرد }}}}
تم الشكر بواسطة: vbnet , Easy4ever


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التنقل بين الصفوف في الداتا جريد فيو makky 2 132 27-10-16, 07:17 PM
آخر رد: makky
  [VB.NET] استفسار عن التنقل بين قيود قاعدة البيانات nasser_asoor 2 198 03-05-16, 02:35 AM
آخر رد: سعود
  التنقل بالانتر داخل الداتا جريد فيو فارس احمد السيد 5 348 21-03-16, 01:46 PM
آخر رد: mazen.excel
Lightbulb كيفية التنقل بزر enter حسانين عزمي 3 591 20-02-16, 11:52 AM
آخر رد: عدنان الشمري
  [سؤال] التنقل بين الصور المصغرات باستخدام اداه axImgadmin مجاهد نصر 6 818 17-09-15, 05:16 PM
آخر رد: مجاهد نصر
  [عنوان معدل] التنقل بين الادوات باستخدام الكيبورد محمد 2 601 10-07-15, 04:47 AM
آخر رد: mohammed moh
  [كود] التنقل بين الدول في الكمبو بوكس ليعطيني النتائج مباشرة محمد مسافر 5 907 05-02-15, 05:51 PM
آخر رد: سعود
  [كود] كود استدعاء الآلة الحاسبة الخاصة بالويندوز في زر بوتون أبو يزن 5 2,217 16-04-14, 10:35 AM
آخر رد: kslawy
  [سؤال] حدث بوتون شرط العزابي 1 468 22-02-14, 07:09 PM
آخر رد: Genius Live
  [VB.NET] طريقة الربط بين الكمبوبوكس والرديو بوتون محمد مسافر 5 877 04-12-13, 08:17 PM
آخر رد: Easy4ever

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم