قراءه اخر حرف تم كتابته فى صندوق النص

جرب إحدى الطريقتين وذلك حسب حاجة برنامجك

1- في حدث النقر على زر

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Try
			Me.TextBox2.Text = Me.TextBox1.Text.Chars(Me.TextBox1.TextLength - 1)
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try
	End Sub

2 - أثناء قيام المستخدم بالكتابة في صندوق النصوص استخدم الحدث Keypress كما يلي

	Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
		Me.TextBox2.Text = e.KeyChar
	End Sub

السلام عليكم ورحمة الله وبركاته

يبدو أنه تم الحل ولكن هذه طريقة أخرى

وبالتوفيق

WindowsApplication3.zip

محمد سامر أبو سلو كتب:

جرب إحدى الطريقتين وذلك حسب حاجة برنامجك

1- في حدث النقر على زر

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Try
			Me.TextBox2.Text = Me.TextBox1.Text.Chars(Me.TextBox1.TextLength - 1)
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try
	End Sub

2 - أثناء قيام المستخدم بالكتابة في صندوق النصوص استخدم الحدث Keypress كما يلي

	Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
		Me.TextBox2.Text = e.KeyChar
	End Sub

شكرا على الرد وجزاك الله خيرا هذا ما اكنت اريده فعلا