主题：在窗口的textbox格式问题

validating事件

Dim reg = new System.Text.RegularExpressions.Regex("^[a-zA-Z0-9_-]+@[a-zA-Z0-9_-]+(\.[a-zA-Z0-9_-]+)+$")
If e.sender.text > "" AndAlso reg.Ismatch(e.sender.text) = False Then
    msgbox("不符合")
    e.cancel = True
Else
    msgbox("符合")
End If