تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] الكود لا يعمل
#1
السلام عليكم

لدي الكود التالي وهو ينقل المؤشر الى التكست بوكس التالي في حال تمت شروط الانتقال في الكي برس
PHP كود :
Private Sub txtCRN_KeyDown(sender As ObjectAs KeyEventArgsHandles 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 ObjectByVal e As KeyPressEventArgsHandles txtCRN.KeyPress
        
If Not IsNumeric(e.KeyChar) And Not e.KeyChar Chr(Keys.EnterThen
            e
.Handled True
            Dim Msg 
As String "رقم السجل المدني يجب أن يكون عددا صحيحا"
            
MsgBox(MsgvbCritical vbMsgBoxRight vbMsgBoxRtlReading"نظام مواعيد الأعلاف")
            
txtCRN.Text ""
            
Exit Sub
        End 
If
        If 
e.KeyChar Chr(Keys.Enter) And txtCRN.Text "" Then
            Dim Msg 
As String "يجب عليك ادخال السجل المدني"
            
MsgBox(MsgvbCritical vbMsgBoxRight vbMsgBoxRtlReading"نظام مواعيد الأعلاف")
            
txtCRN.Focus()
        
End If
    
End Sub 
تكمن المشكله لما اضيف سطر في الكي داون وذلك لمنع صوت الانتر حيث بعد إضافة السطر ينتقل من دون تطبيق الشروط , والسطر هو
PHP كود :
'e.SuppressKeyPress = True 

ودمتم
الرد }}}}
تم الشكر بواسطة:
#2
ياشباب وينكم
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم
ضع هذا الكود في الحدث 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
الرد }}}}
تم الشكر بواسطة: abulayth
#4
هل اضعه بالإضافة الى الموجود؟ ام ماذا
وياليت لو تشرحه لي
الرد }}}}
تم الشكر بواسطة:
#5
الكود تضعه اعلى الكود في key press وقم بحذف
كود :
e.SuppressKeyPress = True
الرد }}}}
تم الشكر بواسطة:
#6
المشكله الان ان كل هذا العمل على مفتاح الأنتر ولكن يمكن تجاوز كل ذلك بمفتاح التاب والماوس الا يوجد طريقه لتطبيق ذلك على التاب والماوس
الرد }}}}
تم الشكر بواسطة:
#7
توجد طريقة للقيام بذلك ان شاء الله تعمل معك
اولا في الحدث validated قم بكتابة الكود التالي والذي سيعمل على التحقق من المدخلات انها اعداد صحيحة وكذلك عدم خلو الحقل
PHP كود :
Private Sub txtCRN_Validated(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.TextThen
            
Exit Sub
        
Else
            
Dim Msg As String "رقم السجل المدني يجب أن يكون عددا صحيحا"
            
MsgBox(MsgvbCritical vbMsgBoxRight vbMsgBoxRtlReading"نظام مواعيد الأعلاف")
            
txtCRN.Text ""
            
txtCRN.Focus()
            
txtCRN.SelectionStart 0
            
Return
            Exit 
Sub
        End 
If



    
End Sub 
الرد }}}}
تم الشكر بواسطة:
#8
ثانيا في الحدث key down قم بكتابة كود الضغط على الانتر كالتالي
PHP كود :
If e.KeyCode Keys.Enter Then

            TextBox4
.Focus()
        
End If 
الرد }}}}
تم الشكر بواسطة:
#9
اخيرا في الحدث key press اكتب الكود التالي الذي يمنع صوت الانتر
PHP كود :
'==============لمنع صوت الانتر =================
        If e.KeyChar = ControlChars.Cr Then
            e.Handled = True
        End If
        '
===================================== 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حل مشكلة الكود الاتي - سهل- CLARO 3 75 02-12-16, 04:06 PM
آخر رد: ali.alfoly
  ما هو الخطاء فى هذا الكود "كود التعديل" السيد الجوهري 1 62 26-11-16, 03:22 AM
آخر رد: أبو عمر
  [VB.NET] ربط الداتا بيز بالكريستال ريبورت عن طريق الكود thevirus 3 93 22-11-16, 02:38 PM
آخر رد: thevirus
  جعل مفتاح انتر يعمل عمل مفتاح تاب مع الداتا جريد فيو cvcvcv 7 1,897 15-11-16, 09:00 PM
آخر رد: samnaj00
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 189 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [سؤال] هل يمكن عرض عناصر الكومبوبوكس عن طريق الكود ؟؟؟؟؟؟؟؟؟؟؟؟ thevirus 1 96 10-11-16, 06:25 PM
آخر رد: أبو عمر
Rainbow [نقاش] [VB.NET] جعل المشروع يعمل تلقائي nabil-maher 4 154 05-11-16, 02:32 AM
آخر رد: الماجيك مسعد
  كيف اضيف هذا الكود في module nabil.1710 6 122 01-11-16, 03:23 PM
آخر رد: silverlight
  كيف انقل هذا الكود منForm2 اليForm1 3asfa~mdmra 2 72 30-10-16, 01:47 PM
آخر رد: 3asfa~mdmra
  ممكن شرح هذا الكود؟ rafaag777 0 69 26-10-16, 10:18 AM
آخر رد: rafaag777

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم