منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

عندي استفسار كيف اقدر اميز ان المكتوب في ال textbox

ارقام وحروف

اللي اعرفه

كود :

If IsNumeric(textbox.Text)

اذا ال textbox في ارقام

كود :

 If Not IsNumeric(textbox.Text)

اذا ال textbox في حروف

كيف اميز ان هناك حروف وارقام مع بعض او هناك حروف فقط او ارقام فقط

وشكرا بارك الله فيكم

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, 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

تسلم بارك الله فيك

شكرا شكرا احسنت دائما تساعد الشباب

في ميزان اعمالك انت وجميع الاخوى في هذا المنتدى

شكرا Rolleyes

(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 كتب : [ -> ]
(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

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

PHP كود :

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

(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

احسنت تسلم ايدك بارك الله فيك

ضبط الامر Rolleyes