الانتقال داخل حقل بزرار Enter

لزيادة سطر برمجيا يمكنك زيادة التابث Environment.NewLine لمحتوى مربع النص للإنتقال إلى سطر جديد. الكود التالي يلتقط الزر [a] و يحوله إلى انتقال لسطر جديد :

	Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
		If e.KeyCode = Keys.A Then
			'تذكر مكان الكيرسور
			Dim i As Integer
			i = TextBox1.SelectionStart
			' وضع انتقال إلى سطر آخر
			TextBox1.SelectedText = Environment.NewLine
			TextBox1.SelectionStart = i + Environment.NewLine.Length
			' الزر [a] لم يعد دا فائدة في هذا الكود سوى للإنتقال إلى السطر التالي
			e.Handled = True
			e.SuppressKeyPress = True
		End If
	End Sub

إذا كنت ملزما على تغيير طريقة عمل زر الإدخال فاحرص على أن يقوم بالعمل إذا كان فقط الزر وحده مضغوطا و لا تقم به إذا كان الزر كنترول أيضا مضغوطا. في هذه الحالة, الضغط على الزر ادخال وحده ينتقل إلى المربع التالي أما الضغط على الزر ادخال + الزر كنترول سيقوم بزيادة سطر آخر في المربع.

تحياتي...

شكراً لك اخي الكريم هذا ماكنت أبحث عنه :D