(21-11-17, 09:15 AM)a.ahmed كتب :

PHP كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

    Dim s As String = TextBox1.Text

    Dim Number As Boolean = False
    Dim Letter As Boolean = False
    For Each c As Char In s.ToCharArray
        If IsNumeric(c) Then Number = True Else Letter = True
    Next

    If Number And Not Letter Then MsgBox("Number only")
    If Letter And Not Number Then MsgBox("Letter only")
    If Number And Letter Then MsgBox("Number and Letter")

End Sub 


(21-11-17, 09:29 AM)a.ahmed كتب :

PHP كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

    Dim s As String = TextBox1.Text

    Dim Number As Boolean = False
    Dim Letter As Boolean = False
    For Each c As Char In s.ToCharArray
        If Char.IsNumber(c) Then Number = True
        If Char.IsLetter(c) Then Letter = True
    Next

    If Number And Not Letter Then MsgBox("Number only")
    If Letter And Not Number Then MsgBox("Letter only")
    If Number And Letter Then MsgBox("Number and Letter")

End Sub 


(21-11-17, 10:58 AM)dubai.eig كتب :

(21-11-17, 09:29 AM)a.ahmed كتب :

PHP كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

    Dim s As String = TextBox1.Text

    Dim Number As Boolean = False
    Dim Letter As Boolean = False
    For Each c As Char In s.ToCharArray
        If Char.IsNumber(c) Then Number = True
        If Char.IsLetter(c) Then Letter = True
    Next

    If Number And Not Letter Then MsgBox("Number only")
    If Letter And Not Number Then MsgBox("Letter only")
    If Number And Letter Then MsgBox("Number and Letter")

End Sub 


سؤال اخير اخي احمد


بخصوص 

كود :

If Number And Not Letter Then MsgBox("Number only")

في حالت كتابة رقم فردي الكود هذا 

كود :

Dim number As String = String.Format("{0:0#}", CType(num, Integer))

يزيد صفر مثل شرحك في احد المواضيع والحمدالله شغال تمام


بس في حالت

كود :

 If Number And Letter Then

مثلا مكتوب 
NY5


في مجال يتغير الرقم الى

NY05

حتى لو عمل مسافه بين الحرف والرقم مافي مشكله المهم يغير لي الرقم الفردي الى قبله رقم صفر


جربت هذا

كود :

   Dim s As String = TextBox1.Text

   Dim Numberq As Boolean = False
   Dim Letter As Boolean = False
   For Each c As Char In s.ToCharArray
       If Char.IsNumber(c) Then Number = True
       If Char.IsLetter(c) Then Letter = True
   Next


Dim number As String = String.Format("{0:0#}", CType(Numberq, Integer))


   If Numberq And Not Letter Then MsgBox("Number only")
   If Letter And Not Numberq Then MsgBox("Letter only")
   If Numberq And Letter Then MsgBox("Number and Letter")

MsgBox(number)

بس ما ضبط 

بارك الله فيك

(21-11-17, 10:58 AM)dubai.eig كتب : مثلا مكتوب 
NY5


في مجال يتغير الرقم الى

NY05

حتى لو عمل مسافه بين الحرف والرقم مافي مشكله المهم يغير لي الرقم الفردي الى قبله رقم صفر

(21-11-17, 05:12 PM)a.ahmed كتب :

(21-11-17, 10:58 AM)dubai.eig كتب : مثلا مكتوب 
NY5


في مجال يتغير الرقم الى

NY05

حتى لو عمل مسافه بين الحرف والرقم مافي مشكله المهم يغير لي الرقم الفردي الى قبله رقم صفر

PHP كود :

Dim s As String = TextBox1.Text & Space(2)
Mid$(s, 3, 2) = Val(Mid$(s, 3, 2)).ToString("00")
TextBox1.Text = s