VB6 Code, under Win XP
Private Sub Timer1_Timer()
Dim sTxt As String, L As Long
On Error Resume Next
L = 0
L = Len(Clipboard.GetText)
If L > 1000 Then Call ProcessClipboard
End Sub
Because the timer's interval is one second, a conflict is almost certain. The Clipboard will now and then be busy with another app (copying, pasting, etc).
Unfortunately, "On Error Resume Next" does not work in this case, and THIS app will crash (in my case at least!).
To see what I mean, run and try to paste something repeatedly and rapidly in another app.
Any idea why this error escapes trapping?
Private Sub Timer1_Timer()
Dim sTxt As String, L As Long
On Error Resume Next
L = 0
L = Len(Clipboard.GetText)
If L > 1000 Then Call ProcessClipboard
End Sub
Because the timer's interval is one second, a conflict is almost certain. The Clipboard will now and then be busy with another app (copying, pasting, etc).
Unfortunately, "On Error Resume Next" does not work in this case, and THIS app will crash (in my case at least!).
To see what I mean, run and try to paste something repeatedly and rapidly in another app.
Any idea why this error escapes trapping?