20-09-21, 07:38 PM
(آخر تعديل لهذه المشاركة : 20-09-21, 07:55 PM {2} بواسطة العطر الرايق.)
(20-09-21, 04:22 PM)حسن الجلب كتب : شكرا اخي ولكن ممكن شرح الكود وما معني [^\d]" ؟ وكيفيه عمل العكس بحيث يتم لصق حروف فقط؟اهلاً اخي
[^\d] تدل على فلترة الاحرف من الارقام قبل اللصق
وسوف اضع لك كود اخر يسد جميع احتياجاتك من حروف او ارقام وسهل الفهم
كود :
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim ThisTextBox As TextBox = DirectCast(sender, TextBox)
Dim CheckString As String = "0123456789" 'يتم تحديد المدخلات المراد ادخالها اذا كانت ارقام.
'Dim CheckString As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 'يتم تحديد المدخلات المراد ادخالها اذا كانت حروف.
Dim theText As String = ThisTextBox.Text
Dim Letter As String
Dim SelectionIndex As Integer = ThisTextBox.SelectionStart
Dim Change As Integer
For x As Integer = 0 To ThisTextBox.Text.Length - 1
Letter = ThisTextBox.Text.Substring(x, 1)
If CheckString.Contains(Letter) = False Then
theText = theText.Replace(Letter, String.Empty)
Change = 1
End If
Next
ThisTextBox.Text = theText
ThisTextBox.Select(SelectionIndex - Change, 0)
End Sub