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

[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

 

تم تعديل منذ 8 ساعات بواسطه 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) ؟؟؟؟؟