setwinpos.bas

vb 写的播放器 对新的开发者很有用。写的不错。非常实际

Attribute VB_Name = "SetWinPos"

' **********************************************************************
'  描  述：存vb代码写的winnap程序，非常酷
'  Play78.com : 网站导航，源码之家，绝对开源
'  海阔天空收集整理
'  主站地址：http://www.play78.com/
'  源码下载地址：http://www.play78.com/blog
'  图片下在地址：http://www.play78.com/pic
'  QQ：13355575
'  e-mail:[e-mail]
'  编写日期：2005年08月30日
' **********************************************************************

Public 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)
'hWndInsertAfter:
Public Const HWND_BOTTOM = 1 '窗口置底
Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOP = 0 '窗口置顶
Public Const HWND_TOPMOST = -1 '将窗口置于所有非顶层窗口之上
Public Const HWND_BROADCAST = &HFFFF&
Public Const HWND_DESKTOP = 0
'wFlags:
'Public Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Public Const SWP_FRAMECHANGED = &H20 '  The frame changed: send WM_NCCALCSIZE
Public Const SWP_HIDEWINDOW = &H80 '隐藏窗口
Public Const SWP_NOACTIVATE = &H10 '不击活窗口
Public Const SWP_NOCOPYBITS = &H100 '清除工作区的所有内容
Public Const SWP_NOMOVE = &H2 '维持当前位置
Public Const SWP_NOOWNERZORDER = &H200 '  Don't do owner Z ordering
Public Const SWP_NOREDRAW = &H8 '不重画改变的内容
'Public Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Public Const SWP_NOSIZE = &H1 '维持当前尺寸
Public Const SWP_NOZORDER = &H4 '维持当前顺序
Public Const SWP_SHOWWINDOW = &H40 '显示窗口

Public Sub SetTop(ByVal Frm As Form)
SetWindowPos Frm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOACTIVATE
End Sub

Public Sub SetNoTop(ByVal Frm As Form)
SetWindowPos Frm.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOACTIVATE
End Sub

Public Sub SetAllTop()
SetTop Mainfrm
SetTop EQfrm
SetTop Listfrm
End Sub

Public Sub SetAllNoTop()
SetNoTop Mainfrm
SetNoTop EQfrm
SetNoTop Listfrm
End Sub