السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
هذا الموضوع خاص بالادوات : اداة TextBox
بيئة العمل : VB.NET 2019 - يعمل على جميع اصدارات VB.NET
============================================
هذا الموضوع الاخير في دورة الاكواد الشاملة الخاصة بالاداة TextBox وغدا ان شاء الله ابدأ بدورة ال ComboBox
'28-منع الويندوز من اصدار صوت عند الضغط على انتر
كود PHP:
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = CChar(ChrW(13)) Then
e.Handled = True
Else
MyBase.OnKeyPress(e)
End If
End Sub
End Class
'28-منع الويندوز من اصدار صوت عند الضغط على انتر
'29-استخدام التكست كعداد , عند كل انتر يزداد التعداد
كود PHP:
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(13) Then
TextBox1.Text += 1
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = 0
End Sub
End Class
'29-استخدام التكست كعداد , عند كل انتر يزداد التعداد
'30-التراجع عن التعديل بداخل تكست بوكس
كود PHP:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.CanUndo Then TextBox1.Undo()
End Sub
End Class
'30-التراجع عن التعديل بداخل تكست بوكس