السلام عليكم اخوتي الكرام في المنتدى
انا عضو قديم في المنتدى لكني لم استطع تسجيل الدخول بحسابي القديم
ولدي سؤال من حضراتكم اخوتي واساتذتي الكرام وهو:
لدي ثلاثه textbox ما اتمناه عليكم هو الاتي
ان يتم ملئ ال textbox1 بعدد مكون من مرتبتين فقط وعند اكمال كتابة العدد ينتقل تلقائيا الى ال textbox2 وعند اكمال اضافة العدد المكون من مرتبتين في ال textbox2 يظهر ناتج جمع العددين في التيكست الاول والثاني في textbox 3
وعذرا للاطالة.
السلام عليكم ورحمة الله وبركاته اخي الكريم
تفضل هذه الاكواد
كود :
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
شكرًا جزيلا استاذ ابراهيم ايبو الله يبارك بيك???
السلام عليكم اخي الكريم
لاشكر على واجب
ماذا لو قمت بالضغط على مفتاح 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
(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 ........
السلام عليكم استاذي الكريم حربف برمجة دمت لنا قدوة ومنارة للعلم تنير دربنا
ماذا وماذا هذه هي البرمجة هو ان يضع المبرمج نفسه بدل المستخدم العادي
لان المبرمج بطبيعته بعرف كبف يتعامل مع برنامجه اما المستخدم فلبست معرفته بالبرنامج كالمبرمج
منكم يااساتذتنا الكرام نتعلم كل يوم ومن ليس عنده كبير ماعنده تدبير
لك كل الود والاحترام
تسلم اخي إبراهيم ممكن تستفيد مني بمعلومة وممكن استفيد منك بعشرة .
المعرفة ليست لشخص واحد ..
والعلم بحر
بالتوفيق للجميع
الحمد لله والشكر لله
ثم الشكر لهذا المنتدى الرائع واعضائه الكرام
خلية نحل ماشاء الله الكل ينبري للمساعدة والعمل والمشاركة بالمعلومة والنصيحة والمشورة
وكل الشكر لاي عضو يقوم بالسؤال لان لولا السؤال مانتج هذا الحوار العلمي والاجتماعي الراقي