Hi!
I was wondering if anyone has ever had issues of the Tree View not
getting the object assignment when attempting to make a Tree View object?
This comes up once in a while when my app is loaded using the hotkey for
it. The only fix is the shut down of Windoweyes and the reload of Window
eyes.
Below is the subroutine I use with added test points and "ONLY" the root
is failing and all other objects are OK.
It is as if something is going on with shared objects or what ever
allows the Tree View root object to be made.
I am using WE 8.4 but will crop up using any from 7.5 on.
It is only the Set assignment for the Root that gets no object when
being made.
The only issue that might be related is Windows XP is what I am using
for this but can not remember if this came up with Windows 7 or not; for at
the moment I can not reload Windoweyes on to that notebook, CD drive
failure.
Does anyone know how to load windoweyes onto a computer without a CD? I
tried the Flash Drive, but there probably are Admin issues...
Bruce
Sub GetAlertMenu_Ini( dObj)
'Get Alert Settings.
Dim alerts
' INIFile(myINIFile).Text( "Alerts", "URL") = INIFile(myINIFile).Text(
"Alerts", "URL", TheUrlAlerts)
' TheUrlAlerts = INIFile(myINIFile).Text( "Alerts", "URL", TheUrlAlerts)
alerts = GetIniAlerts
If alerts <> "" Then TheUrlAlerts = alerts
Sleep 250
'Test 1:
Err.Clear()
On Error Resume Next
ResetTreeView dObj, myTreeName, "URL Alerts", 0
If Err.Number > 0 Then
Speak " Error In Tree Reset!"
Sleep 1000
Err.Clear()
End If
'Test 2:
On Error Resume Next
Set MyTreeRoot = dObj.Control( MyTreeName).Root
If Err.Number > 0 Then
Speak " Error In Getting Tree Root!"
Sleep 1000
Err.Clear()
End If
'Above is first failure.
Sleep 300
If dObj Is Nothing Then Speak "Object dObj Is Not An Object"
If MyTreeRoot Is Nothing Then Speak "Root Is Not An Object"
'Above message for root is the only failure.
On Error Resume Next
GetAllTreeLeaves MyTreeName, MyTreeRoot, MyLastTreeChild, dObj, Split(
TheUrlAlerts, vbCrLf)
If Err.Number > 0 Then
'The Root error below gets stated:
Speak " Error In Getting Tree Items!"
If MyLastTreeChild Is Nothing Then Speak "Child Is Not An Object"
If MyTreeRoot Is Nothing Then Speak "Root Is Not An Object"
Sleep 1000
Err.Clear()
End If
' myAlertDialog.Control( myTreeName).Focus
Sleep 100
If myAlertDialog.Control( myTreeName).TopLevel.Item(1).Expanded Then
myAlertDialog.Control( myTreeName).TopLevel.Item(1).Expanded = False
Sleep 100
myAlertDialog.Control( myTreeName).TopLevel.Item(1).Selected = True
myAlertDialog.Control(
myTreeName).TopLevel.Item(1).Children.Item(1).ScrollTo()
End Sub
---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus
_______________________________________________
Any views or opinions presented in this email are solely those of the author
and do not necessarily represent those of Ai Squared.
For membership options, visit
http://lists.window-eyes.com/options.cgi/scripting-window-eyes.com/archive%40mail-archive.com.
For subscription options, visit
http://lists.window-eyes.com/listinfo.cgi/scripting-window-eyes.com
List archives can be found at
http://lists.window-eyes.com/private.cgi/scripting-window-eyes.com
