More on CollectClips: A Windows Clipboard Utility
Somehow - while "moderating comments" on this blog - I managed to mess up and delete a recent comment from Steve Garman, so I'm making it the main contents of this entry, where it should be read by more people anyway.
Here's what Steve had to say:
Nice utility, but there are a couple of small points I'd make about the Timer1.Action event handler.
I'd hesitate to keep the clipboard open while you mess about with strings. That's very time consuming. Remember the clipboard's locked while it's open and your OS has preemptive threads.
I also can't see any need for all the duplicated code based on whether mainbuffer starts empty or not.
I'd have thought all the code you need is:
Dim c As Clipboard
Dim newText As String
Dim Count1 As Integer
Dim EOL As String
EOL = Left(EndOfLine,1)
c = New Clipboard
If c.TextAvailable Then
newText = c.Text
If newText <> FormerText Then
MainBuffer = MainBuffer + EOL + newText + EOL _
+ "________________" + EOL
EditField1.Text = MainBuffer
Count1 = CountFields(EditField1.Text, EOL) - 4
EditField1.Scrollposition = Count1
FormerText = newText
Self.Title = FormerText + " " + newText + " " _
+ "B " + Str(Count1)
I appreciate the comments from Steve, because I'm primarily an "idea" person and often need all the help I can get from friends who have more professional expertise than I have. That is, I have lots of ideas for interesting programs and can sometimes (not always) come up with enough code to prove that the idea can become a practical reality, but I often rely on others to make the code more professional and polished.