[RESOLVED] Clipboard adding to existing text

[mickeykelley]

I can't seem to add text to what is already in the clipboard. Is there a way to cosntantanant text. For example adding to the beginning or ending of it? I have tried this but it does not seem to work:

Clipboard.SetText Clipboard.GetText() & Chr$(13) & Chr$(13) & "XYZ"

[SamOscarBrown]

Example: Putting clipboard info into a textbox and add text:

text1.text = clipboard.gettext & " Mickey Kelly"

[jpbro]

Try this:

Dim l_Clip As String

l_Clip = Clipboard.GetText
Clipboard.Clear  ' Clear before setting clipboard text
Clipboard.SetText l_Clip & Chr$(13) & Chr$(13) & "XYZ"

[mickeykelley]

Actually my original code was working EXCEPT for the attempt at carriage return to get the spacing. I just didn't pay attention that it had added the XYZ but did not put the line feeds. Now to figure out the line feeds.

[mickeykelley]

It does not like vbCr or vbLf or together.

Clipboard.SetText Clipboard.GetText() & vbLf & vbCr & "xys"

[mickeykelley]

It does not like vbCr or vbLf or together.

Clipboard.SetText Clipboard.GetText() & vbLf & vbCr & "xys"

[SamOscarBrown]

Are you trying to put the CRLF INTO the clipboard, or simply ADD them afterwards, like:

Private Sub Command1_Click()  'put something INTO the clipboard
Clipboard.SetText (Text2.Text)


End Sub


Private Sub Command2_Click()  'get what is in the clipboard and put it somewhere (like a Multi-Line text box (Text1))
    Text1.Text = Clipboard.GetText & vbCrLf & vbCrLf & "XYZ"
End Sub

[SamOscarBrown]

If attempting to put CR+LF INTO clipboard, do this:

Private Sub Command1_Click()  'put text plus 2 CRLF's and some text into clipboard 
   Clipboard.SetText (Text2.Text) & vbCrLf & vbCrLf & "XYZ"
End Sub


Private Sub Command2_Click()  'get it back out
    Text1.Text = Clipboard.GetText
End Sub

[SamOscarBrown]

use vbcrlf

[SamOscarBrown]

like this:

Clipboard.SetText Clipboard.GetText & vbCrLf & vbCrLf & "XYZ"

[SamOscarBrown]

test it by putting something into the clipboard:

Private Sub Command1_Click()
   Clipboard.SetText "HELLO"
End Sub

Then:

Private Sub Command2_Click()
   Clipboard.SetText (Clipboard.GetText & vbCrLf & vbCrLf & "XYZ")
End Sub

Then:

Private Sub Command3_Click()
    Text1.Text = Clipboard.GetText
End Sub

[SamOscarBrown]

Just playing around:

Private Sub Command1_Click()
   Clipboard.SetText "THIS IS THE ORIGINAL TEXT IN THE CLIPBOARD!"
End Sub
Private Sub Command2_Click()
   Clipboard.SetText ("Thia ia text added before what is on the clipboard." & vbCrLf & Clipboard.GetText & vbCrLf & "And This is text added at the end,")
End Sub


Private Sub Command3_Click()
    Text1.Text = Clipboard.GetText
End Sub

[mickeykelley]

The vbCrLf combined works. Thanks guys.

[mickeykelley]

I am so old school from the DOS days that my initial brain works on the CHR$(13) mode and that does not always work, but usually. So then I remembered to do the carriage return and line feed so the vbCr & vbLf. I guess I don't think in one variable being the solution but I need to retrain my old brain. Thanks

[jpbro]

The problem is that in the first example you were just doing CR twice, not CRLF and in the second example you were doing LFCR instead of CRLF. If you had done : Chr$(13) & Chr$(10) then you would have been OK, although using vbCrLf or even vbNewLine is the better choice.

[mickeykelley]

Not aware of vbNewLine. Thanks. Learned some more new. You can teach an old dog new tricks.