VB6 TextBox μόνο για αριθμούς;;

[kwstarikanos]

Γειά σας ,

Πως μπορώ να κάνω ένα textbox στην Visual Basic 6 να δέχεται μόνο αριθμούς στην πληκτρολόγιση

ή όταν γραφτεί κάτι άλλο εκτός από αριθμό να εμφανίζει μήνυμα σφάλματος;

(Έχω ψαξει στο site ανάλογο θέμα και δεν βρήκα κάτι..)

[firewalker]

Βάζεις στο event KeyPress του textbox να ψάχνει αν το KeyAscii είναι μεταξύ 48 και 57 (0 έως 9). Πιθανόν και 46 που είναυ υποδιαστολή (.). Αν δεν είναι πάει να πει πως δεν είναι αριθμός.

[kwstarikanos]

Βάζεις στο event KeyPress του textbox να ψάχνει αν το KeyAscii είναι μεταξύ 48 και 57 (0 έως 9). Πιθανόν και 46 που είναυ υποδιαστολή (.). Αν δεν είναι πάει να πει πως δεν είναι αριθμός.

 

Ευχαριστώ για τη γρήγορη απάντηση, όμως δεν κατάλαβα πως ακριβώς να το συντάξω..

 

ακόμα να σου πω πως στο συμβάν change του κάθε textbox έχω γράψει call calulate και κάθε φορά που αλάζει κάτι στο textbox καλεί την εντολή calculate από το module1,

αν γραφτεί εκείνη την ώρα κατα λάθος καποιο γράμμα αντί για αριθμό βγάζει σφάλμα όλο το πρόγραμμα και τερματίζει την εφαρμογή με ένα μήνυμα << run time 13 error>>

γιαυτό χρειάζομαι κάποιο τρόπο να μην καταχωρούνται γράμματα..

[firewalker]

Υποθέτω κάτι σαν το παρακάτω.

 

>
Private Sub Text1_KeyPress(KeyAscii As Integer)
   IF KeyAscii < 48 OR KeyAscii > 57 OR KeyAscii <> 46
       msgbox "μόνο αριθμούς"
       Text1.text=""
   END IF
End Sub

 

Η σύνταξη δεν ξέρω αν είναι σωστή. Δεν χρησιμοποιώ πλέον Windows και VB.

[ΠάρηςΓ]

βασικα νομιζω πως η παραμετρος ειναι αλλη...

Ειναι πολυ παλαια η vb6

[leukonas]

Ρίξε μια ματιά εδώ

 

http://www.vbforums.com/showthread.php?t=350067

[geo1st487]

Δες το επισυναπτόμενο.

ControlTextBox.zip

[kwstarikanos]

Ευχαριστώ πολύ, με βοήθησαν τα παραδείγματα

Υπάρχει κάνένας οδηγός να δείχνει ακριβώς σε πιο αριθμό αντιστοιχεί κάθε πλήκτρο και από που αρχίζει να μετράει;

[virxen75]

Ευχαριστώ πολύ, με βοήθησαν τα παραδείγματα

Υπάρχει κάνένας οδηγός να δείχνει ακριβώς σε πιο αριθμό αντιστοιχεί κάθε πλήκτρο και από που αρχίζει να μετράει;

 

 

μάλλον ψάχνεις αυτό

http://www.ascii.ca/cp1253.htm

[kwstarikanos]

μάλλον ψάχνεις αυτό

http://www.ascii.ca/cp1253.htm

 

Thanx φίλε αυτό έψαχνα!