Xqlab’s Blog

　　API函数在VB中得到了充分的运用，同时也让无数VB爱好者沉溺于其中。以下是俺最近收集的一些API函数在VB中应用的实例，现在分享出来，希望大伙有用。不过老实说，在VB中的API感觉不是很好~
　　
　　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
　　 全文阅读 »