vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Nur Zahlen-Eingabe zulassen in DataGrid 
Autor: Klaus
Datum: 27.11.02 12:04

 
'***********************************************************************************************************************
' Function : MengeEingabe(KeyAscii)
' Ereignis : Aufruf durch das Drücken einer beliebigen Taste
' Eigenschaft : Ermöglicht eine Eingabe im Format "25,50"
' Es werden nur Zahlen und Komma's zugelassen
' ----------------------------------------------------------------------------------------------------------------------
' Beschreibung : Bei Drücken der Taste "Komma" oder "Punkt" wird immer ein Komma gesetzt !!!
'***********************************************************************************************************************
Private Function MengeEingabe(KeyAscii As Integer)
Dim strchar As String
Dim k As String

' Rück-Taste ist gedrückt worden
' Vom Cursor aus gesehen , wird das linke Zeichen gelöscht !
If KeyAscii = Asc(vbBack) Then
KeyAscii = 0
k = txtEdit.SelStart
If k > 0 Then
txtEdit.Text = Mid(txtEdit.Text, 1, k - 1)
txtEdit.SelStart = k - 1
End If
Exit Function
End If

k = txtEdit.SelStart
If Len(txtEdit) >= 10 Then
Exit Function
KeyAscii = 0
End If

strchar = Chr(KeyAscii)
' Ist die gedrückte Taste ein Komma oder ein Punkt ?
' Es wird grundsätzlich ein Punkt geschrieben !
If strchar = "," Or strchar = "." Then
strchar = ","
KeyAscii = Asc(UCase(strchar))
Else
' Ist die gedrückte Taste eine Zahl ?
' falls nicht, schreibe nicht sondern bleib mit dem
' Cursor im Textfeld an gleicher Stelle stehen.
If strchar < "0" Or strchar > "9" Then
strchar = ""
KeyAscii = 0
End If
End If
txtEdit.Text = txtEdit.Text & strchar
txtEdit.SelStart = k + 1
End Function
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Nur Zahlen-Eingabe zulassen in DataGrid114kirk31.10.02 16:10
Re: Nur Zahlen-Eingabe zulassen in DataGrid65Klaus27.11.02 12:04
Re: Nur Zahlen-Eingabe zulassen in DataGrid56kirk28.11.02 17:17
Re: Nur Zahlen-Eingabe zulassen in DataGrid759SL29.11.02 09:17

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel