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

في الكود التالي خطأ في النتيجه حيث ينتج عنه ظهور المسج بوكس عند الضغط على أي مفتاح بما فيها الأرقام

PHP كود :
Private Sub txtCRN_KeyPress(sender As ObjectAs KeyPressEventArgsHandles txtCRN.KeyPress
        
If Not IsNumeric(e.KeyCharThen
            e
.Handled True
        
Else
            
Dim Msg As String "رقم السجل المدني يجب أن يكون عددا صحيحا"
            
MsgBox(MsgvbCritical vbMsgBoxRight vbMsgBoxRtlReading"نظام مواعيد الأعلاف")
            Exit 
Sub
        End 
If
        If 
e.KeyChar Chr(Keys.EnterThen
            txtName1
.Focus()
        
End If
        If 
txtCRN.Text "" Then
            txtCRN
.Focus()
        Else
            
Dim Msg As String "يجب عليك ادخال السجل المدني"
            
MsgBox(MsgvbCritical vbMsgBoxRight vbMsgBoxRtlReading"نظام مواعيد الأعلاف")

        
End If
    
End Sub 

وتقبلو تحياتي
الرد }}}}
تم الشكر بواسطة:
#2
تفضل الكود بعد التعديل
كود :
Private Sub textbox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not IsNumeric(e.KeyChar) And Not e.KeyChar = Chr(Keys.Enter) Then
            e.Handled = True
            Dim Msg As String = "رقم السجل المدني يجب أن يكون عددا صحيحا"
            MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
            Exit Sub
        End If
        If e.KeyChar = Chr(Keys.Enter) And TextBox1.Text = "" Then
            Dim Msg As String = "يجب عليك ادخال السجل المدني"
            MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
            TextBox1.Focus()
        Else
            'do any thing
        End If
    End Sub
الرد }}}}
تم الشكر بواسطة:
#3
يعطيك العافيه
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 80 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 384 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 60 12-02-17, 08:06 PM
آخر رد: مساعدة
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 83 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  [VB.NET] رجاء تصحيح الكود التالي dubai.eig 4 120 25-01-17, 03:02 PM
آخر رد: مساعدة
  [VB.NET] ممكن حل مشكلة الكود MOSTAFA.KAMEL 1 182 22-01-17, 09:37 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] ما هو الخطأ في الكود التالي .. أرجو المساعدة abo_alaa315 0 73 22-01-17, 02:27 PM
آخر رد: abo_alaa315
  [VB.NET] يرجى التعديل على الكود dubai.eig 4 121 18-01-17, 05:25 PM
آخر رد: dubai.eig
  [VB.NET] معني رسالة الخطأ يسرى7 10 379 16-01-17, 01:08 AM
آخر رد: يسرى7
  اريد تحول الكود لفيجوال 2008 abudawoodd 6 254 15-01-17, 02:11 PM
آخر رد: abudawoodd

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


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