-
Notifications
You must be signed in to change notification settings - Fork 32
/
Shortcut.bas
61 lines (59 loc) · 2.04 KB
/
Shortcut.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Attribute VB_Name = "Shortcut_Module"
' #VBIDEUtils#************************************************************
' * Programmer Name : removed
' * Web Site : http://www.ppreview.net
' * E-Mail : removed
' * Date : 23/08/99
' * Time : 13:33
' * Module Name : Shortcut_Module
' * Module Filename : Shortcut.bas
' **********************************************************************
' * Comments :
' *
' *
' **********************************************************************
Option Explicit
'Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'
'Public Sub ShortCutTreatment()
' ' #VBIDEUtils#************************************************************
' ' * Programmer Name : removed
' ' * Web Site : http://www.ppreview.net
' ' * E-Mail : removed
' ' * Date : 23/08/99
' ' * Time : 13:33
' ' * Module Name : Shortcut_Module
' ' * Module Filename : Shortcut.bas
' ' * Procedure Name : ShortCutTreatment
' ' * Parameters :
' ' **********************************************************************
' ' * Comments :
' ' *
' ' *
' ' **********************************************************************
'
' Exit Sub
'
' If (GetAsyncKeyState(vbKeyControl)) Then
' If (GetAsyncKeyState(vbKeyShift)) Then
' If GetAsyncKeyState(Asc("H")) Then Call InsertProcedureHeader
' If GetAsyncKeyState(Asc("M")) Then Call InsertModuleHeader
' If GetAsyncKeyState(Asc("W")) Then
' ' *** Search the web
' Call AlwaysOnTop(frmFindWeb, True)
' frmFindWeb.Show
' End If
'
' If GetAsyncKeyState(Asc("P")) Then
' ' *** Project explorer
' End If
' End If
'
' If GetAsyncKeyState(Asc("U")) Then Call GetPending
' If GetAsyncKeyState(Asc("K")) Then Call ClearDebug
' If GetAsyncKeyState(Asc("W")) Then Call SwapEgual
' If GetAsyncKeyState(Asc("M")) Then frmMessageBox.Show
'
' End If
'
'End Sub