Ciao,
codice:Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown If e.KeyCode = Keys.Decimal Then e.SuppressKeyPress = True TextBox1.AppendText(",") End If End Sub
Ciao,
codice:Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown If e.KeyCode = Keys.Decimal Then e.SuppressKeyPress = True TextBox1.AppendText(",") End If End Sub
Jupy