استفاده از کلید "+" به جای 000

[hadgph]

با سلام
من برای اضافه کردن 000 به هنگام تایپ "+"، از کد زیر استفاده کردم، ولی مشکلی که هست به جا ماندن "+" و قرارگرفتن کرسر موس در ابتدای خط است
دوستان کد بهتری سراغ دارند؟
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
Dim KeyAscii As Short = Asc(e.KeyChar)
If KeyAscii = 43Then
TextBox1.Text += "000"

End If

End Sub

[sina_saravi1]

با سلام
من برای اضافه کردن 000 به هنگام تایپ "+"، از کد زیر استفاده کردم، ولی مشکلی که هست به جا ماندن "+" و قرارگرفتن کرسر موس در ابتدای خط است
دوستان کد بهتری سراغ دارند؟
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
Dim KeyAscii As Short = Asc(e.KeyChar)
If KeyAscii = 43Then
TextBox1.Text += "000"

End If

End Sub

سلام
از کد زیر استفاده کن
کاربرد handled رو هم یاد بگیر :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = "+" Then
e.Handled = True
TextBox1.Text += "000"
TextBox1.Select(TextBox1.Text.Length, 0)
End If
End Sub