[bumb]

السلام عليكم

لدي الكود التالي وهو ينقل المؤشر الى التكست بوكس التالي في حال تمت شروط الانتقال في الكي برس

PHP كود :

Private Sub txtCRN_KeyDown(sender As Object, e As KeyEventArgs) Handles txtCRN.KeyDown
        If e.KeyCode = Keys.Enter Then
            'e.SuppressKeyPress = True
            txtName1.Focus()
        End If
    End Sub 


وهذا هو الكود اللي في الكي برس

PHP كود :

Private Sub txtcrn_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles txtCRN.KeyPress
        If Not IsNumeric(e.KeyChar) And Not e.KeyChar = Chr(Keys.Enter) Then
            e.Handled = True
            Dim Msg As String = "رقم السجل المدني يجب أن يكون عددا صحيحا"
            MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
            txtCRN.Text = ""
            Exit Sub
        End If
        If e.KeyChar = Chr(Keys.Enter) And txtCRN.Text = "" Then
            Dim Msg As String = "يجب عليك ادخال السجل المدني"
            MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
            txtCRN.Focus()
        End If
    End Sub 


تكمن المشكله لما اضيف سطر في الكي داون وذلك لمنع صوت الانتر حيث بعد إضافة السطر ينتقل من دون تطبيق الشروط , والسطر هو

PHP كود :

'e.SuppressKeyPress = True 


ودمتم

[bumb]

ياشباب وينكم

[Adrees]

السلام عليكم
ضع هذا الكود في الحدث key press

كود :

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = ControlChars.Cr Then
            e.Handled = True
        End If

    End Sub

[bumb]

هل اضعه بالإضافة الى الموجود؟ ام ماذا
وياليت لو تشرحه لي

[Adrees]

الكود تضعه اعلى الكود في key press وقم بحذف

كود :

e.SuppressKeyPress = True

[bumb]

المشكله الان ان كل هذا العمل على مفتاح الأنتر ولكن يمكن تجاوز كل ذلك بمفتاح التاب والماوس الا يوجد طريقه لتطبيق ذلك على التاب والماوس

[Adrees]

توجد طريقة للقيام بذلك ان شاء الله تعمل معك
اولا في الحدث validated قم بكتابة الكود التالي والذي سيعمل على التحقق من المدخلات انها اعداد صحيحة وكذلك عدم خلو الحقل

PHP كود :

Private Sub txtCRN_Validated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCRN.Validated
        'كود التحقق من عدم ادخال السجل المدني
        If txtCRN.Text = "" Then

            Dim Msg As String = "يجب عليك ادخال السجل المدني"
            MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
            txtCRN.Focus()
            txtCRN.SelectionStart = 0
            Return
        End If

        'كود التحقق من المدخل عدد صحيح
        If IsNumeric(txtCRN.Text) Then
            Exit Sub
        Else
            Dim Msg As String = "رقم السجل المدني يجب أن يكون عددا صحيحا"
            MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
            txtCRN.Text = ""
            txtCRN.Focus()
            txtCRN.SelectionStart = 0
            Return
            Exit Sub
        End If



    End Sub 


[Adrees]

ثانيا في الحدث key down قم بكتابة كود الضغط على الانتر كالتالي

PHP كود :

If e.KeyCode = Keys.Enter Then

            TextBox4.Focus()
        End If 


[Adrees]

اخيرا في الحدث key press اكتب الكود التالي الذي يمنع صوت الانتر

PHP كود :

'==============لمنع صوت الانتر =================
        If e.KeyChar = ControlChars.Cr Then
            e.Handled = True
        End If
        '=====================================