سوال در مورد textbox [بایگانی]

omidsalari

یک شنبه 31 اردیبهشت 1391, 19:28 عصر

سلام میخوام قبل از اینکه دکمه ثبت رو بزنم تااسم ایمیل طرف ثبت بشه برنامه چک کنه که @yahoo.com داخل textboxنوشته شده اکه نباشه خطا بده لطفا کمکم کنید

Veteran

یک شنبه 31 اردیبهشت 1391, 20:41 عصر

Private Sub Command1_Click()
If InStr(1, Text1, "@yahoo.com") = 0 Then
MsgBox "Error", vbCritical, "Msg"
End If
End Sub

محسن واژدی

یک شنبه 31 اردیبهشت 1391, 21:24 عصر

سلام
کد زیر هم:
Private Sub Command1_Click()
If Not LCase(Text1) Like "*@yahoo.com*" Then MsgBox "E-Mail error!", vbCritical
End Sub

موفق باشید