• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Simple Regular Expressions Tester ....

Simple Regular Expressions Tester ....

Simple Regular Expressions Tester ....

Rate Simple Regular Expressions Tester ....

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Private Function TestRegularExpression(ByVal TestValue As Object, ByVal TestPattern As String) As Boolean

        TestRegularExpression = False

        If Regex.IsMatch(TestValue, TestPattern) Then
            TestRegularExpression = True
        Else
            TestRegularExpression = False
        End If

        Return TestRegularExpression

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Ans As Boolean = False

        Try

            Ans = TestRegularExpression(TextBox2.Text.ToString().Trim(), TextBox1.Text.ToString().Trim())

            If Ans = True Then
                MessageBox.Show("Correct", "Regular Expressions", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show("Not Correct", "Regular Expressions", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End If

        Catch ex As Exception

            MessageBox.Show(ex.Message, "Error ...", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try
        

    End Sub

End Class