[RESOLVED] Copy to Clipboard error

[mateo107]

My latest app copies text to the clipboard. If I use this app exclusively, after about, say the 10th or 11th copy, I get the following runtime error:

"Run-time error 521 - Cannot open clipboard"

Any ideas on how to fix this? If you need the code that I'm using, it can be found on a previous post regarding the systray.

[timeshifter]

Try Clipboard.Clear every few iterations.

[Hack]

Try Clipboard.Clear every few iterations.

Yep, I think you may be clogging up the clipboard.

[|2eM!x]

Try Clipboard.Clear every few iterations.

not every few..every time you are going to change it, clear it.

[timeshifter]

that would be a good idea, wouldn't it? No confusion when getting stuff from it... Why didn't I think of that?

[mateo107]

I figured as much... just wanted to check with ya'll since I'm new to using the clipboard in my app.

You guys are the best! Thanks!

[mateo107]

Before I copy anything to the clipboard, I run Clipboard.Clear.. and I still get this error... ANy Ideas?

In Fact, here is the code:

Clipboard.Clear
Clipboard.SetText RemindMe.List1.Text
RemindMe.Text1.SetFocus

[pnish]

According to MSDN, this error means that the Clipboard has already been opened by another application.

HTH

[ggettings]

What routine do you call that in? I can't re-create your error.

[mateo107]

is there any way to "close" the clipboard before i send the data to the clipboard?

[pnish]

is there any way to "close" the clipboard before i send the data to the clipboard?

Not that I'm aware of. Maybe the best solution would be to just trap the error and carry on

Option Explicit
 
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
 
Private Sub WriteToClipBoard()
 
    Dim retries As Integer
    
    On Error GoTo Clip_Error
    
    Clipboard.Clear
    Clipboard.SetText RemindMe.List1.Text
    RemindMe.Text1.SetFocus
    
    Exit Sub
    
Clip_Error:
 
    If Err = 521 Then
        If retries > 10 Then
            MsgBox "Unable to access clipboard" & vbCrLf & "Try again later"
        Else
            retries = retries + 1
            Sleep 100
            Resume
        End If
    Else
        MsgBox Error$
    End If
        
End Sub

[mateo107]

Clipboard.GetData is basically the paste function, right?

[mateo107]

OKAY - the problem is now resolved... apparently, running the Clipboard.clear and clipboard.settext without a pause in between is causing the problem.... I added a sleep command = 100 and the problem disappeared! thanks to all who helped me track down this solution

[|2eM!x]

OKAY - the problem is now resolved... apparently, running the Clipboard.clear and clipboard.settext without a pause in between is causing the problem.... I added a sleep command = 100 and the problem disappeared! thanks to all who helped me track down this solution

weird..never heard that but will sure remember the solution..glad we could help!