edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-01 16:11:12 +02:00
parent 7f5057dc3e
commit 4b6d595a89
48 changed files with 1650 additions and 753 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb
View File

@@ -8,6 +8,7 @@ Public Class MyTextBox
Implements INotifyPropertyChanged
Property _numbersOnly As Boolean = False
Property _numbersOnlyKommastellen As String = ""
Property _numbersOnlyTrennzeichen As Boolean = True
Property _ShortDateOnly As Boolean = False ' nicht mehr public , da fehler
Property _ShortDateNew As Boolean = False
Property _DateTimeOnly As Boolean = False
@@ -294,7 +295,9 @@ Public Class MyTextBox
sender.text = sender.text.ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
pruefungHandled = True
Try
If IsNumeric(_numbersOnlyKommastellen) And IsNumeric(sender.text) Then
If Not _numbersOnlyTrennzeichen And IsNumeric(sender.text) Then
Me._value = CInt(sender.text)
ElseIf IsNumeric(_numbersOnlyKommastellen) And IsNumeric(sender.text) Then
sender.text = CDbl(sender.text).ToString("N" & _numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture)
Me._value = CDbl(sender.text)
' Else
@@ -582,7 +585,10 @@ Public Class MyTextBox
End If
ElseIf _numbersOnly Then
If IsNumeric(Me._numbersOnlyKommastellen) And IsNumeric(v) Then
If Not _numbersOnlyTrennzeichen And IsNumeric(v) Then
Propvalue = CInt(v)
Me.Text = v
ElseIf IsNumeric(Me._numbersOnlyKommastellen) And IsNumeric(v) Then
Propvalue = CDbl(v)
Me.Text = CDbl(v).ToString("N" & Me._numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture)
ElseIf IsNumeric(v) Then
@@ -623,7 +629,9 @@ Public Class MyTextBox
If _numbersOnly Then
Try
'String.Format("{0:N2}", CDbl(sender.text))
If IsNumeric(_numbersOnlyKommastellen) And IsNumeric(sender.text) Then
If Not _numbersOnlyTrennzeichen And IsNumeric(sender.text) Then
sender.text = CInt(sender.text)
ElseIf IsNumeric(_numbersOnlyKommastellen) And IsNumeric(sender.text) Then
sender.text = CDbl(sender.text).ToString("N" & _numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture)
Else
sender.text = CDbl(sender.text)