منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] عندي سؤال بس معلش طويل شويه - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] عندي سؤال بس معلش طويل شويه (/showthread.php?tid=39613)



عندي سؤال بس معلش طويل شويه - حسن الجلب - 02-10-21

السلام عليكم كان عندي سؤال بس معلش هو طويل شويه 
انا عندي تكست بوكس عملته كود في حدث key_press بحيث أنه ميدخلش ارقام وفعلا الكود شغال وزي الفل لقيت اني ممكن مثلا افتح برنامج note واكتب اي رقم واحده نسخ وأعماله بيست علي التكست هينزل عادي قومت عملت كود يفلتر الارقام ويشيلها خطبته في حدث text_changed وفعلا الكود شغال زي الفل كده المشكله أنه التكست بقي بطئ انا عاوز كود يفلتر الحافظه قبل عمل paste ازاي اعمله وشكرا


RE: عندي سؤال بس معلش طويل شويه - معاند الحظ - 02-10-21

وعليك السلام ورحمة الله

ضع هذا الكود في الحدث الذي تريده
كود :
 Dim t As String = My.Computer.Clipboard.GetText
        Dim a As String = ""
        For Each c As Char In t.ToCharArray
            If Not IsNumeric(c) Then
                a += c
            Else
                a = ""
                Exit For
            End If
        Next

        Me.Text = a
لكن الكود السابق لن يعمل عند استخدام ctrl+v
لذا انصحك بالحل الموجود في الرابط وهو عمل TextBox مخصص 
https://www.dreamincode.net/forums/topic/328924-capture-copypaste-events/