VB: nur Zahleneingabe

Re(17): VB: nur Zahleneingabe

user96106 — Fri, 16 Feb 2007 10:49:17 GMT

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

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.

Re(17): VB: nur Zahleneingabe

user96106 — Fri, 16 Feb 2007 10:49:17 GMT

[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.

Re(16): VB: nur Zahleneingabe

Lord Chancellor — Fri, 16 Feb 2007 06:59:18 GMT

hab ich schon gemacht, bei einer einzelnen textbox funktioniert das ganze einwandfrei...

jedoch wenn ich die einstellungen für eine 2. textbox angebe kommt die besagte fehlermeldung (gleicher name etc. - obwohl jedes feld txt_betrag1, txt_betrag2, .... heisst)

Re(15): VB: nur Zahleneingabe

longjohnsilva — Fri, 16 Feb 2007 06:30:14 GMT

Bist du dir sicher, dass deine KeyPress-Funktion richtig geschrieben ist??

Ich glaube nämlich, dass VB deine Funktion nicht erkennt.

Lösche die Funktion einmal und lasse sie mit dem VB-Studio erstellen.

Oben in der linken Combobox über dem Editor die gewünschte Textbox auswählen und danach in der Rechten "KeyPress" auswählen.

Re(14): VB: nur Zahleneingabe

Lord Chancellor — Thu, 15 Feb 2007 13:32:00 GMT

selbiges problem mit der fehlermeldung bleibt vorhanden

Re(13): VB: nur Zahleneingabe

longjohnsilva — Wed, 14 Feb 2007 14:45:42 GMT

Dann schreibe eine Funktion, die als Byref Parameter den KeyAscii-Wert hat.

Private Sub CheckNumeric(Byref iKey As Integer)

Select Case iKey
    Case 44, 48 To 57
    Case Else
    iKey = 0
    MsgBox ("Bitte Zahl eingeben!")
End Select

End Sub

und im Event rufst du sie so auf:

Private Sub txt_betrag1_KeyPress(KeyAscii As Integer)

  CheckNumeric KeyAscii

End Sub

Re(12): VB: nur Zahleneingabe

Lord Chancellor — Wed, 14 Feb 2007 11:09:27 GMT

der code von deinem tipp funktioniert einwandfrei, jedoch bleibt das problem (erster beitrag, edit) weiter vorhanden...

Re(11): VB: nur Zahleneingabe

longjohnsilva — Wed, 14 Feb 2007 06:35:43 GMT

Ich weiß leider nicht wie man hier ein Komma eingibt.

Aber hoffe, dass dir dieser Tipp hilft.

Re(10): VB: nur Zahleneingabe

Lord Chancellor — Tue, 13 Feb 2007 14:41:28 GMT

thx, funktioniert...

wie kann ich jedoch noch das komma bzw. den punkt freischalten

Re(10): VB: nur Zahleneingabe

Lord Chancellor — Tue, 13 Feb 2007 14:41:28 GMT

thx, funktioniert...

wie kann ich jedoch noch das komma bzw. den punkt freischalten

EDIT:

folgendes problem tritt ebenfalls auf:

ich kann einen buchstaben eingeben, dann geht mit den buchstaben nichts mehr...
wenn ich den buchstaben aus dem feld lösche und dann erneut einen buchstaben eingeben möchte kann man diese wie erwünscht nich mehr eingeben, sondern nur mehr zahlen

Re(9): VB: nur Zahleneingabe

longjohnsilva — Tue, 13 Feb 2007 13:33:20 GMT

Entschuldigung, habe ich vergessen.

Vor den API-Deklarationen:

Private Const GWL_STYLE = (-16)
Private Const ES_NUMBER = &H2000

Re(8): VB: nur Zahleneingabe

Lord Chancellor — Tue, 13 Feb 2007 13:24:29 GMT

Fehlermeldung:

gwl_style nicht definiert

Re(7): VB: nur Zahleneingabe

longjohnsilva — Tue, 13 Feb 2007 13:20:04 GMT

Diese Problem kann man mit API-Calls lösen:

Diese 2 Calls ganz oben unter dem "Option Explicit":

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

und hier dann beim Change-Event der Textbox

Private Sub txtbetrag1_Change()
  'nur numerische Eingaben akzeptieren
  Dim lngHwnd As Long
  Dim lngReturn As Long

  lngHwnd = GetWindowLong(txtbetrag1.hWnd, GWL_STYLE)
  lngReturn = SetWindowLong(txtbetrag1.hWnd, GWL_STYLE, lngHwnd Or ES_NUMBER)
End Sub

Re(6): VB: nur Zahleneingabe

Lord Chancellor — Tue, 13 Feb 2007 12:52:12 GMT

txt_betrag2

etc.

Re(5): VB: nur Zahleneingabe

Somnatic — Tue, 13 Feb 2007 12:50:21 GMT

wie heissen denn die restlichen textfelder (property: name)?

Re(8): VB: nur Zahleneingabe

Lord Chancellor — Tue, 13 Feb 2007 11:13:56 GMT

http://forum.geizhals.at/t477746,3956440.html#3956440

die isnumeric ist nicht das passende, habs grad probiert, funktioniert nicht so wie ich mir das vorstelle

Re(4): VB: nur Zahleneingabe

Lord Chancellor — Tue, 13 Feb 2007 11:13:24 GMT

http://forum.geizhals.at/t477746,3956440.html#3956440

Re(8): VB: nur Zahleneingabe

Lord Chancellor — Mon, 12 Feb 2007 21:34:57 GMT

passt, werd ich morgen probieren

Re(7): VB: nur Zahleneingabe

Glockman — Mon, 12 Feb 2007 21:25:56 GMT

wenn ich dass so lese, kann ich die funktion wirklich erst beim summenziehen verwenden, oder?

Nicht unbedingt, mach den Check beim LostFocus-Ereignis der Textbox, dann kann man drin tippen was man will, erst beim Verlassen wird die Überprüfung durchgeführt.

Re(6): VB: nur Zahleneingabe

Lord Chancellor — Mon, 12 Feb 2007 21:14:16 GMT

mit ein wenig "russischer" Programmierung das auch erst bei der Berechnung abfragen

ganz so russisch möchte ich es nicht

möchte einfach direkt die eingabe von div. zeichen verhindern

---

was ist die isnumeric funktion, sagt mir überhaupt nichts

---

EDIT:

http://www.vbarchiv.net/commands/IsNumeric.php

wenn ich dass so lese, kann ich die funktion wirklich erst beim summenziehen verwenden, oder?

Re(6): VB: nur Zahleneingabe

Lord Chancellor — Mon, 12 Feb 2007 21:14:16 GMT

mit ein wenig "russischer" Programmierung das auch erst bei der Berechnung abfragen

ganz so russisch möchte ich es nicht

möchte einfach direkt die eingabe von div. zeichen verhindern

---

was ist die isnumeric funktion, sagt mir überhaupt nichts

Re(5): VB: nur Zahleneingabe

Glockman — Mon, 12 Feb 2007 21:10:05 GMT

Hi!

Es gibt eine IsNumeric()-Funktion, die Du auf die Textfelder loslassen kannst; die müsste es unter VB6 schon gegeben haben.

Du könntest mit ein wenig "russischer" Programmierung das auch erst bei der Berechnung abfragen (eine Schleife basteln, die Dir die Textfelder durchläuft) und nachher auch ganz genau sagen, wo der Hund liegt.

hth,

Re(4): VB: nur Zahleneingabe

Lord Chancellor — Mon, 12 Feb 2007 20:03:17 GMT

das ganze soll ein kleines programm für einen bauern werden der einen kleinen verkauf hat.

da dieser eine tageslosung führen muss, hat mich gefragt ob ich ihm eine kleinigkeit mache.

----

in den 80 textfeldern kann er die einzelnen beträge hineinschreiben, dann wird unten mit einem "berechnen - button" die summe gezogen

mit diversen anderen buttons kann er das formular dann drucken, speichern und wieder ein neues öffnen

---

das problem mit einfügen ... ist bei ihm eher nicht gegeben

beim beschränken nur auf zahlen geht es mir darum, das er sich nicht versehentlich vertippen kann.

Re(3): VB: nur Zahleneingabe

Somnatic — Mon, 12 Feb 2007 18:17:17 GMT

erklär mal ein bischen was das ganze ding denn tun soll ...

ich kanns mir momentan nämlich nicht vorstellen ..

btw: was passiert wenn ich in der zwischenablage buchstaben habe und diese mittels Rechtsklick->Einfügen ins textfeld paste -> Problem

Re(2): VB: nur Zahleneingabe

Lord Chancellor — Mon, 12 Feb 2007 17:55:25 GMT

vb 6.0

habs array im vorhinein vergessen, und das ganze neu machen ... ich bin einfach zu faul

und im nachhinein geht das ja nicht, oder (oder bin ich hier falsch informiert)?

Re: VB: nur Zahleneingabe

Somnatic — Mon, 12 Feb 2007 17:53:28 GMT

Welche VB Version?

Wennst viele Textfelder hast erstellt man doch da normalerweise ein Array an Textfeldern (das ging imho sogar schon in VB3 ).

VB: nur Zahleneingabe

Lord Chancellor — Mon, 12 Feb 2007 17:49:49 GMT

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:

VB: nur Zahleneingabe

Lord Chancellor — Mon, 12 Feb 2007 17:49:49 GMT