• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Kiểm tra địa chỉ Email

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
Admin
Bài viết: 1
Ngày tham gia: T.Ba 25/01/2005 4:11 am

Kiểm tra địa chỉ Email

Gửi bàigửi bởi Admin » T.Ba 25/03/2008 11:05 am

Thủ thuật: Kiểm tra địa chỉ Email
Tác giả: Sưu tầm
Mô tả: Kiểm tra địa chỉ Email của người dùng nhập vào xem hợp lệ hay không.


Khi thiết kế chương trình bạn đòi hỏi người dùng phải nhập địa chỉ email đúng định dạng có tên email kèm theo @ và cuối cùng đuôi email do nhà cung cấp quy định, ví dụ như địa chỉ email có định dạng caulacbovb@caulacbovb.com. Với địa chỉ như thế này bạn bắt buộc người dùng điền đầy đủ nhưng đâu có phải ai cũng "chăm chỉ" điền đầy đủ như vậy, chỉ còn cách là dùng luật "trên bảo dưới phải nghe", muốn lười cũng không được. Chỉ cần đoạn mã đơn giản sau:

Mã: Chọn hết

  1. Public Function kiemtraemail(EmailAddress As String) As Boolean
  2.     kiemtraemail = EmailAddress Like "*@[A-Z,a-z,0-9]*.*"
  3. End Function
  4.  
  5. Trong Form1 bạn thêm vào đó 1 textbox với thuộc tính name là EmailText dùng để nhập địa chỉ email và 1 command1 để kiểm tra tính hợp lệ của địa chỉ email khi người dùng ấn vào:
  6. Private Sub Command1_Click()
  7.     If (kiemtraemail(EmailText.Text) = False) Then ‘ Nếu địa chỉ email không đúng
  8.         Beep ‘ Kêu 1 tiếng bíp cho người dùng sợ
  9.         MsgBox "chu y: Dia chi email khong hop le", vbOKOnly, "Thong bao"
  10.     Else
  11.         MsgBox "Dia chi email da hop le", vbOKOnly, "Thong bao"
  12.     End If
  13. End Sub



Hình đại diện của người dùng
hoangthu1974
Guru
Guru
Bài viết: 812
Ngày tham gia: T.Năm 09/03/2006 9:30 am
Đến từ: Hà Nội --> Tp. Hồ Chí Minh
Been thanked: 13 time
Liên hệ:

Re: Kiểm tra địa chỉ Email

Gửi bàigửi bởi hoangthu1974 » T.Ba 25/03/2008 11:21 am

Mã: Chọn hết

  1. Public Function kiemtraemail(EmailAddress As String) As Boolean
  2.     kiemtraemail = EmailAddress Like "*@[A-Z,a-z,0-9]*.*[A-Z,a-z,0-9]"
  3. End Function


Thay đoạn code bằng đoạn này sẽ tránh được địa chỉ e-mail dạng: dkjflsjfls@kdfskdf. :))

DungCoi
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 77
Ngày tham gia: T.Tư 26/03/2008 9:24 pm
Been thanked: 2 time

Re: Kiểm tra địa chỉ Email

Gửi bàigửi bởi DungCoi » T.Tư 26/03/2008 10:26 pm

@Anh Nobi : Email thằng Yahoo có ký tự "_", thằng Gmail cho dạng "." => Chắc phải thêm nhiều ký tự trong chuỗi kia bởi vì chắc chắn tụi WebMail khác còn đủ thứ "Sáng tạo" nữa
@HoangThu : Hình như VB6 ko co hàm Like này :)
~vb

luungoc2005
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 62
Ngày tham gia: T.Ba 17/01/2006 9:43 am
Đến từ: Where Bill Gates beats the penguin just like the Batman
Liên hệ:

Re: Kiểm tra địa chỉ Email

Gửi bàigửi bởi luungoc2005 » T.Tư 26/03/2008 10:54 pm

kiểm tra email kiểu này dễ bị "abc@hahaha.com" lắm đây
chắc chỉ có đường gửi email thử thôi
A forum post should be like a skirt. Long enough to cover the subject material, but short enough to keep things interesting.

Hình đại diện của người dùng
onlysoft
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 330
Ngày tham gia: T.Tư 26/03/2008 6:32 pm
Đến từ: ONLYSOFT
Been thanked: 8 time

Re: Kiểm tra địa chỉ Email

Gửi bàigửi bởi onlysoft » T.Năm 27/03/2008 6:53 pm

Kiểm tra là kiểm tra tính hợp lệ của mail thôi chứ có kiểm tra sự tồn tại của mail đâu, có thế thôi mà :))
:x Tin học là cuộc sống, Lập trình là người yêu, Vợ là computer :x
Tôi yêu tin học, Tin học lập trình, Để lập trình tôi dùng VB, Tôi là B-)nly


Quay về “[VB] Mẹo vặt khác”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.2 khách