تقييم الموضوع :
  • 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
        '
===================================== 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ممكن حل مشكلة الكود MOSTAFA.KAMEL 1 68 أمس, 09:37 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] ما هو الخطأ في الكود التالي .. أرجو المساعدة abo_alaa315 0 30 أمس, 02:27 PM
آخر رد: abo_alaa315
  [VB.NET] يرجى التعديل على الكود dubai.eig 4 78 18-01-17, 05:25 PM
آخر رد: dubai.eig
  اريد تحول الكود لفيجوال 2008 abudawoodd 6 179 15-01-17, 02:11 PM
آخر رد: abudawoodd
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 417 04-01-17, 01:12 AM
آخر رد: Namer
  [VB.NET] هل الكود هذا صحيح dubai.eig 10 217 01-01-17, 10:15 PM
آخر رد: مساعدة
  اين اكتب هذا الكود anis_derna 3 140 28-12-16, 12:18 PM
آخر رد: thevirus
  تصحيح الكود الاتي CLARO 2 64 23-12-16, 02:12 PM
آخر رد: CLARO
  [سؤال] كيف اعمل برنامج يعمل في الخفاء ddemed 17 439 21-12-16, 12:39 PM
آخر رد: Basil Abdallah
  شرح الكود و الادوات المستخدمة anis_derna 1 88 20-12-16, 06:40 AM
آخر رد: silverlight

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


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