Copying the text from a text box to the clipboard

  • Thread starter Thread starter TonyJeffs
  • Start date Start date
T

TonyJeffs

Why doesn't this work?
..................................
Private Sub CommandButton1_Click()
UserForm1.TextBox1 = "hi"
UserForm1.TextBox1.Copy
UserForm1.TextBox2.Paste
'why doesn't textbox2 contain "hi"?
End Sub
....................................

Thanks

Tony

ps it says in help:
..................................
Copy Method
Copies the contents of an object to the Clipboard.
<snip>
On a TextBox or ComboBox, it copies the currently selected text.
 
Copy copies the selected text - you don't have any text selected:

Private Sub CommandButton1_Click()
With UserForm1
..TextBox1 = "hi"
..TextBox1.SelStart = 0
..TextBox1.SelLength = Len(TextBox1.Text)
..TextBox1.Copy
..TextBox2.Paste
End With
End Sub

works.

But this is easier:


Private Sub CommandButton1_Click()
With UserForm1
..TextBox1 = "hi"
..TextBox2.Text = .Textbox1.Text
End With
End Sub
 
Back
Top