كود إفراغ الحافظة

[abofayez1]

السلام عليكم ورحمة الله 
كما في العنوان  أريد كود يقوم بإفراغ الحافظة بحيث مثلا لو قمت بعملية نسخ ولصق في البرنامج أريد إفراغ الحافظة بحيث لا يمكن اللصق مرة ثانية ،
وجزاكم الله خيرا

[Foksh]

وعليكم السلام ورحمة الله وبركاته..

في مديول جديد ، الصق الكود التالي :-

Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long
Private Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
Private Declare PtrSafe Function CloseClipboard Lib "user32" () As Long

Sub ClearClipboard()
    If OpenClipboard(0) Then
        EmptyClipboard
        CloseClipboard
    End If
End Sub

ويتم الاستدعاء باسم الصب ClearClipboard

 

تم تعديل الإثنين at 19:55 بواسطه Foksh
حذف الدالة بالاقتراح الثاني = لا تعمل بعد التجربة

[ناقل]

مشاركة

Sub ClearClipboardAndFreeMemory()
    ' تحرير محتوى الحافظة
    On Error Resume Next
    Dim DataObject As Object
    Set DataObject = CreateObject("MSForms.DataObject")
    DataObject.SetText ""
    DataObject.PutInClipboard
    Set DataObject = Nothing
    On Error GoTo 0
    
    ' تحرير الذاكرة
    DoEvents
    Application.Echo True, "Memory cleared"
End Sub

 

[abofayez1]

جزاكم الله خيرا وبارك فيكم

[Foksh]

أعتذر من الأستاذ @ناقل ، ولكن الأخ العزيز @abofayez1 ، هل قمت بتجربة الكود الذي اخترته كأفضل إجابة  ؟؟؟

هل لديك المكتبة أو قمت بإضافتها Microsoft Forms 2.0 Object Library (MSForms) ؟؟؟؟؟

[abofayez1]

حياك الله أخي Foksh

للأمانة جربت الكود الأول وحاولت فيه ولم يعمل معي ثم سافرت وفتحت المنتدى من الجوال ولقيت رد جديد فقلت ربما يكون صحيح. وللأن ما جربته 

 

[Foksh]

1 ساعه مضت, abofayez1 said:

للأمانة جربت الكود الأول وحاولت فيه ولم يعمل معي

[abofayez1]

بيض الله وجهك .... فعلا عملت قاعدة جديدة فارغة وطبقت الخطوات وعمل بشكل سليم

 

ما رأيك بهذا وجدته في أحد المنتديات الاجنبية ويقوم بنفس العمل 

 

  With CreateObject("htmlfile")
        .parentWindow.clipboardData.clearData ("Text")
    End With