[jawsscripts] Re: A script for a results listbox!
- From: "Donald Marang" <donald.marang@xxxxxxxxx>
- To: <jawsscripts@xxxxxxxxxxxxx>
- Date: Sun, 30 Aug 2009 18:08:03 -0400
Not sure if this helps, but I have had some luck with statements like:
Let hList = FindWindow (GetAppMainWindow (GetCurrentWindow ()), "listbox32",
"")
SetFocus (hList)
I also set the focus on the list manually, and press Insert + 7, to
reclassify the list. Try assigning it to a ListView or ListBox class.
Sometimes this will make JAWS naturally work with the control better,
including announcing the list type, the item selected, its position, make it
possible to move through the list, and maybe even able to Tab to the list.
Sometimes, reclassifying the parent of the list as a Dialog also helps! I
am currently doing this to VMware Workstation. It made a world of
difference to a tree view, list view, and Tab Control!
Don Marang
----- Original Message -----
From: "Mailing Lists" <traynor.pj@xxxxxxxxx>
To: <jawsscripts@xxxxxxxxxxxxx>
Sent: Sunday, August 30, 2009 2:29 PM
Subject: [jawsscripts] A script for a results listbox!
> Hi Folks,
>
> I am trying to make a script that will do something like the following for
> me. It is a small file search program called Agent Ransack and I want to
> be
> able to jump into the list of results once I have started a search for
> particular files on my hard drive. These files can be any such as ".doc,
> .xls Etc"
> When you have gotten a list of results back, you cannot just tab key into
> the list view and arrow through them. I am trying to create a jaws script
> that will allow me to jump into the list when the search results come back
> to me.
> The listbox itself has a class of "listbox32"
>
> I feel embarrassed showing you my script below as I feel it is probably
> not
> in any way too well thought out or written up but maybe someone could
> advise
> me on how to fix it so that I can get to this listbox. While I am getting
> focus of the listbox itself, jaws is not actually getting anywhere by
> leftmouse button on it like I have written into my script. I have
> identified
> where the leftmouseButton click is hitting and its some kind of label
> called
> "Contents View" which is just a label and doesn't highlight the contents
> of
> the actual listbox when it is clicked on.
>
> Here is my attempt:
>
> Script ListOfResults ()
> Var
> Handle hWND,
> Handle hListview
> Let hWND = GetAppMainWindow (GetCurrentWindow()) Let hListview =
> GetFocus()
> PCCursor()
> SaveCursor()
> If GetFocus () == hListview then
> LeftMouseButton()
> SayFormattedMessage(OT_NO_Disable,"List of results","") EndIf
>
> EndScript
>
> __________
> Visit and contribute to The JAWS Script Repository http://jawsscripts.com
>
> View the list's information and change your settings at
> http://www.freelists.org/list/jawsscripts
>
__________
Visit and contribute to The JAWS Script Repository http://jawsscripts.com
View the list's information and change your settings at
http://www.freelists.org/list/jawsscripts
Other related posts: