تقييم الموضوع :
  • 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] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 97 أمس, 09:25 AM
آخر رد: hglogtd
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 45 19-05-17, 04:09 PM
آخر رد: e-coder
  [VB.NET] كيف اضع وقت في هذا الكود e-coder 4 127 18-05-17, 08:07 AM
آخر رد: e-coder
  اين الخطا في هذا الكود rabeh.ram 18 445 16-05-17, 10:48 PM
آخر رد: rabeh.ram
  [كود] طلب الكود للتاريخ الميلادي كتابياُ باسم الشهر الميلادي . محمد مسافر 2 71 11-05-17, 12:42 AM
آخر رد: محمد مسافر
  محتاج مساعدة في اكمال الكود bidaya 7 216 04-05-17, 05:14 PM
آخر رد: bidaya
  [VB.NET] طلب حل مشكلة هذا الكود A-R 3 93 02-05-17, 05:10 PM
آخر رد: A-R
Smile ممكن رسم سهم بهذا الكود abdalamask 16 369 02-05-17, 10:50 AM
آخر رد: silverlight
  [VB.NET] عايز اشغل الكود ده على ال #c MOSTAFA.KAMEL 10 228 02-05-17, 01:27 AM
آخر رد: MOSTAFA.KAMEL
  [VB.NET] طلب حل مشكلة هذا الكود A-R 2 107 25-04-17, 11:04 PM
آخر رد: A-R

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


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