Copying & Pasting code

[dogwomble]

OK, so somer of you may remember me from about the end of last year when I was working on a project. I've got version 1.0 in production, and am currently working on new features that they have asked for in version 1.1.

I've worked many of them out, but have a question. OK, so what I need to do is have buttons on the toolbar that find out what text is selected and copy it to the clipaboard, and also paste that text in at the current cursor location.

I know in textboxes that they can just right-click, or use keyboard shortcuts (CTRL+C and CTRL+V), but as these are automatically done by Windows/VB, I'm at a loss as to how it should be done. It's probably very simple, but I just can't think of how it's done.

[EJ12N]

'// - Copy
Clipboard.SetText txt.SelText
'// - Paste
txt.SelText = Clipboard.GetText

[dogwomble]

Thanks very much for that. I'll give it a try. I thought it would have been easier than I first suspected.

Weird! The code I'm using is:

If Button = "Paste" Then
        txt.SelText = Clipboard.GetText
    End If

When that code executes, I get a Run-Time Error: Object Required?!?!

Correction: I get the same for both of them, they are both activated through toolbars. I've had a thought - maybe because the toolbar button is the active object when you click, that may be causing the whole thing to get confused?

[EJ12N]

Try this code

Private Sub tbToolBar_ButtonClick(ByVal Button As MSComCtlLib.Button)
    On Error Resume Next
    Select Case Button.Key
        Case "Copy"
            '- Copy Code
        Case "Paste"
            '- Paste Code
     End Select
End Sub

[dogwomble]

With the "on error resume next" in there, the copy&paste code does nothing. WIthout the on error resume next, I get the same error.

[EJ12N]

weird works for me...
make sure in properties of toolbar buttons got key name
Copy, Paste key names then do the code i told you above should work...

[dogwomble]

It's getting the name OK. All the other buttons work. Here's the problem code:

On Error Resume Next
    Select Case Button
         Case "Copy"
            Clipboard.SetText txt.SelText
        Case "Paste"
            txt.SelText = Clipboard.GetText
        Case "Enter Resident"
            frmtblClientInfo.Show
        Case "Modify Resident"
            frmQueryGetInfo.Show
        Case "Single Resident Report"
            frmSingleResident.Show
        Case "All Residents Report"
            mnuAllResidentsReport_Click
        Case "Quit"
            Unload Me
        Case "Help"
            frmAbout.Show vbModal, Me
        End Select