ماهي أفضل Regualr expression للContactNo

انا بخليها مفتوحة للمستخدم

بحيث انة يتحكم فيها

و أريح راسي

طيب لو قام المستخدم بإدخال حروف alphabetic characters وسط الأرقام، هل سيظل رقم الاتصال صالحا بعدها؟

يجب استبعاد هذا الاحتمال مع عدم تقييد المستخدم على طريقة إدخال محددة.

للرفع.

مجرد فكرة:

طيب ليش ما تستخدم أكثر من عبارة لعمل الفاليديشن يعني إذا كان مطابق لأي واحدة فيكون مقبول و عندما لايطابق ولا واحدة فيكون غير مقبول

يمكنكم التحكم بطريقة اخرى وهي إجبار المستخدم على كتابة أرقام فقط في هذه الخانات

' إدخال أرقام فقط

    Public Function PressOnlyNumeric(ByVal intKeyValue As System.Windows.Forms.KeyPressEventArgs) ' Integer
        Dim chKiy As Char
        chKiy = intKeyValue.KeyChar
        If Not (Char.IsDigit(chKiy) Or chKiy = "." Or Char.IsControl(chKiy)) Then
            MsgBox("غير مسموح بإدخال الحرف .. فضلاً إدخل أرقام فقط", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "إدخال خاطئ")
            intKeyValue.Handled = True ' إلغاء الحرف المضغوط
        End If

    End Function

الأخ aswany

اقتباس

يمكنكم التحكم بطريقة اخرى وهي إجبار المستخدم على كتابة أرقام فقط في هذه الخانات

' إدخال أرقام فقط

لاحظ وجود احتمال إدخال الحروف + و () و -

اقتباس

طيب ليش ما تستخدم أكثر من عبارة لعمل الفاليديشن يعني إذا كان مطابق لأي واحدة فيكون مقبول و عندما لايطابق ولا واحدة فيكون غير مقبول

فكرة برضو. *-)

مع أنها قد تؤدي في النهاية لتعقيد الvalidation process

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

الاخ وليد , لقد إتجهت بالتفكير في الحلول الصعبة :D ...

لماذا لم تفكر بعمل Custom Control يحتوي علي Property لتحديد شكل المدخلات التي تريدها أنت , مع ملاحظة أنه يمكنك أيضاً أن تقوم بعمل ملف Configuration بحيث يمكن للمستخدم النهائي بإختيار شكل الأرقام التي يريدها ؟ بدلاً من اللجوء لإستخدام ال Regualr expression والتي تعتبر مفيدة جداً ولكن علي مستوي الـ Standard Format مثل الـ Email وغيرها

فيما يلي مثال بسيط لعمل Custom Control يقوم بالتحكم في شكل المدخلات في كائن ال Text Box

أولاً قم بإنشاء مشروع جديد من نوع Windows Control Library باسم TestMaskedTextBox

يقوم المشروع تلقائياً بإنشاء User Contol1 انت لا تحتاج اليها , قم بمسحها

قم بإضافة Component من قائمة Project باسم MaskedTextBox كمثال ثم أفتح الشفرة وقم باستبدالها بالشفرة التالية

Namespace TestMaskTextBox
    Public Class MaskedTextBox
        Inherits TextBox
        Private _Mask As String
        Public Property Mask() As String
            Get
                Return _Mask
            End Get
            Set(ByVal Value As String)
                _Mask = Value
            End Set
        End Property

#Region " Component Designer generated code "

        Public Sub New()
            MyBase.New()

            ' This call is required by the Component Designer.
            InitializeComponent()

            'Add any initialization after the InitializeComponent() call

        End Sub

        'Control overrides dispose to clean up the component list.
        Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
            If disposing Then
                If Not (components Is Nothing) Then
                    components.Dispose()
                End If
            End If
            MyBase.Dispose(disposing)
        End Sub

        'Required by the Control Designer
        Private components As System.ComponentModel.IContainer

        ' NOTE: The following procedure is required by the Component Designer
        ' It can be modified using the Component Designer.  Do not modify it
        ' using the code editor.
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
            components = New System.ComponentModel.Container
        End Sub

#End Region

        Protected Overrides Sub OnPaint(ByVal pe As System.Windows.Forms.PaintEventArgs)
            MyBase.OnPaint(pe)
            'Add your custom paint code here
        End Sub

        Private Sub MaskedTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
            If Trim(Mask) = String.Empty Then Exit Sub
            Dim myStr As String = Me.Text
            If myStr.Length > 0 Then
                If e.KeyChar = "" Then
                    myStr.Remove(Me.TextLength - 1, 1)
                    Exit Sub
                End If
            End If

            e.Handled = True
            Dim i As Int16
            Dim NewText As String = Me.Text
            For i = Me.SelectionStart To _Mask.Length - 1
                Select Case _Mask.Chars(i)
                    Case "#"
                        If Char.IsDigit(e.KeyChar) = True Then
                            NewText += e.KeyChar.ToString
                            Exit For
                        Else
                            Exit Sub
                        End If
                    Case "."
                        If Char.IsLetter(e.KeyChar) = True Then
                            NewText += e.KeyChar.ToString
                            Exit For
                        Else
                            Exit Sub
                        End If
                    Case Else
                        'Insert Mask Character
                        NewText = NewText & _Mask.Chars(i)
                End Select
            Next
            'Update The Text
            Me.Text = NewText
            Me.SelectionStart = Me.Text.Length
        End Sub
    End Class
End Namespace

ثم قم بعمل Build للمشروع وهكذا ببساطة يمكنك التحكم في شكل المدخلات من خلال الخاصية Mask والتي فيها الرمز # يمثل الرقم أي إذا كنت تريد شكل المدخل كالتالي مثلاً رقم تلفون في الخرطوم

(+83) 604357

يجب أن تكون قيمة الخاصية Mask والتي ستجدها آخر خاصية بعد إضافة الكنترول كالتالي

(+##) ######

ملحوظة صغيرة : لإضافة الكنترول الي صندوق الأدوات قم بضغط زر الماوس الايمن علي صندوق الادوات ثم إختار Add/Remove Items ثم قم بالضغط علي Browse ومن ثم قم بالذهاب الي مجلد Bin الخاص بمشروع TestMaskedTextBox ستجد هنالك ملف ال Dll قم بإضافته ويعد ذلك يمكنك التعامل معه مثل بقية الأدوات .

أما بالنسبة للنقطة التي وضحتها بعمل Configuration أعني هنا أنه يمكنك وضع قيمة الخاصية Mask من قاعدة بيانات بحيث يمكن للمستخدم النهائي التحكم فيها كما يشاء

مرفق المثال الخاص بعمل الكنترول

والله الموفق

TestMaskTextBox.rar

الحصل معاك شنو ياوليد , الطريقة إشتغلت معاك ؟؟

aswany كتب:

يمكنكم التحكم بطريقة اخرى وهي إجبار المستخدم على كتابة أرقام فقط في هذه الخانات

' إدخال أرقام فقط

    Public Function PressOnlyNumeric(ByVal intKeyValue As System.Windows.Forms.KeyPressEventArgs) ' Integer
        Dim chKiy As Char
        chKiy = intKeyValue.KeyChar
        If Not (Char.IsDigit(chKiy) Or chKiy = "." Or Char.IsControl(chKiy)) Then
            MsgBox("غير مسموح بإدخال الحرف .. فضلاً إدخل أرقام فقط", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "إدخال خاطئ")
            intKeyValue.Handled = True ' إلغاء الحرف المضغوط
        End If

    End Function

ممكن توضح لي كيف يمكن الاستفادة من هذا الاجراء ..

اخي ياسر

اسف على التاخير

للإستفادة من هذا الاجراء قم بوضعه داخل اي Module

وفي حدث KeyPress لأي textbox سيكون الكود كالتالي

 Private Sub NumberOnly_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPrice.KeyPress, txtQty.KeyPress
		PressOnlyNumeric(e)   ' إدخال أرقام فقط
	End Sub

اخي ياسر

اسف على التاخير

للإستفادة من هذا الاجراء قم بوضعه داخل اي Module

وفي حدث KeyPress لأي textbox سيكون الكود كالتالي

 Private Sub NumberOnly_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPrice.KeyPress, txtQty.KeyPress
		PressOnlyNumeric(e)   ' إدخال أرقام فقط
	End Sub

الف شكر يا أخي aswany