-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
'Return False'は' MessageBox.Show'の上にあるため、 'MessageBox.Show'は実行されません。メッセージボックスを表示するには、 'Return False'の上に' MessageBox.Show'を置く必要があります。 –
@テツヤヤマモトはとてもシンプル!私は泣いていて、私は時間を邪魔しました、これはちょうどemberassing .. – Raizzen