+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=34795)
الحافظه - منه - 15-05-20
السلام عليكم ورحمه الله وبركاته
كيفية معرفة البيانات المنسوخه في الحافظه رقم او نص او خلاف ذالك
RE: الحافظه - منه - 16-05-20
مفيش اجابه ياجماعه
RE: الحافظه - اسامه الهرماوي - 16-05-20
السلام عليكم...
وجدت هذه المشاركة لعلكي تستفيدين منها.
تفضلي:
http://vb4arb.com/vb/showthread.php?tid=30177
RE: الحافظه - منه - 16-05-20
لا مش قصدي انا قصدي يعني مثلا انا عملت زر past علي تكست معينه وانا نسخت نص مش رقم بس انا عايز كود يخلي لو نص مبعملوش paste ولو رقم يعملواpaste
RE: الحافظه - سعود - 16-05-20
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
RE: الحافظه - اسامه الهرماوي - 16-05-20
هذا الكود يقوم بتنقية ال 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 SubRE: الحافظه - اليوم السابع - 20-05-20
(15-05-20, 11:51 PM)منه كتب : السلام عليكم ورحمه الله وبركاته
كيفية معرفة البيانات المنسوخه في الحافظه رقم او نص او خلاف ذالك
ياريت العنوان يكون موضح اكثر