Public sDecimalSeparator As String = System.Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbQ.KeyPress, tbV.KeyPress ' Zahlen Dim sChars As String = "0123456789" ' Backspace (Delete) sChars = sChars & ControlChars.Back ' akt. Dezimalseparator sChars = sChars & sDecimalSeparator ' Akt. Taste in der sChars-Liste? Wenn ja, Tastendruck verwerfen (als "behandelt" setzen). e.Handled = (sChars.IndexOf(e.KeyChar) < 0) End Sub
Kategorien
-
Neueste Beiträge
- [RAP] ODATA V4 Service und Fiori Elements App implementieren
- [ABAP] Übernahme von Dokumenteninfosätzen beim Anlegen von Einkaufsbelegen unterdrücken
- [ABAP] OpenSQL: Stringfunktionen
- [ABAP] OpenSQL: NULL-Indicator zum Anzeigen von leeren Rückgabemengen
- [ABAP] OpenSQL: Set-Indicator für das Aktualisieren von Spalten
- [ABAP] Repository-Infosystem: Views zu Objekten
- [ABAP] SALV-Table – Gruppen für Spaltenvorrat im SALV-Layout
- [ABAP] Retourenumlagerungsbestellungen lesen
- [SAP] Fabrikkalender / Feiertagskalender einrichten
- [ABAP] ABAP2XLSX: CSV-Datei schreiben