[منه]

السلام عليكم ورحمه الله وبركاته
كيفية معرفة البيانات المنسوخه في الحافظه رقم او نص او خلاف ذالك

[منه]

مفيش اجابه ياجماعه

[اسامه الهرماوي]

السلام عليكم...
وجدت هذه المشاركة لعلكي تستفيدين منها.
تفضلي:
http://vb4arb.com/vb/showthread.php?tid=30177

[منه]

لا مش قصدي انا قصدي يعني مثلا انا عملت زر past علي تكست معينه وانا نسخت نص مش رقم بس انا عايز كود يخلي لو نص مبعملوش paste ولو رقم يعملواpaste

[سعود]

PHP كود :

 If IsNumeric(Clipboard.GetText) Then
  TextBox1.Text = Clipboard.GetText
  End If 


ابسط كود للتحقق من الرقم ولتحقق اكثر يمكن استخدام الـRegEx

---

ازرار الراديو لضبط معيار التحقق لمحتوى الحافظة.

PHP كود :

Public Class Form1
    Dim rsel As String = ""
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        TextBox1.Clear()
        If Clipboard.GetText.Trim = "" Then Exit Sub
        Select Case rsel
            Case rnumber.Name.ToString
                If IsNumeric(Clipboard.GetText) Then
                    TextBox1.Text = Clipboard.GetText
                End If
            Case rdate.Name.ToString
                If IsDate(Clipboard.GetText) Then
                    TextBox1.Text = Clipboard.GetText
                End If
            Case rstring.Name.ToString
                If Char.IsLetter(Clipboard.GetText) Then
                    TextBox1.Text = Clipboard.GetText
                End If
        End Select
    End Sub
    Private Sub rnumber_Click(sender As System.Object, e As System.EventArgs) Handles rnumber.Click, rstring.Click, rdate.Click
        rsel = CType(sender, RadioButton).Name
    End Sub
End Class 


[اسامه الهرماوي]

هذا الكود يقوم بتنقية ال TextBox من الأرقام.
تفضلي:

كود :

   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       TextBox1.Select(TextBox1.Text.Length, 0)
       Dim s As Integer
       For n As Integer = 0 To 9
           Do Until s = -1
               s = TextBox1.Text.IndexOf(CStr(n))
               If s < 0 Then Exit Do

               TextBox1.Text = TextBox1.Text.Remove(s, 1)

           Loop
           s = 0
       Next

   End Sub

[اليوم السابع]

(15-05-20, 11:51 PM)منه كتب : السلام عليكم ورحمه الله وبركاته
كيفية معرفة البيانات المنسوخه في الحافظه رقم او نص او خلاف ذالك

ياريت العنوان يكون موضح اكثر