Merge pull request #9 from bmg002/Issue2

Fix Issue #2
This commit is contained in:
kimmknight
2019-11-04 12:12:54 +11:00
committed by GitHub

View File

@@ -62,7 +62,7 @@ Module RemoteAppFunction
Public Sub ValidateDNSname(ByVal TheTextBox As TextBox)
' pattern matches any character that is NOT A-Z (allows upper and lower case alphabets)
Dim rx As New Regex("[^\p{L}0-9\-\.]")
Dim rx As New Regex("[^\p{L}LlUu0-9\-\._]")
If (rx.IsMatch(TheTextBox.Text)) Then
TheTextBox.Text = rx.Replace(TheTextBox.Text, "")
TheTextBox.Select(TheTextBox.Text.Length, 0)