تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال بخصوص اعدادات textbox
#1
Lightbulb 
السلام عليكم اخوتي الكرام في المنتدى

انا عضو قديم في المنتدى لكني لم استطع تسجيل الدخول بحسابي القديم

ولدي سؤال من حضراتكم اخوتي واساتذتي الكرام وهو:

لدي ثلاثه textbox ما اتمناه عليكم هو الاتي

ان يتم ملئ ال textbox1 بعدد مكون من مرتبتين فقط وعند اكمال كتابة العدد ينتقل تلقائيا الى ال textbox2 وعند اكمال اضافة العدد المكون من مرتبتين في ال textbox2 يظهر ناتج جمع العددين في التيكست الاول والثاني في textbox 3

وعذرا للاطالة.
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته اخي الكريم
 تفضل هذه الاكواد
كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       If TextBox1.Text.Length = 2 Then
           TextBox2.Focus()
       End If
   End Sub

   Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
       If TextBox2.Text.Length = 2 Then
           TextBox3.Focus()
           TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
       End If
   End Sub
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#3
شكرًا جزيلا استاذ ابراهيم ايبو الله يبارك بيك???
الرد }}}
تم الشكر بواسطة: elgokr , ابراهيم ايبو , محمد كريّم
#4
السلام عليكم اخي الكريم 
لاشكر على واجب
ماذا لو قمت بالضغط على مفتاح Space او كتبت احرف بدل الارقام بالخطأ
بالتأكيد سينتج خطأ بالبرنامج ولتلافي هذا الخطأ اضف هذا الكود

كود :
   Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress
       Select Case e.KeyChar
           Case "0" To "9", ".", ControlChars.Back
               e.Handled = False
               If TextBox1.Text = "0" Then
                   TextBox1.Text = "0"
               ElseIf TextBox2.Text = "0" Then
                   TextBox2.Text = "0"
               End If
           Case Else
               e.Handled = True
       End Select
   End Sub
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#5
(08-03-19, 10:52 PM)ابراهيم ايبو كتب :
السلام عليكم اخي الكريم 
لاشكر على واجب
ماذا لو قمت بالضغط على مفتاح Space او كتبت احرف بدل الارقام بالخطأ
بالتأكيد سينتج خطأ بالبرنامج ولتلافي هذا الخطأ اضف هذا الكود

كود :
   Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress
       Select Case e.KeyChar
           Case "0" To "9", ".", ControlChars.Back
               e.Handled = False
               If TextBox1.Text = "0" Then
                   TextBox1.Text = "0"
               ElseIf TextBox2.Text = "0" Then
                   TextBox2.Text = "0"
               End If
           Case Else
               e.Handled = True
       End Select
   End Sub

احسنت اخي إبراهيم ايبو

هو كذا المبرمج يتخيل أشياء ربما تحصل وربما لا تحصل ،، وعلى المبرمج حلها قبل حصولها وهو الأفضل ...

ولكن ماذا لو قام المستخدم بنسخ عدد اربعه ارقام ولصقها في التكست بوكس ؟؟؟؟؟؟

أتوقع إضافة شرط 2 < قبل تنفيذ كودك لحكر الموضوع 


كود :
If TextBox1.Text.Length >  2 TextBox1.Text = "" : Exit Sub

ثم وضع كودك ،،


If TextBox1.Text.Length = 2 Then ........
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
#6
السلام عليكم  استاذي الكريم حربف برمجة دمت لنا قدوة ومنارة للعلم تنير دربنا
ماذا وماذا هذه هي البرمجة هو ان يضع المبرمج نفسه بدل المستخدم العادي
لان المبرمج بطبيعته بعرف كبف يتعامل مع برنامجه اما المستخدم فلبست معرفته بالبرنامج كالمبرمج
منكم يااساتذتنا الكرام نتعلم كل يوم ومن ليس عنده كبير ماعنده تدبير 
لك كل الود والاحترام
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#7
تسلم اخي إبراهيم ممكن تستفيد مني بمعلومة وممكن استفيد منك بعشرة .

المعرفة ليست لشخص واحد ..

والعلم بحر

بالتوفيق للجميع
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة: haider kh , ابراهيم ايبو , اباذر , اباذر
#8
الاستاذين الرائعين [b]ابراهيم ايبو[/b] و [b]حريف برمجة [/b]
شكرا جزيلا لكما بارك الله بجهدكم المتواصل لافادة اخوتكم مبتدئي البرمجة
زادكم الله من علمة وجعل عملكم هذا في ميزان حسناتكم
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#9
الحمد لله والشكر لله
ثم الشكر لهذا المنتدى الرائع واعضائه الكرام
خلية نحل ماشاء الله الكل ينبري للمساعدة والعمل والمشاركة بالمعلومة والنصيحة والمشورة 

وكل الشكر لاي عضو يقوم بالسؤال لان لولا السؤال مانتج هذا الحوار العلمي والاجتماعي الراقي 
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: haider kh , اباذر



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


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