Hi Peter,
That is GREAT!!
Thank you very much.
Bruce Krigman
Information Systems
South Shore Hospital
781-340-8299
| "Turner, Peter"
<[EMAIL PROTECTED]>
Sent by: [EMAIL PROTECTED] 07/16/04 11:00 AM
|
|
I am rather new to BWS so there may well be better ways but I have used this successfully. This is based on Client Server.
The sub is called from either of these two methods depending whether you are on the first menu - from an enter on a desktop icon or a lower level menu.
The first menu needs a initial down arrows before you begin counting. The first call picks the logs submenu off the Users icon. The second picks List Dictionary Changes from the submenu
' park on the correct desktop icon
PickMenu 7, True
' now should be parked on the 7th item in menu - don't let it lose focus at this point because menu closes
PickMenu 5
' now should be parked on the 5th item in SUBmenu - Again don't let it lose focus
Enter ""
' should now be in the routine, but good idea to verify
Sub PickMenu(SelectionIndex As Long, Optional HitInitialDown As Boolean)
' Assume we are on the Desktop Icon we want.
' Hit enter then arrow down to appropriate selection
Dim i As Long
Enter ""
Wait 0.2
If HitInitialDown Then
Key "{down}" ' the first down gets on the menu
Wait 0.2
Key "{down}"
Wait 0.2
End If
For i = 2 To SelectionIndex
Key "{down}"
Wait 0.2
Next i
End Sub
Peter Turner
Fort HealthCare
(920) 568-5137
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
On Behalf Of [EMAIL PROTECTED]
Sent: Friday, July 16, 2004 9:36 AM
To: [EMAIL PROTECTED]
Subject: [Talk] Meditech CS Menu access
Hi All,
I am having trouble getting a script to activate a Menu, and let me choose
a procedure from a drop down,
I was un-successful with, Key {"Enter"}. Enter "",
and SendKeys "~"
any Ideas would be happily tried.
Thanks
Bruce Krigman
Information Systems
South Shore Hospital
781-340-8299
