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

JJ_23_11

Browse Source
This commit is contained in:
JenneJ
2015-11-23 15:24:55 +01:00
parent 9b795bdc69
commit 9868b7d19b
2 changed files with 12 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -298,17 +298,17 @@ Public Class ClassControlBuilder
' =========================
Private Sub AddTextHandler(control As TextBox, format As String)
If format = "Currency" Then
AddHandler control.TextChanged, AddressOf Textbox_Currency_Handler
AddHandler control.Leave, AddressOf Textbox_Currency_Handler
ElseIf format = "Decimal" Then
AddHandler control.TextChanged, AddressOf TextBox_Decimal_Handler
AddHandler control.Leave, AddressOf TextBox_Decimal_Handler
End If
End Sub
Private Sub AddComboHandler(control As ComboBox, format As String)
If format = "Currency" Then
AddHandler control.TextChanged, AddressOf Combo_Currency_Handler
AddHandler control.Leave, AddressOf Combo_Currency_Handler
ElseIf format = "Decimal" Then
AddHandler control.TextChanged, AddressOf Combo_Decimal_Handler
AddHandler control.Leave, AddressOf Combo_Decimal_Handler
End If
AddHandler control.KeyUp, AddressOf AutoCompleteCombo_KeyUp
End Sub
@@ -317,9 +317,11 @@ Public Class ClassControlBuilder
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.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
@@ -337,6 +339,8 @@ Public Class ClassControlBuilder
If Decimal.TryParse(control.Text.Trim(), value) Then
control.Text = value.ToString("c")
control.SelectionStart = control.SelectionStart + 1
'value = FormatNumber(value, -1, TriState.UseDefault, TriState.UseDefault, TriState.True)
'control.Text = value.ToString("n")
End If
End Sub