منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
السلام عليكم سؤال في التحقق من المتغييرات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : السلام عليكم سؤال في التحقق من المتغييرات (/showthread.php?tid=37816)



السلام عليكم سؤال في التحقق من المتغييرات - اليوم السابع - 18-02-21

اريد اعرف المتغير يحتوي علي حروف عربيه او لا 

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

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


RE: السلام عليكم سؤال في التحقق من المتغييرات - اليوم السابع - 19-02-21

(18-02-21, 08:30 AM)اليوم السابع كتب : اريد اعرف المتغير يحتوي علي حروف عربيه او لا 

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

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

Huh


RE: السلام عليكم سؤال في التحقق من المتغييرات - أبو عبدالله الحلواني - 19-02-21

وعليكم السلام ورحمة الله وبركاته
لتتحقق من احتواء متغيرك علي حروف فقط أو حروف وأرقام استخدم هذا الكود
كود :
if Char.Isletter(put here variable name) then
' here if conant is letter'
Else
'Here if contant is letter and number'
end if
وللتحقق من احتواء المتغير علي ارقام فقط استخدم الكود التالي
كود :
if Char.IsNumber(put here variable name) then
' here if conant is Number'
Else
'Here if contant is letter and number'
end if



RE: السلام عليكم سؤال في التحقق من المتغييرات - اليوم السابع - 19-02-21

(19-02-21, 06:28 PM)أبو عبدالله الحلواني كتب : وعليكم السلام ورحمة الله وبركاته
لتتحقق من احتواء متغيرك علي حروف فقط أو حروف وأرقام استخدم هذا الكود
كود :
if Char.Isletter(put here variable name) then
' here if conant is letter'
Else
'Here if contant is letter and number'
end if
وللتحقق من احتواء المتغير علي ارقام فقط استخدم الكود التالي
كود :
if Char.IsNumber(put here variable name) then
' here if conant is Number'
Else
'Here if contant is letter and number'
end if

شكرا لك يا كبير و اضافه للاعضاء هذا الكود 
كود :
If System.Text.RegularExpressions.Regex.IsMatch(RichTextBox1.Text, "^[A-Za-z]+$") Then
           MsgBox("yes")
       Else
           MsgBox("No")
       End If

كود :
If System.Text.RegularExpressions.Regex.IsMatch(RichTextBox1.Text, "^[1-9]+$") Then
           MsgBox("yes")
       Else
           MsgBox("No")
       End If