در راهنمای اکسس کدهای زیر نوشته بود ،ولی نتونستم به صورت عملی پیاده کنم
لطفا به صورت عملی راهنمایی کنید
Paste, PutInClipboard, SetText Methods Example |
The following example demonstrates data movement from a TextBox to a DataObject, from a DataObject to the Clipboard, and from the Clipboard to another TextBox. The PutInClipboard method transfers the data from a DataObject to the Clipboard. The SetText and Paste methods are also used.
To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains:
- Two TextBox controls named TextBox1 and TextBox2.
- A CommandButton named CommandButton1.
Dim MyData As DataObject
Private Sub CommandButton1_Click()
Set MyData = New DataObject
MyData.SetText TextBox1.Text
MyData.PutInClipboard
TextBox2.Paste
End Sub
Private Sub UserForm_Initialize()
TextBox1.Text = "Move this data to a " _
& "DataObject, to the Clipboard, then to " _
& "TextBox2!"
End Sub