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

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.
################################
---------------------------------------------------------

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.
################################
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.


 
Trang ChínhTìm kiếmLatest imagesĐăng kýĐăng Nhập
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search
Latest topics
Top posters
Admin
Kiểm tra địa chỉ Email Vote_lcapKiểm tra địa chỉ Email Voting_barKiểm tra địa chỉ Email Vote_rcap 
haivip.info
Kiểm tra địa chỉ Email Vote_lcapKiểm tra địa chỉ Email Voting_barKiểm tra địa chỉ Email Vote_rcap 
truyenITPro
Kiểm tra địa chỉ Email Vote_lcapKiểm tra địa chỉ Email Voting_barKiểm tra địa chỉ Email Vote_rcap 
nguyendil
Kiểm tra địa chỉ Email Vote_lcapKiểm tra địa chỉ Email Voting_barKiểm tra địa chỉ Email Vote_rcap 
pccamau
Kiểm tra địa chỉ Email Vote_lcapKiểm tra địa chỉ Email Voting_barKiểm tra địa chỉ Email Vote_rcap 
devil
Kiểm tra địa chỉ Email Vote_lcapKiểm tra địa chỉ Email Voting_barKiểm tra địa chỉ Email Vote_rcap 
lptho42
Kiểm tra địa chỉ Email Vote_lcapKiểm tra địa chỉ Email Voting_barKiểm tra địa chỉ Email Vote_rcap 
huynhanh90
Kiểm tra địa chỉ Email Vote_lcapKiểm tra địa chỉ Email Voting_barKiểm tra địa chỉ Email Vote_rcap 
dosongnguyen
Kiểm tra địa chỉ Email Vote_lcapKiểm tra địa chỉ Email Voting_barKiểm tra địa chỉ Email Vote_rcap 
ltvvbdn
Kiểm tra địa chỉ Email Vote_lcapKiểm tra địa chỉ Email Voting_barKiểm tra địa chỉ Email Vote_rcap 
Top posting users this week
No user
Top posting users this month
No user
Liên Hệ Admin

 

 Kiểm tra địa chỉ Email

Go down 
Tác giảThông điệp
Admin
Administrotor
Administrotor
Admin


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

Kiểm tra địa chỉ Email Empty
Bài gửiTiêu đề: Kiểm tra địa chỉ Email   Kiểm tra địa chỉ Email Icon_minitimeThu 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
https://cntt08.forumvi.com
 
Kiểm tra địa chỉ Email
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Kiếm Tiền Online (hot)
» Thần Long HUyết Kiếm
» CÓ AI CHƠI THẦN LONG HUYẾT KIẾM CF LA LÊN NHA!!!
» BÀI KIỂM TRA ÔN THI TỐT NGHIỆP (Cấu trúc dữ liệu)
» Gửi Các Anh Em Chơi Thần Long HUyết Kiếm

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