I'd have to see more to see what's going on, but be it that you're declaring
those clips within a sub they'll be destroyed every time you exit that sub
and recreated every time it's called. So they wouldn't maintain a count of
one. Off the top of my tired head the only other thing I can think of is
that you're grabbing them as the window changes. Maybe I'll see something
else in the morning when I'm conscious, but for now, here's my only
suggestion.
If C.Count > 0 And D.Count > 0 Then
If C(1).IsValid And D(1).IsValid then
Speak "Joy to the world!"
Else
Speak "Good night."
end If
' End day
Hth,
Tom
----- Original Message -----
From: "Vic Beckley" <[email protected]>
To: <[email protected]>
Sent: Friday, March 05, 2010 5:14 PM
Subject: Clearing a collection of clips
Hi all,
I am using the following sub to find certain clips when they exist on the
screen.
Sub timeInfo()
If ActiveWindow.ModuleName = "EZCDDAX" Then
Dim C, D
Set C = ActiveWindow.Clips.SearchText("Used:")
Set D = ActiveWindow.Clips.SearchText("Available:")
If C.Count > 0 And D.Count > 0 Then
Speak c(1).Line.ClipsText
Speak D(1).Line.ClipsText
Mouse.Position = D(1).Position.ScreenPoint
Else
Speak "Statistics not found"
End If
End If
End Sub
The problem is that when I am on a screen where the searched for clips do
not exist and I have found them previously I get an error that C(1) does
not
exist. How do I set the collection variables, C and D, back to having a
count of 0. Once the clips are found, they always have a count of 1.
Please help.
Vic
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 4919 (20100305) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
