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
Show Stats 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)
Dim control As TextBox = DirectCast(sender, TextBox)
Dim value As Decimal
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")
Dim currencyRegex = New System.Text.RegularExpressions.Regex("[0-9,\.]*")
Dim match = currencyRegex.Match(control.Text)
If Not match.Success Then
hier currency prüfen
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
Private Sub TextBox_Decimal_Handler(sender As Object, e As EventArgs)