منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] تحديد البيانات المدخلة من قبل المستخدم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] تحديد البيانات المدخلة من قبل المستخدم (/showthread.php?tid=2480)

تحديد البيانات المدخلة من قبل المستخدم - essawq - 06-04-14

السلام عليكم ورحمة الله وبركاتة

انا اعمل على برنامج بواسطة vb.net 2008 وقاعدة بيانات sql server 2008
ما اريدة هو كود تحديد ادخال البيانات في تكست بكس
اريد ان يحدد للمستخدم ادخال رقم سيارة بالطريقة التالية 36/95975
يعني ان يكتب اي رقمين بعدها / ويكمل الرقم بعدها 6 ارقام او 7
وضعت هذا الكود لادخال القيم الرقمية فقط
If Char.IsControl(e.KeyChar) = False Then
If Char.IsDigit(e.KeyChar) Then
Else
e.Handled = True
End If
End If

الكود يعمل لكن لا استطيع ادخال / السلاس بعد اول رقمين

تحياتي لكم

RE: تحديد البيانات المدخلة من قبل المستخدم - Aly El-Haddad - 06-04-14

كود :
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.MaxLength = 10
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If ((Not Char.IsControl(e.KeyChar)) AndAlso (Not Char.IsNumber(e.KeyChar)) AndAlso (Not ((TextBox1.TextLength = 2) AndAlso (e.KeyChar = "/"c)))) OrElse (Char.IsNumber(e.KeyChar) AndAlso (TextBox1.TextLength = 2)) Then
            e.Handled = True
        End If
    End Sub
End Class


RE: تحديد البيانات المدخلة من قبل المستخدم - essawq - 06-04-14

السلام عليكم ورحمة اللة وبركاتة
بارك الله فيك اخي الكريم وبعلمك
واشكرك جزيل الشكر
الكود تماام يسلموا
ربي يوفقك
تحياتي لك