AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj 09.06 2

Browse Source
This commit is contained in:
JenneJ
2016-06-09 17:06:11 +02:00
parent 70bf274971
commit 0beed4541d
1 changed files with 15 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
app/DD-Record-Organiser/ClassControlBuilder.vb
View File

@@ -983,13 +983,22 @@ Public Class ClassControlBuilder
Private Sub Textbox_Currency_Handler(sender As Object, e As EventArgs) Private Sub Textbox_Currency_Handler(sender As Object, e As EventArgs)
Dim control As TextBox = DirectCast(sender, TextBox) Dim control As TextBox = DirectCast(sender, TextBox)
Dim value As Decimal Dim value As Decimal
If Decimal.TryParse(control.Text.Trim(), value) Then Dim currencyRegex = New System.Text.RegularExpressions.Regex("[0-9,\.]*")
'control.Text = value.ToString("c") Dim match = currencyRegex.Match(control.Text)
'control.SelectionStart = control.SelectionStart + 1
control.Text = FormatCurrency(control.Text) If Not match.Success Then
'value = FormatNumber(value, -1, TriState.UseDefault, TriState.UseDefault, TriState.True) hier currency prüfen
'control.Text = value.ToString("n")
End If End If
'If Decimal.TryParse(control.Text.Trim(), value) Then
' 'control.Text = value.ToString("c")
' 'control.SelectionStart = control.SelectionStart + 1
' 'control.Text = FormatCurrency(control.Text)
' 'value = FormatNumber(value, -1, TriState.UseDefault, TriState.UseDefault, TriState.True)
' 'control.Text = value.ToString("n")
'End If
End Sub End Sub
Private Sub TextBox_Decimal_Handler(sender As Object, e As EventArgs) Private Sub TextBox_Decimal_Handler(sender As Object, e As EventArgs)