文本框格式问题

Question

我要在个文本框中输入邮箱地址，要求只能输入邮箱地址格式，请问各位怎么才能办到？在下先谢谢了！

Answer 1

private Function EmailStr(EmailName As String) As Boolean
    Dim ipart As Integer
    Dim lpart As Integer
    dim Length As Integer
    Dim isVaild As Boolean
    Dim sEmail As String
    If Len(Trim(EmailName) <= 0) Then EmailStr= False
    sEmail = Trim(EmailName)
    ipart = InStr(sEmail, "@")
    lpart = InStr(ipart + 1, sEmail, ".")        Length = Len(Trim(Mid(sEmail, lpart + 1, 3)))
        If ipart <= 0 Or lpart <= 0 Then
            isVaild = False
        ElseIf Length < 3 Then
            isVaild = False
        ElseIf ipart = 1 Then
            isVaild = False
        ElseIf lpart = Len(sEmail) Then
            isVaild = False
        Else
            isVaild = True
        End If
        EmailStr= isVaild
End Function

Answer 2

zhangzhijian(苹果) 说得对，只有当焦点离开的时候格式检查