التعامل مع الحافظه

يوجد ست دوال في الفيجوال للتعامل مع الحافظة :
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