منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

كود :

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

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

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

(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

.....

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

vbnet

djelloul

vbnet