---------------------------------------------------------

Chào mừng bạn đến với diễn đàn Công Nghệ Thông Tin CK08 Ca Mau Community College.
Hy vọng diễn đàn sẽ là nơi giao lưu học hỏi và chia sẽ niềm đam mê tri thức.
Chúc bạn một ngày an lành và vui vẻ và luôn thành công trong cuộc sống.
################################


 
Trang ChínhTrợ giúpTìm kiếmThành viênĐăng kýĐăng Nhập

Share | 
 

 Kiểm tra địa chỉ Email

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Administrotor
Administrotor
avatar

Tổng số bài gửi : 877
Join date : 24/07/2010

Bài gửiTiêu đề: Kiểm tra địa chỉ Email   Thu Apr 21, 2011 11:37 am

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ớ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:

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

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:
Private Sub Command1_Click()
    If (kiemtraemail(EmailText.Text) = False) Then ‘ Nếu địa chỉ email không đúng
        Beep ‘ Kêu 1 tiếng bíp cho người dùng sợ
        MsgBox "chu y: Dia chi email khong hop le", vbOKOnly, "Thong bao"
    Else
        MsgBox "Dia chi email da hop le", vbOKOnly, "Thong bao"
    End If
End Sub

Nguồn: sưu tầm
Về Đầu Trang Go down
http://cntt08.forum-viet.net
 
Kiểm tra địa chỉ Email
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
 :: Visual basic.net-
Chuyển đến