[vbnet]

-

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    TextBox1.AcceptsTab = True ' يمكن الاستغناء عن هذا السطر بالتعديل في الخصائص مباشرة
    TextBox1.Multiline = True ' يمكن الاستغناء عن هذا السطر بالتعديل في الخصائص مباشرة
End Sub

كود :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    If e.KeyChar = Chr(Keys.Enter) Then
        e.Handled = True
    ElseIf e.KeyChar = Chr(Keys.Tab) Then
        e.Handled = True ' حذف هذا السطر ينتج عنه إدراج مسافة تاب المعروفة داخل النص
        MsgBox("Tab key")
    End If
End Sub

[djelloul]

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

مشكور أخي
أنا جلول من الجزائر مبتدآ في تعلم البرمجة
لو أردت استبدال حدث الضغط على زر Tab في التنقل بين التيكست بوكس جاخل الفورم الواحد بالضغط على أنتر كيف يتم ذلك
وشكرا لك

[vbnet]

(12-06-14, 03:15 PM)djelloul كتب : ...
لو أردت استبدال حدث الضغط على زر Tab في التنقل بين التيكست بوكس جاخل الفورم الواحد بالضغط على أنتر كيف يتم ذلك
...

.....

أولا إذهب إلى خصائص الفورم الخاصية KeyPreview وغير قيمتها إلى True ثم ضع هذا الكود

كود :

Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyUp
    If e.KeyCode = Keys.Enter Then Me.SelectNextControl(Me.ActiveControl, True, True, True, True)
End Sub

.....