Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress If e.KeyChar = Convert.ToChar(13) Then Try TextBox1.Text = FormatNumber(TextBox1.Text) Catch MessageBox.Show("Erreur saisie") TextBox1.Text = String.Empty End Try End If End Sub
Private Sub Text1_TextChanged(sender As Object, e As EventArgs) Handles Text1.TextChanged If Text1.Text <> "" Then Dim MonNombre As Decimal = Text1.Text Dim Resultat As String = MonNombre.ToString("### ### ###.##") Text1.Text = Resultat Text1.SelectionStart = Len(Text1.Text) End If End Sub
Private Sub Text1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Text1.KeyPress If Not Char.IsControl(e.KeyChar) AndAlso Not (Char.IsNumber(e.KeyChar)) AndAlso e.KeyChar <> "."c Then e.Handled = True End If If e.KeyChar = Chr(13) Then SendKeys.Send("{TAB}") End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionTextBox2.Focus()