Check Chr(?) i en tekstbox

Jeg har svaret på noget lignende tidligere. Prøv at se her om ikke det hjælper:
http://www.eksperten.dk/spm/285339

Takker mange gange igjen.
Jeg har bare en lite problem nu med ' ' (mellomrom),
minimum 5 Chr lang og != UCase

Er det noen Chr() for mellomrom?

Setter opp points til 50

32

Du kan altid finde charcoden for alle dine tegn med Asc(), den "omvende" af Chr()

Fx.
Asc(" ")      ' = 32
Chr(32)    ' = " "
Chr(Asc(" "))    ' = " "

Tak for det -> martin_moth
Nu er det bare: minimum 5 Chr lang og != UCase
som er problemet :)

If Len(Trim(Text1.Text)) < 5 Then MsgBox ("under 5 tegn")

!=UCase ??

vis du mener at strengen skal være mindst 5 karakterer lang er det således:

If Len(Text1.Text) < 5 Then
  Msgbox "Strengen er for kort"

End If

For at undgå at undgå Ucase Kan du lave noget i denne retning:

strVar = Text1.Text
For i = 1 To Len(strVar)
    If Mid(strVar, i, 1) >= Chr(65) And Mid(strVar, i, 1) <= Chr(90) Then
        MsgBox "Du må ikke benytte stor bogstaver"
        Exit For
    End If
Next

Et tip:

Brug keypress-eventen til text-boxen.

Keypress-eventen bliver aktiveret hver gang der tastes et tegn i textboxen

I Keypress-evente tjekker du så længden af teksten i textboxen. Er længden større eller lig 5, tjekker du om ansi-koden på det indtastede tegn er lovlig, dvs. om det er et af de tegn du til tillade at man tegner. Er ansi-koden ikke lovlig, sætter du den lig nul, dvs. sletter det indtastede tegn. Desuden kan du bruge (Ucase() eller Lcase() hvis man kun må taske stort/småt. Det bevirker, at tekstboxen KUN kan opfatte de tegn du vælger er lovlig :o)

Jeg må indrømme, at du har formuleret dig på en måde der gør, at jeg ikke fatter hvad du spørger om - men ovenstående generelle løsning er vist vejen frem, når man kun vil tillade specielle tegn.

knico -> Det var det jeg var ude efter. ~
martin_moth -> Jeg har brugt en bit av dine tips også.
Tak for hjelpen til jere.

MVH Terra ~:)