Impressum | Werbung

Geizhals » Forum » Programmierung » VB: nur Zahleneingabe (28 Beiträge, 259 Mal gelesen) Top-100 | Fresh-100

^ Forum  Programmierung  #3956440 VB: nur Zahleneingabe Lord Chancellor 12.02.2007, 18:49:49 ich habe ein formular mit einigen textfeldern in vb erstellt... die textfelder heissen: txt_betrag1 txt_betrag2 ... in einem textfeld soll man jedoch nur das komma und die zahlen von 0 - 9 eingeben können. dazu habe ich folgenden code eingefügt: Private Sub txt_betrag1_KeyPress(KeyAscii As Integer) Select Case KeyAscii     Case 44, 48 To 57     Case Else       KeyAscii = 0   End Select End Sub wenn ich den code über die insgesamt 80 textfelder kopieren, funktioniert dies nicht, da "die Prozedur der Beschreibung des Ereignisses" nicht entspricht was mache ich falsch? kann ich die 80 textfelder irgendwie mit einem code sperren (also nicht alle 80 felder einzeln sperren ) -----EDIT----- hier der code für die zahlensperre in einem textfeld: Private Sub txt_betrag1_KeyPress(KeyAscii As Integer) Select Case KeyAscii     Case 44, 48 To 57     Case Else     KeyAscii = 0     MsgBox ("Bitte Zahl eingeben!") End Select    End Sub wenn ich diesen code auf die anderen textfelder übertragen möchte (egal ob mit kopieren oder händisch schreiben) kommt folgende fehlermeldung: _____________________________________________________________________ mfg 13.02.2007, 12:13 Uhr - Editiert von Lord Chancellor, alte Version: hier   Re: VB: nur Zahleneingabe  (Somnatic am 12.02.2007, 18:53:28)   Re(2): VB: nur Zahleneingabe  (Lord Chancellor am 12.02.2007, 18:55:25)   Re(3): VB: nur Zahleneingabe  (Somnatic am 12.02.2007, 19:17:17)   Re(4): VB: nur Zahleneingabe  (Lord Chancellor am 12.02.2007, 21:03:17)   Re(5): VB: nur Zahleneingabe  (Glockman am 12.02.2007, 22:10:05)   Re(6): VB: nur Zahleneingabe  (Lord Chancellor am 12.02.2007, 22:14:16)   Re(7): VB: nur Zahleneingabe  (Glockman am 12.02.2007, 22:25:56)   Re(8): VB: nur Zahleneingabe  (Lord Chancellor am 12.02.2007, 22:34:57)   Re(8): VB: nur Zahleneingabe  (Lord Chancellor am 13.02.2007, 12:13:56)   Re(4): VB: nur Zahleneingabe  (Lord Chancellor am 13.02.2007, 12:13:24)   Re(5): VB: nur Zahleneingabe  (Somnatic am 13.02.2007, 13:50:21)   Re(6): VB: nur Zahleneingabe  (Lord Chancellor am 13.02.2007, 13:52:12)   Re(7): VB: nur Zahleneingabe  (longjohnsilva am 13.02.2007, 14:20:04)   Re(8): VB: nur Zahleneingabe  (Lord Chancellor am 13.02.2007, 14:24:29)   Re(9): VB: nur Zahleneingabe  (longjohnsilva am 13.02.2007, 14:33:20)   Re(10): VB: nur Zahleneingabe  (Lord Chancellor am 13.02.2007, 15:41:28)   Re(11): VB: nur Zahleneingabe  (longjohnsilva am 14.02.2007, 07:35:43)   Re(12): VB: nur Zahleneingabe  (Lord Chancellor am 14.02.2007, 12:09:27)   Re(13): VB: nur Zahleneingabe  (longjohnsilva am 14.02.2007, 15:45:42)   Re(14): VB: nur Zahleneingabe  (Lord Chancellor am 15.02.2007, 14:32:00)   Re(15): VB: nur Zahleneingabe  (longjohnsilva am 16.02.2007, 07:30:14)   Re(16): VB: nur Zahleneingabe  (Lord Chancellor am 16.02.2007, 07:59:18) ^ Forum  Programmierung  #3962714 Re(17): VB: nur Zahleneingabe user96106 16.02.2007, 11:49:17 [Code]Option Explicit Private Sub txttestbox1_KeyPress(KeyAscii As Integer)     Select Case KeyAscii         Case 44, 48 To 57         Case Else         KeyAscii = 0         MsgBox ("Bitte Zahl eingeben!")     End Select End Sub Private Sub txttextbox2_KeyPress(KeyAscii As Integer)     Select Case KeyAscii         Case 44, 48 To 57         Case Else         KeyAscii = 0         MsgBox ("Bitte Zahl eingeben!")     End Select End Sub Private Sub txttextbox3_KeyPress(KeyAscii As Integer)     Select Case KeyAscii         Case 44, 48 To 57         Case Else         KeyAscii = 0         MsgBox ("Bitte Zahl eingeben!")     End Select End Sub Private Sub txttextbox4_KeyPress(KeyAscii As Integer)     Select Case KeyAscii         Case 44, 48 To 57         Case Else         KeyAscii = 0         MsgBox ("Bitte Zahl eingeben!")     End Select End Sub Private Sub txttextbox5_KeyPress(KeyAscii As Integer)     Select Case KeyAscii         Case 44, 48 To 57         Case Else         KeyAscii = 0         MsgBox ("Bitte Zahl eingeben!")     End Select End Sub Private Sub txttextbox6_KeyPress(KeyAscii As Integer)     Select Case KeyAscii         Case 44, 48 To 57         Case Else         KeyAscii = 0         MsgBox ("Bitte Zahl eingeben!")     End Select End Sub Private Sub txttextbox7_KeyPress(KeyAscii As Integer)     Select Case KeyAscii         Case 44, 48 To 57         Case Else         KeyAscii = 0         MsgBox ("Bitte Zahl eingeben!")     End Select End Sub Private Sub txttextbox8_KeyPress(KeyAscii As Integer)     Select Case KeyAscii         Case 44, 48 To 57         Case Else         KeyAscii = 0         MsgBox ("Bitte Zahl eingeben!")     End Select End Sub Private Sub txttextbox9_KeyPress(KeyAscii As Integer)     Select Case KeyAscii         Case 44, 48 To 57         Case Else         KeyAscii = 0         MsgBox ("Bitte Zahl eingeben!")     End Select End Sub Private Sub txttextbox10_KeyPress(KeyAscii As Integer)     Select Case KeyAscii         Case 44, 48 To 57         Case Else         KeyAscii = 0         MsgBox ("Bitte Zahl eingeben!")     End Select End Sub [/Code] hab gerade eben in visual basic 5.0 SP3 ein standard-exe projekt mit 10 textboxen (txttextbox1 - txttextbox10, nicht als array verbunden, mit obengenannten code erstellt. irgendwas musst du falsch gemacht haben, denn bei mir funktioniert das keypress event auf allen 10 textboxen. bist dir sicher, dass du nicht irgendwo eine funktion doppelt hast oder falsch geschrieben hast. bei 80 textboxen kann man sich schon mal vertippen. [ Dieser Beitrag wurde inzwischen editiert. Die aktuelle Version befindet sich hier. ]   Re(17): VB: nur Zahleneingabe  (user96106 am 16.02.2007, 11:49:17)

 

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung