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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احتاج الكود المناسب لاغلاق فورم وفتح فورم آخر Abdelazez.Ahmad 2 36 أمس, 10:14 AM
آخر رد: ابو روضة
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 5 797 18-09-17, 03:40 PM
آخر رد: رمضان محمد
  [VB.NET] التعديل على الكود ليتناسق ما اريده 0theghost0 4 96 17-09-17, 03:35 PM
آخر رد: 0theghost0
  [VB.NET] شباب الفزعة من فضلكم الكود سابقا شغال من يومين والحين مايشتغل 0theghost0 9 189 15-09-17, 04:38 PM
آخر رد: 0theghost0
  [VB.NET] هل هناك كود افضل من هذا الكود ضغط القاعدة البيانات 0theghost0 0 49 11-09-17, 12:58 PM
آخر رد: 0theghost0
  كيف اجعل البرنامج ينفذ الكود الى فى الtextbox aliomar333 0 56 09-09-17, 10:44 PM
آخر رد: aliomar333
  [VB.NET] تصحيح الكود لو سمحتم 0theghost0 4 125 30-08-17, 12:06 PM
آخر رد: 0theghost0
  طريقة جعل زر Enter يعمل عمل زر Tab lkaam 1 194 22-08-17, 03:37 PM
آخر رد: نبيل كونكت
  [VB.NET] هل كود : Windows Forms Application يعمل على ASP.NET web application ، والعكس AbdullahProg 1 59 22-08-17, 02:45 PM
آخر رد: حريف برمجة
  [سؤال] مشكلة مغلبانى جدا من فترة مع هذا الكود Do While ابو روضة 14 446 19-08-17, 01:31 AM
آخر رد: ابو روضة

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


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