سلام الله عليكم :
يوجد ست دوال في الفيجوال للتعامل مع الحافظة سأشرحها بالتفصيل :
1- GetText لجلب محتويات الحافظة .
فمثلاً قم بنسخ أي نص من الجهاز ثم قم بإنشاء زر واكتب الكود التالي :
Private Sub Command1_Click()
Text1.Text = Clipboard.GetText
End Sub
فتظهر في مربع النص النص الذي تم نسخه
2- ثانيا :Clipboard.Clear تقوم بمسح محتويات الحافظة .
اكتب الكود في زر :
Private Sub Command1_Click()
Clipboard.Clear
End Sub
انسخ إي نص من الحاسب أو أي ملف ثم انقر على هذا الزر ثم حاول لصقه فستجد أن زر اللصق غير مفعل وذلك بعمل الدالة Clipboard.Clear
3-ثالثاً : Clipboard.GetData لجلب صور أي للصق صورة ...
اضفط الزر printscreen من لوحة المفاتيح ثم اكتب الكود التالي في زر :
Private Sub Command1_Click()
Me.Picture = Clipboard.GetData
End Sub
فستلاحظ أنه تم لصق الصورة ...
وأي صورة تنسخها يتم لصقها هنا ...
ويمكنك أيضا بدلا من me إستخدام أداة الصور image أو picturebox أو أي أداة فيها خاصية إظهار صورة ..
4- رابعاً :Clipboard.SetData
لإرسال صورة إلة الذاكرة ....
أنشئ زر وأداة الصورة وضع داخلها صورة واكتب الكود التالي :
Private Sub Command1_Click()
Call Clipboard.SetData(Image1.Picture)
End Sub
ثم ادخل إلى الرسام أو أي برنامج صور واختار الأمر لص وستلاحظ أن الصورة قد لصقت في البرنامج....
5-خامساً :Clipboard.SetText لإرسال نص إلى الذاكرة .
اكتب الكود التالي :
Private Sub Command1_Click()
Clipboard.SetText ("بسم الذي لايضر مع إسمه شئ")
End Sub
ثم اذهب إلى أي برنامج نصوص واختار لصق فتلاحظ ظهور النص
بسم الذي لايضر مع إسمه شئ
6- سادساً :GetFormat للتحقق من نوع الغرض المنسوخ ..
تعطي الدالة إما false
أو true
الصيغة العامة :
Clipboard.GetFormat (format)
و format تأخذ القيم التالية :
Link &HBF00
Text 1
Bitmap 2
Metafile (.wmf files) 3
Device-independent bitmap 8
Color palette 9
فمثلاً اكتب الكود التالي ولاحظ :
MsgBox Clipboard.GetFormat(2), vbDefaultButton1, "mofakfree@hotmail.com"
إذا كنت قد نسخت صورة نقطية فتكون نتيجة الصندوق
true
وإذاغ كنت نسخت غير ذلك فتكون النتيجة
flase
لابد أنك فهمت ............... والحمد لله رب العالمين .... انتهت الكتابة الساعة الرابعة صباحاً ,,
أرجوا وأتمنى أن أكون قد يسرت لكم هذه الدوال الست ..... والله من وراء القصد ....