Userform Textbox içeriğini kopyalamak

[mumugul]

Merhaba;
Userform'da ki bir textbox içeriğini nasıl kopyalayıp hafızaya alabilirim? Textbox' ın içindeki metni seçip kopyala komutu uyguluyorum. Bunu bir makro ile nasıl yapabilirim.
Teşekkürler...

 

[Haluk]

Merhaba;

Ã?rnek olarak;

1) UserForm üzerinde TextBox1 ve CommandButton1 nesneleri olduğunu düşünelim,

2) TextBox1 nesnesine birşeyler yazalım ve ardından CommandButton1 nesnesine tıklayarak, TextBox1 içeriğini clipboard'a kopyalayıp, daha sonra da bunu bir MsgBox ile görüntüleyelim.

UserForm modulune yerlestilecek kodlar;

[vb:1:fa94b888da]Dim MyData As DataObject
'
Private Sub CommandButton1_Click()
Set MyData = New DataObject
'// Textbox1 nesnesinin icerigini Clipboard a aktarıyoruz
MyData.SetText TextBox1.Text
MyData.PutInClipboard

'// Clipboard icerigini okuyoruz.
MyData.GetFromClipboard
MsgBox "Clipboard: " & MyData.GetText(1)
End Sub
[/vb:1:fa94b888da]