(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)
بس ما ضبط
بارك الله فيك
