منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

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

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 

ودمتم

ياشباب وينكم

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

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

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

كود :

e.SuppressKeyPress = True

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

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

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

PHP كود :

If e.KeyCode = Keys.Enter Then

            TextBox4.Focus()
        End If 

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

PHP كود :

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

bumb

bumb

Adrees

bumb

Adrees

bumb

Adrees

Adrees

Adrees