[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