05-05-14, 01:07 AM
-
كود :
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