مشكلة في التكست

dim a ,i
a = 0
for i = 1 to len(text1.text)
if mid(text1.text,i,1) = "@"then
a= 1
end if
if a = 1 then
msgbox ""
end if

موفق حبيبي:)

شكرا اخي لكن مش شغال الكود بطلعلي خطاء فيه

أخي نقوم بتعريف متغير من نوع Boolean تخزن فيه القيمة true إذا كان النص يمثل عنوان بريدي صالح والقيمة false إذا كان البريد غير صالح.

نسمي المتغير مثلاً valid ونعطيه قيمة ابتدائية false. ثم نأخذ النص حرفاً حرفاً وإذا عثرنا على @ في النص نغير قيمة المتغير إلى true.

Dim Valid As Boolean
Dim x As Integer
Valid = False
For x = 1 To Len(Text1)
	If Mid(Text1, x, 1) = "@" Then
	Valid = True
	End If
Next x
If Valid Then
MsgBox "Vaild Email Address", vbInformation
Else
MsgBox "Invaild Email Address", vbCritical
End If

نسيت أقول

text1 عبارة عن مربع نص، أنا أستخدم VB6

السلام عليكم

إخواني الكرام لماذا تتعبون أنفسكم بالبحث حرفا حرفا

استعملوا الدالة instr لرأية إذا كان النص يحتوي @

Private Sub TxtEmail_LostFocus()
If InStr(TxtEmail, "@") = 0 Then MsgBox "You Enterd Invalid Address", vbInformation, "Invalid"
End Sub

بحيث TxtEmail هو text box

والسلام

nabeelkairi كتب:

شكرا اخي لكن مش شغال الكود بطلعلي خطاء فيه

العفو يالغالي ناقص كلمة NEXT لحلقة FOR ..

وان شاء الله ما يطلع لك فيها مشكلة بعد لاني ما كتبت الكود مباشرة دون تجربه:)

موفق يالغالي

شكراً أخ micheal R jordan

أولا هو عنوان الموضوع مخالف ( غير معبر عن السؤال ) , ثانيا وجود @ لا يدل على أنه النص عبارة عن Email Address , راجعوا ردى ده :

مثال لفحص حقل البريد الإلكتروني