Archive for January, 2007

Re: Collapse a categorized embedded View by default

2007-January-13 at 7:26 pm · Filed under LotusScript

Here is the Script library called ‘Keyboard_Functions’ used for the collapsing an embedded categorized view by default:

(Options)

Const vKY = 89 ‘Y key
Const vKZ = 90 ‘Z key
Const vK0 = 48 ‘0 key
Const vK1 = 49 ‘1 key
Const vK2 = 50 ‘2 key
Const vK3 = 51 ‘3 key
Const vK4 = 52 ‘4 key
Const vK5 = 53 ‘5 key
Const vK6 = 54 ‘6 key
Const vK7 = 55 ‘7 key
Const vK8 = 56 ‘8 key
Const vK9 = 57 ‘9 key
Const vKnP0 = 96 ‘0 key
Const vKnP1 = 97 ‘1 key
Const vKnP2 = 98 ‘2 key
Const vKnP3 = 99 ‘3 key
Const vKnP4 = 100 ‘4 key
Const vKnP5 = 101 ‘5 key
Const vKnP6 = 102 ‘6 key
Const vKnP7 = 103 ‘7 key
Const vKnP8 = 104 ‘8 key
Const vKnP9 = 105 ‘9 key
Const vKMultiply = 106 ‘MULTIPLICATION SIGN (*) key
Const vKAdd = 107 ‘PLUS SIGN (+) key
Const vKEnter = 108 ‘ENTER (keypad) key
Const vKSubtract = 109 ‘MINUS SIGN (-) key
Const vKDecimal = 110 ‘DECIMAL POINT(.) key
Const vKDivide = 111 ‘DIVISION SIGN (/) key
Const vKF1 = 112 ‘F1 key
Const vKF2 = 113 ‘F2 key
Const vKF3 = 114 ‘F3 key
Const vKF4 = 115 ‘F4 key
Const vKF5 = 116 ‘F5 key
Const vKF6 = 117 ‘F6 key
Const vKF7 = 118 ‘F7 key
Const vKF8 = 119 ‘F8 key
Const vKF9 = 120 ‘F9 key
Const vKF10 = 121 ‘F10 key
Const vKF11 = 122 ‘F11 key
Const vKF12 = 123 ‘F12 key
Const vKF13 = 124 ‘F13 key
Const vKF14 = 125 ‘F14 key
Const vKF15 = 126 ‘F15 key
Const vKF16 = 127 ‘F16 key

(Declarations)

Declare Sub keybd_event Lib “user32.dll” (Byval bVk As Integer, Byval bScan As Integer, Byval dwFlags As Integer, Byval dwExtraInfo As Integer)

Collapse

Function Collapse (focusonform As Integer)
 Dim i As Integer 
 ’Pressing Page Down and SPACE to get focus to embedded view
 keybd_event vKControl , 0, KeyDown, 0
 keybd_event vKEnd , 0, KeyDown, 0
 keybd_event vKEnd , 0, KeyUp, 0
 keybd_event vKControl , 0, KeyUp, 0  
 keybd_event vKSpace, 0, KeyDown, 0
 keybd_event vKSpace, 0, KeyUp, 0  
 ’Pressing CTRL HOME to get focus on the first view line
 keybd_event vKControl , 0, KeyDown, 0
 keybd_event vKHome , 0, KeyDown, 0
 keybd_event vKHome , 0, KeyUp, 0
 keybd_event vKControl , 0, KeyUp, 0  
 ’Repeat for max 20 categories
 For i =1 To 20
 ’Pressing – to collapse category
  keybd_event vKSubtract, 0, KeyDown, 0
  keybd_event vKSubtract, 0, KeyUp, 0   
 ’Pressing arrow down key to go to next category
  keybd_event vKDown, 0, KeyDown, 0
  keybd_event vKDown, 0, KeyUp, 0   
 Next 
 If focusonform Then
  ’Pressing Esc to get focus back on the form
  keybd_event vKEscape , 0, KeyDown, 0
  keybd_event vKEscape , 0, KeyUp, 0
  ’Pressing Ctrl Home to get focus on the first field in the form
  keybd_event vKControl , 0, KeyDown, 0
  keybd_event vKHome , 0, KeyDown, 0
  keybd_event vKHome , 0, KeyUp, 0
  keybd_event vKControl , 0, KeyUp, 0   
 End If 
 ’Pressing Ctrl Home to get focus on the first view line
 keybd_event vKControl , 0, KeyDown, 0
 keybd_event vKHome , 0, KeyDown, 0
 keybd_event vKHome , 0, KeyUp, 0
 keybd_event vKControl , 0, KeyUp, 0   
End Function

Expand

Function Expand
 ’Pressing Ctrl + End and SPACE to get focus to embedded view
 keybd_event vKControl , 0, KeyDown, 0
 keybd_event vKEnd , 0, KeyDown, 0
 keybd_event vKEnd , 0, KeyUp, 0
 keybd_event vKControl , 0, KeyUp, 0  
 keybd_event vKSpace, 0, KeyDown, 0
 keybd_event vKSpace, 0, KeyUp, 0  
 ’Pressing Shift + to expand all categories
 keybd_event vKShift , 0, KeyDown, 0
 keybd_event vKAdd , 0, KeyDown, 0
 keybd_event vKAdd , 0, KeyUp, 0
 keybd_event vKShift , 0, KeyUp, 0
End Function

previousTab

Sub previousTab
 ’Ctrl-Shift-Tab
 keybd_event vKControl , 0, KeyDown, 0
 keybd_event vKShift , 0, KeyDown, 0  
 keybd_event vKTab, 0, KeyDown, 0
 keybd_event vKTab, 0, KeyUp, 0  
 keybd_event vKShift , 0, KeyUp, 0
 keybd_event vKControl , 0, KeyUp, 0
End Sub 

Goodluck!

Comments (9)