2017-12-13 10 views
-1

正規表現で初めて自分自身を試しました。
なぜメッセージボックスが表示されないのですか(「Plsは有効なメールを挿入します!」)本文が間違っていますか?正規表現が動作しない理由

私は正規表現

Imports System.Text.RegularExpressions 

を輸入し、その後、私は

Function emailAddressChecker() As Boolean 
    Dim regex As Regex = Nothing 
    Dim regExPattern As String = "^[a-zA-Z0-9._%+-][email protected][a-zA-Z0-9.-]+\.[a-zA-Z]{2,4}$" 
    Dim emailAddress = txtbx_neueEmail.Text 
    If Regex.IsMatch(emailAddress, regExPattern) Then 
     Return True 
    Else 
     Return False 
     MessageBox.Show("Pls insert a valid mail!") 
     txtbx_neueEmail.Text = "" 
    End If 
End Function 

私の機能を書いた後、私は

Private Sub btn_BestaetigeBearbeitung_Click(sender As Object, e As RoutedEventArgs) Handles btn_BestaetigeBearbeitung.Click 
    If combx_Auswahl.SelectedIndex = 0 Then 
     emailAddressChecker() 
     If emailAddressChecker() = True 
      MessageBox.Show("Hallo!") 
     Else 
      MessageBox.Show("") 
     End If 
+1

'Return False'は' MessageBox.Show'の上にあるため、 'MessageBox.Show'は実行されません。メッセージボックスを表示するには、 'Return False'の上に' MessageBox.Show'を置く必要があります。 –

+0

@テツヤヤマモトはとてもシンプル!私は泣いていて、私は時間を邪魔しました、これはちょうどemberassing .. – Raizzen

答えて

1

何もReturn文の後に実行されない場合には、私の機能を使用し、コードの順序を次のように変更する必要があります。

Else 
    MessageBox.Show("Pls insert a valid mail!") 
    txtbx_neueEmail.Text = "" 
    Return False 
End If 
関連する問題