TextField-Problem
Übersicht
BlitzBasic BlitzPlus
NewSamuraiBetreff: TextField-Problem |
 Do, Jul 15, 2004 17:51Antworten mit Zitat 
|
|
|---|---|---|
|
HI Leuz!
Wie um alles in der Welt schaffe ich es dass der Anwender in ein Textfeld nur Zahlen eingeben kann? Oder dass zumindestens bei einem Buchstaben eine Fehlermeldung kommt?? THX NewSamurai |
||
|
Suco-XBetreff: ...... |
Do, Jul 15, 2004 19:35 Antworten mit Zitat
|
|---|---|---|
|
Joa, habe dir kleines Beispiel gemacht. So kann man nur Zahlen eingeben.
Code: [AUSKLAPPEN] window = CreateWindow("Textfield Test",100,100,500,500,0,7) textfeld = CreateTextField(10,50,300,20,window) Repeat Select WaitEvent() Case $803 quit = 1 Case $401 old_text$ = TextFieldText(textfeld) If EventSource() = textfeld If EventData()>48 And EventData()<58 Else SetGadgetText(textfeld,""+Left(old_text$,Len(old_text)-1)) EndIf EndIf End Select Until quit = 1 Das ganze kannst du auch auf bestimmte Buchstaben Asciis ausweiten. Siehe Ascii tabelle auf blitzbase.de um den nutzen von EventData() zu verstehen. bye |
||
| Intel Core 2 Quad Q8300, 4× 2500 MHz, 4096 MB DDR2-Ram, GeForce 9600GT 512 MB | ||
NewSamurai |
Sa, Jul 17, 2004 17:15 Antworten mit Zitat
|
|
|---|---|---|
|
Danke für die schnelle und gute Antwort! Jetzt klappts!
NewSamurai |
||
Übersicht
BlitzBasic BlitzPlus
Powered by phpBB © 2001 - 2006, phpBB Group