[计算机软件及应用]Visual Basic非常有价值的技巧.docVIP

Visual Basic非常有价值的技巧 API函数在VB中得到了充分的运用，同时也让无数VB爱好者沉溺于其中。以下是笔者几年来收集整理的几十个API函数在VB中应用的实例，现在写出来与大伙分享，希望能对大伙有所帮助。 1、如何让窗体总在最前面？ ? ? API函数声明 ? ? Declare Function SetWindowPos Lib user32 ( 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 ? ? 常量声明 ? ? Private Const SWP_NOSIZE = H1 ? ? Private Const SWP_NOMOVE = H2 ? ? Private Const HWND_TOPMOST = -1 ? ? Private Const HWND_NOTOPMOST = -2 ? ? 在某个form里写： ? ? SetWindowPos me.hWnd,WND_TOPMOST,0,0,0,0, SWP_NOMOVE 或下面 ? ? SetWindowPos me.hWnd,WND_TOPMOST,0,0,0,0, ?SWP_NOSIZE ? ? ? ? 2、使用API函数sendmessage，获得光标所在行和列。 ? ? ? ? Sub getcaretpos(byval 　TextHwnd,LineNo,ColNo) ? ? 　TextHwnd为TextBox的hWnd属性值，　　LineNo为所在行数，ColNo为列数 ? ? 　　dim i,j,k 获取起始位置到光标所在位置字节数　　　　　　　　　i=SendMessage(TextHwnd,HB0,0,0) j=i/2^16 确定所在行　　　　　　LineNo=SendMessage(TextHwnd,HC9,j,0)+1 ? ? 　　确定所在列 ? ? 　　k=SendMessage(TextHwnd,HBB,-1,0) ? ? 　　ColNo=j-k+1 ? ? End sub ? ? ? ? 3、如何以某种颜色填充某区域？ ? ? ? ? *API函数声明 ? ? Private Declare Sub FloodFill Lib gdi32 _ (ByVal hDC As Long, ByVal X As Long, ByVal Y As _ Long, ByVal crColor As Long ? ? 设(fillx,filly)为此区域内任一点 ? ? Color为某种颜色 ? ? FloodFill Picture1.hDC, fillx, filly,Color ? ? ? ? 4、如何关闭计算机？ ? ? *API函数声明 ? ? Declare Function ExitWindows Lib User (ByVal dwReturnCode As Long, ByVal wReserved As Integer) As Integer ? ? 执行 ? ? Dim DUMMY ? ? DUMMY=ExitWindows(0，0) ? ? ? ? 5、如何获取Windows目录和System目录？ ? ? ? ? 复制以下代码到一模块中 ? ? Public Declare Function GetWindowsDirectory Lib kernel32 Alias GetWindowsDirectoryA (ByVal lpBuffer As String, ByVal nSize As Long) As Long ? ? Public Declare Function GetSystemDirectory Lib kernel32 Alias GetSystemDirectoryA (ByVal lpBuffer As String, ByVal nSize As Long) As Long ? ? 在程序中调用 ? ? Dim WindowsDirectory As String, SystemDirectory As String, x As Long ? ? WindowsDirectory = Space(255) ? ? SystemDirectory = Space(255) ? ? x = GetWindowsDirectory(WindowsDirectory, 255) ? ? x = GetSy