home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Kick_Butt_341981192001.psc / mod_Intellisence.bas < prev    next >
Encoding:
BASIC Source File  |  2001-11-08  |  1.1 KB  |  38 lines
  1. Attribute VB_Name = "mod_Intellisence"
  2. '// THESE ARE USED FOR OBTAIANING EXACT LOCATION OF     //
  3. '// CURSOR POSITION IN RTF BOX                          //
  4.  
  5.     Public Declare Function GetCaretPos Lib "user32" _
  6.                    (lpPoint As POINTAPI) As Long
  7.  
  8.     Type POINTAPI
  9.         X As Long
  10.         Y As Long
  11.     End Type
  12.  
  13.     Public POINTAPI As POINTAPI
  14.     
  15. '// THIS PUBLIC VARIABLE HOLDS THE "OBJECT" -- THAT IS, //
  16. '// THE STRING BEFORE THE "DOT". EXAMPLE. IF YOU        //
  17. '// TYPE ME.CAPTION, "ME" IS WHAT gObjName HOLDS        //
  18.  
  19.     Public gObjName As String
  20.     
  21.  
  22. '// THIS API CALL IS USED TO ALLOW YOU TO VIEW THE      //
  23. '// TEXT FILE IN NOTEPAD. THIS CALL IS NOT NEEDED       //
  24. '// FOR THE INTELLISENSE FUNCTIONALITY                  //
  25.  
  26.     Declare Function ShellExecute _
  27.             Lib "shell32.dll" Alias "ShellExecuteA" _
  28.             (ByVal hwnd As Long, _
  29.              ByVal lpOperation As String, _
  30.              ByVal lpFile As String, _
  31.              ByVal lpParameters As String, _
  32.              ByVal lpDirectory As String, _
  33.              ByVal nShowCmd As Long) As Long
  34.              
  35.  
  36.  
  37.  
  38.