by Florin Florea (2 Submissions)
Category: Miscellaneous
Difficulty: Advanced
Date Added: Wed 3rd February 2021
Rating: 
(5 Votes)
Intellisense for DataEnvironments Recordset Commands
It adds the intellisense feature for the DataEnvironment commands that return a
recordset.
It identifies the DataEnvironment and the Command name as you type. It works both cu "!"
and with ".fields(" (ex. DataEnvironment1.rsCommand1!FieldName and
DataEnvironment1.rsCommand1.Fields("FieldName").
It ain't perfect but it can be made better (if you can, please do so).Anyway, this is the kind of feature that I was looking for a long time. Couldn't find it so I've made it. I hope it proves useful to you too.
Large portions of this code were adapted from grigri's addin:
https://www.vbcoders.com/vb/scripts/ShowCode.asp?txtCodeId=53146&lngWId=1
I've tried to combine the two addins, but the outcome was too unstable.
Enjoy!
API DeclarationsPublic Declare Function SetFocus Lib "user32.dll" (ByVal hwnd As Long) As Long
Public Declare Function GetFocus Lib "user32.dll" () As Long
Public Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function GetCaretPos Lib "user32.dll" (lpPoint As POINTAPI) As Long
Public Declare Function ClientToScreen Lib "user32.dll" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Public Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Declare Function RedrawWindow Lib "user32.dll" (ByVal hwnd As Long, lprcUpdate As Any, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
Public Declare Function CallNextHookEx Lib "user32.dll" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function SetWindowsHookEx Lib "user32.dll" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hHook As Long) As Long
Download IntellisenseDEnv (10 KB)
VBcoders