Msde查询分析器编码文档.docVIP

Msde查询分析器编码文档 程序代码及注释 由郑烜焕编写 Module1 模板代码： 为显示光标所在行和列申明的api函数 Public Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 为取出textbox中的第n行申明的api函数 Public Declare Sub RtlMoveMemory Lib KERNEL32 (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long) 为api调用所用的常量定义 Const EM_GETLINE = HC4 Const EM_LINELENGTH = HC1 Const EM_GETSEL = HB0 Const EM_LINEFROMCHAR = HC9 Const EM_LINEINDEX = HBB Const WM_USER = H400 Const EM_SETTARGETDEVICE = (WM_USER + 72) 定义脚本运行错误所在的行数 Public errrow As Integer Public fMainForm