ในการเขียนโปรแกรมบ่อยครั้งเราต้องมีการรับข้อมูลจากผู้ใช้ ดังนั้นการตรวจสอบ ข้อมูลที่เข้ามาจึงเป็นเรื่องที่สำคัญอีกอย่างหนึ่งที่ต้องพูดถึง ในที่นี้จะมาเขียนโปรแกรมเพื่อตรวจสอบการรับ อีเมล์จาก Textbox ว่าผู้ใช้ได้ป้อนถูกรูปแบบหรือไม่ โดยการใช้งาน Regular Expression ดังนี้
เตรียมความพร้อมก่อนใช้งาน
1. สร้าง Project ขึ้นมาใหม่ โดย ตั้งชื่อ Project เป็น TestEmail_format
2. ออกแบบหน้าจอดังรูป
กำหนดคุณสมบัติที่สำคัญของ TextBox
Property / คุณสมบัติ |
value / ค่า |
ความหมาย |
| Name |
TxtE_mail |
กำหนดชื่อของ TextBox ข้อแนะนำควรตั้งชื่อให้สื่อความหมายเพื่อจะเรียกใช้ในขณะเขียนโปรแกรม จะได้ทำได้ง่าย |
| ฺBackColor |
กำหนดได้ตามต้องการ |
สำหรับการกำหนดสีพื้นของ TextBox มี 3 แบบให้เลือก คือ
- Custom
- System
- Web |
ดับเบิ้ลคลิกที่ปุ่ม OK แล้วเขียนคำสั่งดังนี้
ในบรรทัดแรกสุด ของ หน้าจอ view code ให้ import namespace ดังนี้
Imports System.Text.RegularExpressions
'------------------- พิมพ์ ก่อน บบรทัดข้างล่างนี้
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim teste_mail As String
Dim emailPattern As String = _
"^([0-9a-zA-Z]+[-._+&])*[0-9a-zA-Z]+@" & _
"([-0-9a-zA-Z]+[.])+[a-zA-Z]{2,6}$"
teste_mail = TxtE_mail.Text
If Regex.IsMatch(teste_mail, emailPattern) Then
MsgBox(" อีเมล์ ของคุณคือ :: " & Space(3) & teste_mail)
Else
MsgBox("กรุณาป้อน อีเมล์ ให้ถูกรูปแบบด้วยครับ")
End If
End Sub
รันโปรแกรม แล้วจะได้ผลลัพธ์ดังนี้
ลองป้อนข้อมูลอีเมล์ที่ไม่ถูกต้อง ลงไปดังนี้
จะได้ผลลัพธ์ดังนี้
ทดลองป้อนข้อมูลอีเมล์ที่ถูกต้องดังนี้
|
VB.NET
การตรวจสอบการป้อนอีเมล์ จาก ผู้ใช้งาน