VB: nur Zahleneingabe

VB: nur Zahleneingabe (28 Beiträge, 253 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

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

Welche VB Version?

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

No Sig

Dieser Beitrag bezieht sich auf eine ältere Version des beantworteten Postings!

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)?
_____________________________________________________________________

mfg

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

No Sig

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

mfg

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,

greetz

glockman

- Ich bin ein Geek und steh dazu -

Japan vs. USA

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?

_____________________________________________________________________

mfg

12.02.2007, 22:14 Uhr - Editiert von Lord Chancellor, alte Version: hier

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.

greetz

glockman

- Ich bin ein Geek und steh dazu -

Japan vs. USA

passt, werd ich morgen probieren
_____________________________________________________________________

mfg

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
_____________________________________________________________________

mfg

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

mfg

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

No Sig

txt_betrag2

etc.
_____________________________________________________________________

mfg

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
THE ONLY WINNING MOVE IS NOT TO PLAY

Fehlermeldung:

gwl_style nicht definiert
_____________________________________________________________________

mfg

Entschuldigung, habe ich vergessen.

Vor den API-Deklarationen:

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

THE ONLY WINNING MOVE IS NOT TO PLAY

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
_____________________________________________________________________

mfg

13.02.2007, 16:49 Uhr - Editiert von Lord Chancellor, alte Version: hier

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

Aber hoffe, dass dir dieser Tipp hilft.

THE ONLY WINNING MOVE IS NOT TO PLAY

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

mfg

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
THE ONLY WINNING MOVE IS NOT TO PLAY

selbiges problem mit der fehlermeldung bleibt vorhanden
_____________________________________________________________________

mfg

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.
THE ONLY WINNING MOVE IS NOT TO PLAY

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)
_____________________________________________________________________

mfg

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.

16.02.2007, 11:49 Uhr - Editiert von user96106, alte Version: hier

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