[محمد ايمن]

(06-07-20, 04:45 PM)alsouf كتب : بارك الله فيك  .... و جزاك خيرا على المجهود

---

شفرة الحافظة غير صحيحة  اي اول كود في الاعلى
------------------------------------------------
سوف اضيف لشفرات الحافظة المجربة التالية
-----------------------------------------------

كود :

Public Class Form1
   Public Shared Sub Clear()
   End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       ' Cut Text
       Clipboard.Clear()
       Clipboard.SetText(MyText.Text)
       MyText.Text = ""
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       If Clipboard.ContainsText = Nothing Then
           MessageBox.Show("Clipboard est Vide ! ")
       Else
           MessageBox.Show("Clipboard Ne Sans Pas Vide ! ")
       End If
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Clipboard.Clear()
   End Sub

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       Clipboard.Clear()
       Clipboard.SetText(MyText.Text)
   End Sub
End Class

---

شرح الشفرات على التوالي:
اولا اضافة اجراء
ثانيا قص و نقل للحافظة
ثالثا التاكد من محتوى الحافظة
رابعا مسح الحافظة
و اخير الزر 3 لنسخ الى الحافظة

---

اليك الاجابة اخي محمد ايمن

شكران اخي انت من الاعضاء القليلين المميزين في المجموعه