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
' 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
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
