nur bestimmte Zeichen in einer Textbox

[mezzomix]

Hallo, ich bins mal wieder !

Ich möchte in einer Textbox nur bestimmte Zeichen zulassen (0,1,2,3,4,5,6,7,8,9,.)

Habe dass versucht mit dem Keypress event und dann:

If key = Chr(46) Then 
        Else      
            TextBox3.IgnoreKey
            End If

Leider bekomme ich es nur hin dass ich nur ein Zeichen (und kein anderes) eingeben kann.



Gruß
mezzomix

[klaus]

Eine Lösung unter Anderen ist diese:

<font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Sub </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">TextBox3_KeyPress (key)</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"> If</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> key<></font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"0"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">AND</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> key<></font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"1"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">AND</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> key<></font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"2"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Then</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">   TextBox3.IgnoreKey</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"> End</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font>
<font size="2"><font face="Courier New"><font color="#0000ff">End Sub</font></font></font></font></font></font></font></font></font>

Beste Grüsse.

[mezzomix]

Danke schonmal!
Jetzt ist mir noch aufgefallen dass ich ja garkein backspace drücken kann. habe dass versucht so dranzuhängen - AND key <> 8 - aber das geht so nicht

Gruss
mezzomix

[klaus]

Hier musst Du es so schreiben:

<font color="#0000ff">Sub </font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">TextBox3_KeyPress (key)</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> key<></font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"0" </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">AND</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> key<></font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"1" </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">AND</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> key<></font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"2" <font color="#0000ff">AND</font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"><font color="#000000"> key<>Chr(8) </font></font></font></font></font></font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Then</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">TextBox3.IgnoreKey</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">End </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font>
<font size="2"><font face="Courier New"><font color="#0000ff">End Sub</font></font></font></font></font></font></font></font></font>

Beste Grüsse.

[mezzomix]

Dank Dir!!

[Filippo]

Hallo mezzomix,

hier noch eine Variante:

Sub TextBox1_KeyPress (key)
    If StrIndexOf ("0123456789." & Chr(8) , key,0) = -1 Then
        TextBox1.IgnoreKey
    End If
End Sub

oder noch besser mit hilfe von http://www.basic4ppc.com/forum/addit...s-library.html.
Schau dir einfach die Beispiele an.


Ciao,
Filippo

[mezzomix]

Ich komme nicht mal auf eine Methode und dann gibt es gleich mehrere

Danke euch!

gruß mezzomix

[klaus]

Hallo Filippo,

Deine Variante gefällt mir !
Kürzerer, übersichtlicher und wahrscheinlich auch schnellerer Code.

Beste Grüsse.

[Filippo]

Hallo Klaus,

ich verwende diese Variante in meine Library "fgControls" schon lange.

Bei diese gelegenheit wünsche dir und deine Familie Fröhliche Weihnachten.


Filippo