[كود] الكود لا يعمل - نسخة قابلة للطباعة

[كود] الكود لا يعمل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] الكود لا يعمل (/showthread.php?tid=2454)

الكود لا يعمل - bumb - 04-04-14

السلام عليكم

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

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 

ودمتم

RE: الكود لا يعمل - bumb - 04-04-14

ياشباب وينكم

RE: الكود لا يعمل - Adrees - 04-04-14

السلام عليكم
ضع هذا الكود في الحدث 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

RE: الكود لا يعمل - bumb - 04-04-14

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

RE: الكود لا يعمل - Adrees - 04-04-14

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

كود :

e.SuppressKeyPress = True

RE: الكود لا يعمل - bumb - 04-04-14

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

RE: الكود لا يعمل - Adrees - 05-04-14

توجد طريقة للقيام بذلك ان شاء الله تعمل معك
اولا في الحدث 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 

RE: الكود لا يعمل - Adrees - 05-04-14

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

PHP كود :

If e.KeyCode = Keys.Enter Then

            TextBox4.Focus()
        End If 

RE: الكود لا يعمل - Adrees - 05-04-14

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

PHP كود :

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