منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

السلام عليكم...
وجدت هذه المشاركة لعلكي تستفيدين منها.
تفضلي:
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)منه كتب : [ -> ]السلام عليكم ورحمه الله وبركاته
كيفية معرفة البيانات المنسوخه في الحافظه رقم او نص او خلاف ذالك

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منه

منه

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

منه

سعود

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

اليوم السابع