03-07-17, 10:11 PM
03-07-17, 11:24 PM
وعليكم السلام ،،
الأفضل من وجهة نظري هي كالتالي :
تكست بوكس + كومبو بوكس
الكومبو بوكس تضع فيه :
hotmail.com
gmail.com
yahoo.com
وعند الإستعمال يكون الكود كالتالي :
dim email as string = textbox1.text & "@" & combobox1.text
الأفضل من وجهة نظري هي كالتالي :
تكست بوكس + كومبو بوكس
الكومبو بوكس تضع فيه :
hotmail.com
gmail.com
yahoo.com
وعند الإستعمال يكون الكود كالتالي :
dim email as string = textbox1.text & "@" & combobox1.text
04-07-17, 11:39 AM
اخي لا انا اريد اشعار المستخدم بتغير ماهو في textbox
يعني لو انا عامل اتصال gmail وحط في Textbox
yahoo ان تظهر مسج بوكس وتقول له الرجاء وضع حساب gmail فقط
يعني لو انا عامل اتصال gmail وحط في Textbox
yahoo ان تظهر مسج بوكس وتقول له الرجاء وضع حساب gmail فقط
04-07-17, 12:04 PM
لو محتاج تعرف هل الكلمة التي تبحث عنها موجودة أم لا
يمكنك ان تستخدم شئ من هذا القبيل
حيث المتغير s = اي string تبحث فيه عن الكلمة
و المتغير word = الكلمة التي تبحث عنها
لو الكلمة موجودة الدالة ستعود بقيمة = True
يمكنك ان تستخدم شئ من هذا القبيل
حيث المتغير s = اي string تبحث فيه عن الكلمة
و المتغير word = الكلمة التي تبحث عنها
لو الكلمة موجودة الدالة ستعود بقيمة = True
PHP كود :
Private Function isStringExist(s As String, word As String) As Boolean
Return s.Split(New String() {word}, StringSplitOptions.None).Count >= 0
End Function
04-07-17, 01:58 PM
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
04-07-17, 02:14 PM
كود :
If Not Me.Text.Trim.ToLower.EndsWith("@hotmail.com") Then
MsgBox("@hotmail.com")
End If04-07-17, 02:54 PM
و الله شكلك أصبحت مدمنا لإستخدام Regx يا سعود ...............