منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مشكلة احتواء textbox على كلمة ... - نسخة قابلة للطباعة

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



مشكلة احتواء textbox على كلمة ... - e-coder - 03-07-17

سلام عليكم
اريد فقط كود اذا كانت 
Textbox 
لا تحتوي علي كلمة 
hotmail.com
ان تشعر المستخدم بوضعها
وشكرا



RE: مشكلة احتواء textbox على كلمة ... - حريف برمجة - 03-07-17

وعليكم السلام ،،

الأفضل من وجهة نظري هي كالتالي :

تكست بوكس + كومبو بوكس

الكومبو بوكس تضع فيه :
hotmail.com
gmail.com
yahoo.com

وعند الإستعمال يكون الكود كالتالي :
dim email as string = textbox1.text & "@" & combobox1.text


RE: مشكلة احتواء textbox على كلمة ... - e-coder - 04-07-17

اخي لا انا اريد اشعار المستخدم بتغير ماهو في textbox
يعني لو انا عامل اتصال gmail وحط في Textbox
yahoo ان تظهر مسج بوكس وتقول له الرجاء وضع حساب gmail فقط


RE: مشكلة احتواء textbox على كلمة ... - silverlight - 04-07-17

لو محتاج تعرف هل الكلمة التي تبحث عنها موجودة أم لا
يمكنك ان تستخدم شئ من هذا القبيل
حيث المتغير s = اي string تبحث فيه عن الكلمة
و المتغير word = الكلمة التي تبحث عنها
لو الكلمة موجودة الدالة ستعود بقيمة = True


PHP كود :
Private Function isStringExist(As Stringword As String) As Boolean
        Return s
.Split(New String() {word}, StringSplitOptions.None).Count >= 0
    End 
Function 



RE: مشكلة احتواء textbox على كلمة ... - سعود - 04-07-17

PHP كود :
Dim em As String String.Empty
 
       em System.Text.RegularExpressions.Regex.Match(tmail.Text".*?(@hotmail\.com)").Value
        If System
.Text.RegularExpressions.Regex.Match(tmail.Text".*?(@hotmail\.com)").Success False Then
            MsgBox
("ام تكتب بريد هوتميل"MsgBoxStyle.Critical"")
 
       Else
            MsgBox
("OK i love this email: " em)
 
       End If 

مثال بسيط باستخدام الــ Regex


RE: مشكلة احتواء textbox على كلمة ... - 20917 - 04-07-17

كود :
If Not Me.Text.Trim.ToLower.EndsWith("@hotmail.com") Then
    MsgBox("@hotmail.com")
End If



RE: مشكلة احتواء textbox على كلمة ... - silverlight - 04-07-17

و الله شكلك أصبحت مدمنا لإستخدام Regx يا سعود ...............


RE: مشكلة احتواء textbox على كلمة ... - سعود - 04-07-17

(04-07-17, 02:54 PM)silverlight كتب : و الله شكلك أصبحت مدمنا لإستخدام Regx يا سعود ...............

مصدقك من غير ماتحلف يا silverlight...............