تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استفسار :- بخصوص TEXTBOX
#1
السلام عليكم ورحمة الله

استفساري عن طريقة معرفة اذا كان ال textbox  يحتوي على ارقام وحروف

مثلا

textbox1.Text 
مكتوب في كذا
001TRC


textbox2.Text
مكتوب في كذا
011TRC

يعطيني مسج ان المربعين فيهم حروف وارقام

اريد اعرف هل في المربع حرف مع ارقام او ارقام فقط

الكود اللي عندي موب شغال تمام في غلط حاولت التعديل عليه بس ما ضبط

هذا هو


كود :
      Dim shg1S As String = textbox1.Text

           Dim NumberqS As Boolean = False
           Dim LetterwwS As Boolean = False
           For Each cS As Char In shg1S.ToCharArray
               If Char.IsNumber(cS) Then NumberqS = True
               If Char.IsLetter(cS) Then LetterwwS = True
           Next


           Dim shg1 As String = textbox2.Text

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

If Letterww AndAlso Numberq OrElse LetterwwS AndAlso NumberqS Then
               MsgBox("W")
           End If


وبارك الله فيكم
الرد }}}
تم الشكر بواسطة:
#2
(03-11-18, 06:09 PM)dubai.eig كتب : اريد اعرف هل في المربع حرف مع ارقام او ارقام فقط


PHP كود :
       If IsNumeric(TextBox1.Text) = True Then
            System
.Windows.Forms.MessageBox.Show("Just Number")
 
       Else
            System
.Windows.Forms.MessageBox.Show("Not All Numbers")
 
       End If
 
   End Sub 
الرد }}}
تم الشكر بواسطة: asemshahen5 , elgokr , dubai.eig , dubai.eig
#3
(03-11-18, 06:45 PM)Amir_alzubidy كتب :
(03-11-18, 06:09 PM)dubai.eig كتب : اريد اعرف هل في المربع حرف مع ارقام او ارقام فقط


PHP كود :
       If IsNumeric(TextBox1.Text) = True Then
            System
.Windows.Forms.MessageBox.Show("Just Number")
 
       Else
            System
.Windows.Forms.MessageBox.Show("Not All Numbers")
 
       End If
 
   End Sub 

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

سهلت عليه العمليه  Rolleyes
الرد }}}
تم الشكر بواسطة: elgokr



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم