كيفية التاكد من ان المكتوب هو عنوان ايميل

ما فهمته من سؤالك أنه ليس في الفجوال بيسك 6 وإنما في الفجوال بيسك دوت نت.

يوجد component اسمه له علاقة بالvalidation ويعتمد عمله على التعابير القياسية regular expressions.

التعبير القياسي الذي يستطيع التحقق من صلاحية الايميل المكتوب تقريبا وليس تحديدا هو:

[A-Z]+[a-z]*[0-9]*@[A-Z]+[a-z][0-9]*.[com][org][net]

وعند عدم مطابقة ماهو مكتوب في الtext للتعبير القياسي يتم عرص الtiptooltext.

وليس شرطا أن يكون الماوس في منطقة الtext، يمكنك عمل المطابقة مع التعبير القياسي مثلا في دالة الزر save، واكيد لن يكون الماوس في منطقة الtext. وسيعرض الtiptooltext بجوار الtext الخاص بالايميل.

أتمنى أن يكون هذا ما تريده بإذن الله.

شكرا اخي العزيز

وانا استخدم الفيجوال بيسك

و لكن اريد الكود مباشره لاني لم افهم من ردك علي

الا القليل ... اعذرني فانا لست الا مبتدئ

استخدم هذا الـFunction :

Private Function IsEmail(S As String) As Boolean
On Error Resume Next
    Dim P(3) As String, I As Integer
    I = InStr(1, S, "@")
    P(1) = Left(S, I - 1)
    S = Mid(S, I + 1)
    I = InStr(1, S, ".")
    P(2) = Left(S, I - 1)
    P(3) = Mid(S, I + 1)
    IsEmail = ValidMailPart(P(1)) And ValidMailPart(P(1)) And ValidMailPart(P(3), ".")
End Function
Function ValidMailPart(P As String, Optional F As String) As Boolean
Dim I As Integer, G As String
    G = "ABCDEFGHIJKLMNOPQRSTUVWZYZ-_1234567890" & F
    ValidMailPart = False
    If Len(P) > 0 Then
        For I = 1 To Len(P)
            If InStr(1, G, (UCase(Mid(P, I, 1)))) = 0 Then Exit Function
        Next
    End If
    ValidMailPart = True
End Function

مشكوووووووووووووووووووووووووووووووووووووووووووووور

ما هو رأيك بهذ الكود

Function validate_email
  If instr(txtemail.text, "@") = 0 OR _
 instr(txtemail.text, ".") = 0 OR _
 Len(txtemail.text) < 7 Then
mesgbox"please enter a valid mail"
   End IF
 End Function

حيث ان السطر الثالث من الكود يحدد طول نص الايميل

شكرا جزيلا لكم

و عسى ربي يوفقكم دنيا و اخره

أخي طارق ابراهيم

فكرتك قصيرة .. ولكنها غير صحيحة 100%

وانا اعتقد ذلك ايضا