Replace a decimal point with a comma-character

Summary:

Sometimes you want to do this to make some calculations with the entered values

Replace a decimal point with a comma-character

MyWiki 12 Oct 2006 06:33

Private _commaCharacter as String

Private ReadOnly Property CommaCharacter() As String
Get

If _commaCharacter Is Nothing Then
Dim i As Double = 5 / 2
_commaCharacter = i.ToString().Substring(1, 1)
End If
Return _commaCharacter

End Get
End Property

Private Sub VKPJanusGridEX_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

If e.KeyCode = Keys.Decimal Then
e.Handled = True
SendKeys.Send("{BACKSPACE}" & CommaCharacter)
End If

End Sub