[سعود]

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