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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سورس كود الارسال الى الواتس -يعمل يرجي التعاون للتطوير new_programer 5 224 03-03-24, 08:45 PM
آخر رد: new_programer
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
Exclamation [VB.NET] من يقدر يعمل لي استعلام يحقق طلبي ؟ أبو خالد الشكري 5 417 09-11-23, 02:25 PM
آخر رد: أبو خالد الشكري
Smile تطبيقي يعمل تمام على ويندوز 10 قبل تحديث الوندوز وبعد التحديث لا يعمل رمضان محمد 2 382 31-10-23, 01:50 PM
آخر رد: رمضان محمد
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer

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


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