شئ DataObject .... کپی متن یا عدد صحیح به کلیپبورد

methods-microsoft-forms

Tools -> References -> Microsoft Forms 2.0 Object Library

DataObject مثل Clipboard عمل می کند . اگر رشته متنی را کپی کنید ، آن رشته را ذخیره می نماید ( حافظه موقت ) . اگر رشته دوم از همان شکل  را اضافه کنید ، جایگزین می شود.

متدها و خصوصیاتی داره که از لینک بالا میشود مطالعه و تست کرد . متد SetText را امتحان کنید

MSFORMS.DataObject 

object. SetText(StoreData [, format ] )

آرگومان دوم انتخابیست که خالی هم رها شود  پیش فرض یک یا Text در نظر گرفته می شود ،انتخاب عددی  غیر از یک  در آرگومان انتخابی یعنی دیتا یا integer است یا Text.

DataObject داده را طبق فرمت یا شکلش ذخیره می کند پس اگر شما همان متن با همان فرمت را بخواهید ذخیره کنید روی همان rewrite می نُماید ولی اگر فرمت یا شکل دیگری داشته باشد بعنوان جدید در نظر خواهد گرفت 

داده را از یک DataObject به Clipboard کپی می نماید.

object. PutInClipboard

1-کپی داده از Clipboard به یک DataObject

String = object. GetFromClipboard( )

2-بازیابی  رشته متنی از DataObject

String = object. GetText( [ format ] )

از توابع API هم می توان استفاده کرد که با کمی جستجو در اینترنت کد ها موجود است 

Clear ClopBoard

برای Windowse 64 Bit قبل از فانکشن PtrSafe قرار دهید و Long هم به LongPtr

Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Sub ClearClipboard3()
    OpenClipboard (0&)
    EmptyClipboard
    CloseClipboard
End Sub

GetData از  DataObject Library : 

dataobject-object