حدث enter

السلام عليكم

بالنسبة لطلبك الأول كالتالي:

إختر الحدث key press للtextbox1 لتنتج الدالة التالية

 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

    End Sub

ضع الكود التالي

            If e.KeyChar = Microsoft.VisualBasic.ChrW(13) Then
            TextBox1.Text += 1
            TextBox2.Text += 1
        End If

ولا تنسى وضع قيم رقمية في مربعات النصوص

وفقك الله

EnterKey.zip

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

شكرا جزيلا . اعذرني فالفجول بيسك جديده علي

لا زلت اريد منع ادخال الحروف ( فعملية الاستثناءات ممله بعض الشيء)

ثانيا انا لم افهم هذا الشرط If e.KeyChar = Microsoft.VisualBasic.ChrW(13) Then ولم اعرف الهدف منه

وشكرا,,

بالنسبة للكود الاول فهو كالتالي

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Char.IsDigit(e.KeyChar) = False Then
            If e.KeyChar = Microsoft.VisualBasic.ChrW(13) Then
                TextBox1.Text += 1
                TextBox2.Text += 1
            Else
                e.Handled = True
            End If
        End If
    End Sub

كما تري يتم كتابته في الحدث Keypress الخاص بال TextBox الاول

يتم اختبار اذا كان المفتاح المضغوط رقم ام لا اذا كان رقم فانه يضاف لمربع النص اذا كان غير ذلك فانه يختبر كونه مفتاح الادخال Enter اذا كان كذلك يزيد القيمة الموجودة في مربعي النص بقيمة واحد و اذا كان غير ذلك فانه يتجاهل الحدث

بالنسبة للكود الثاني انا كنت كتبته في قسم #C ابحث عنه هناك و ان شاء الله تجده و تحوله بسهولة الى VB

اعذروني لو ثقلت عليكم

عجزت من منع ادخال رقم 6 و 5 في textBox

ارجوا منكم المساعدة

لمنع ادخال الرقمين 5 و 6 تكتب هذا الكود في الحدث Keypress الخاص بمربع النص

هذا الكود يسمح بادخال أي شئ عدا الرقمين 5 و 6

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(53) Or e.KeyChar = Microsoft.VisualBasic.ChrW(54) Then
            e.Handled = True
        End If
    End Sub

و هذا الكود لا يسمح الا بكتابة الارقام عدا الرقمين 5 و 6

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Char.IsNumber(e.KeyChar) Then
            If e.KeyChar = Microsoft.VisualBasic.ChrW(53) Or e.KeyChar = Microsoft.VisualBasic.ChrW(54) Then
                e.Handled = True
            End If
        Else
            e.Handled = True
        End If
    End Sub

شكرا اخي