اقتباس:
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
R = Clipboard.GetText
If Len(R) = 0 Then
Clipboard.Clear
End If
|
End Sub
أستاذ SIR RORO هذا الكود ساقط جدا لأنك بهذا تلغى عمل الحافظه على الإطلاق
فكيف تمنعنى من نسخ أى ملف أخر مثلا وانا مشغل برنامجك
(الحكر على الزبون من أسباب فشل البرنامج)
[COLOR="Red"][B] {يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمْ إِنَّ زَلْزَلَةَ السَّاعَةِ شَيْءٌ عَظِيمٌ }الحج1[/B][/COLOR]
[COLOR="Red"][U][B]
{قُلْ يَا أَهْلَ الْكِتَابِ لاَ تَغْلُواْ فِي دِينِكُمْ غَيْرَ الْحَقِّ وَلاَ تَتَّبِعُواْ أَهْوَاء قَوْمٍ قَدْ ضَلُّواْ مِن قَبْلُ وَأَضَلُّواْ كَثِيراً وَضَلُّواْ عَن سَوَاء السَّبِيلِ }المائدة77[/B][/U][/COLOR]