Begrænse Tal og Bogstaver i et tekstfelt

Ved at kalde funktionen og se, om din string er i en valid hex format,så kan du få den ønskede funktionalitet. Men da jeg har været et stykke tid om at svare, skal jeg da gerne komme med et eksempel.

Men imellem tiden, kan jeg da give dig den relevante del af koden

 Public Class Form1
 
     Public Function IsHex(ByVal str As String) As Boolean
         If String.IsNullOrWhiteSpace(str) Then _
         Return False
         Dim i As Int32, c As Char
         If str.IndexOf("0x") = 0 Then _
         str = str.Substring(2)
         While (i < str.Length)
             c = str.Chars(i)
             If Not (((c >= "0"c) AndAlso (c <= "9"c)) OrElse
             ((c >= "a"c) AndAlso (c <= "f"c)) OrElse
             ((c >= "A"c) AndAlso (c <= "F"c))) _
             Then
                 Return False
             Else
                 i += 1
             End If
         End While
         Return True
     End Function
     
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         If HexToColor.TextLength = 6 Then
             If IsHex(HexToColor.Text) Then
                 ColorBox.BackColor = System.Drawing.ColorTranslator.FromHtml("#" & HexToColor.Text)
             Else
                 MessageBox.Show("nogle af de indtastede tal er ikke i hex format")
             End If
         Else
             MessageBox.Show("Du skal indtaste 6 tal i hex format")
         End If
     End Sub
 End Class

Hej..

Du kunne også bruge Regex.

 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
         Dim Regex As New Regex("^[a-fA-F0-9]+$")
 
         If Regex.IsMatch(TextBox1.Text) Then
             Label1.Text = "Is HEX"
         Else
             Label1.Text = "Is not HEX"
 
         End If
 
     End Sub

Det er nok det nemmeste.

Jeg går udfra at du benytter dig af visuel studie, når du er i designer mode skal du dobbelt klikke på dit tekstfelt og så genererer den korrekte metode for dig

Hej...

Som Kevin skriver...

 Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
         Dim Regex As New Regex("^[a-fA-F0-9]+$")
 
         If Regex.IsMatch(TextBox1.Text) Then
             Label1.Text = "Is HEX"
         Else
             Label1.Text = "Is not HEX"
 
         End If
     End Sub

Nu er jeg ikke et vidunder til Visual Basic, faktisk bryder jeg mig ikke om det, men..

Kunne forstille mig at du må kunne tilføje en action listener af en art til dit textfield, så når en bruger trykker på sit keyboard, så tjekker du om det indholdet indeholder int eller tekst.

Du kan tjekke med noget text.isDigit eller noget i den dur, håber det hjalp, selvom du ikke fik noget kode.

Mvh

Efter en lille hurtig søgen på nettet fandt jeg denne løsning

 Public Function IsHex(ByVal str As String) As Boolean
     If String.IsNullOrWhiteSpace(str) Then _
         Return False
 
     Dim i As Int32, c As Char
 
     If str.IndexOf("0x") = 0 Then _
         str = str.Substring(2)
 
     While (i < str.Length)
         c = str.Chars(i)
 
         If Not (((c >= "0"c) AndAlso (c <= "9"c)) OrElse
                 ((c >= "a"c) AndAlso (c <= "f"c)) OrElse
                 ((c >= "A"c) AndAlso (c <= "F"c))) _
         Then
             Return False
         Else
             i += 1
         End If
     End While
 
     Return True
 End Function

Dette er dog ikke min egen kode; men et af eksemplerne fra denne tråd

http://stackoverflow.com/questions/223832/check-a-string-to-see-if-all-characters-are-hexadecimal-values

Håber det hjalp

Er nu rimelig ny til vb.net, så hvordan får jeg koder der, til at virke med det her:

 If HexToColor.TextLength = 6 Then
             ColorBox.BackColor = System.Drawing.ColorTranslator.FromHtml("#" & HexToColor.Text)
         End If

Efter en lille hurtig søgen på nettet fandt jeg denne løsning

VBDotNet kode 

 Public Function IsHex(ByVal str As String) As Boolean
     If String.IsNullOrWhiteSpace(str) Then _
         Return False
 
     Dim i As Int32, c As Char
 
     If str.IndexOf("0x") = 0 Then _
         str = str.Substring(2)
 
     While (i < str.Length)
         c = str.Chars(i)
 
         If Not (((c >= "0"c) AndAlso (c <= "9"c)) OrElse
                 ((c >= "a"c) AndAlso (c <= "f"c)) OrElse
                 ((c >= "A"c) AndAlso (c <= "F"c))) _
         Then
             Return False
         Else
             i += 1
         End If
     End While
 
     Return True
 End Function

Dette er dog ikke min egen kode; men et af eksemplerne fra denne tråd

http://stackoverflow.com/questions/223832/check-a-string-to-see-if-all-characters-are-hexadecimal-values

Håber det hjalp

Problemet er bare det ikke bruger en button jeg skal trykke på, men når man skriver i tekstfeltet. Har prøvet at finde ud af det, meen, gjorde det vist bare dårligere..

Ved at kalde funktionen og se, om din string er i en valid hex format,så kan du få den ønskede funktionalitet. Men da jeg har været et stykke tid om at svare, skal jeg da gerne komme med et eksempel.

Men imellem tiden, kan jeg da give dig den relevante del af koden

VBDotNet kode 

 Public Class Form1
 
     Public Function IsHex(ByVal str As String) As Boolean
         If String.IsNullOrWhiteSpace(str) Then _
         Return False
         Dim i As Int32, c As Char
         If str.IndexOf("0x") = 0 Then _
         str = str.Substring(2)
         While (i < str.Length)
             c = str.Chars(i)
             If Not (((c >= "0"c) AndAlso (c <= "9"c)) OrElse
             ((c >= "a"c) AndAlso (c <= "f"c)) OrElse
             ((c >= "A"c) AndAlso (c <= "F"c))) _
             Then
                 Return False
             Else
                 i += 1
             End If
         End While
         Return True
     End Function
     
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         If HexToColor.TextLength = 6 Then
             If IsHex(HexToColor.Text) Then
                 ColorBox.BackColor = System.Drawing.ColorTranslator.FromHtml("#" & HexToColor.Text)
             Else
                 MessageBox.Show("nogle af de indtastede tal er ikke i hex format")
             End If
         Else
             MessageBox.Show("Du skal indtaste 6 tal i hex format")
         End If
     End Sub
 End Class

Mange tak allesammen, nu virker det