如何用SetWindowPos函数设置当前窗体在窗口清单的底部?(在线等待,急)

Question

如题!我用HWND_BOTTOM 不起任何作用!Private 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 HWND_TOPMOST = -1
Private Const SWP_SHOWWINDOWS = &H40
    
Public Sub setPos()
    Dim retValue As Long
    Dim h As Long, v As Long
    Dim left As Long, top As Long    h = GetDeviceCaps(Me.hdc, HORZRES)  '屏幕宽度
    v = GetDeviceCaps(Me.hdc, VHORZRES)  '屏幕高度
    
    left = CStr(h) * 0.72 - frmDayInfo.ScaleWidth
    top = CStr(v) * 0.64    retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, left, top, Me.ScaleWidth, Me.ScaleHeight, SWP_SHOWWINDOWS)
end sub

Answer 1

窗体上一个按钮：
Private 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 Const HWND_BOTTOM = 1
 Const HWND_TOP = 0
 Const HWND_TOPMOST = -1
 Const HWND_NOTOPMOST = -2 Const SWP_FRAMECHANGED = &H20
 Const SWP_HIDEWINDOW = &H80
 Const SWP_NOACTIVATE = &H10
 Const SWP_NOCOPYBITS = &H100
 Const SWP_NOMOVE = &H2
 Const SWP_NOREDRAW = &H8
 Const SWP_NOSIZE = &H1
 Const SWP_NOZORDER = &H4
 Const SWP_SHOWWINDOW = &H40 Enum WindowPos
    OnTop = 1
    Normal = 2
    OnBottom = 3
End Enum Private Sub FormPos(hwnd As Long, Pos As WindowPos)
    Select Case Pos
        Case WindowPos.OnTop
            SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
        Case WindowPos.Normal
            SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
        Case WindowPos.OnBottom
            SetWindowPos hwnd, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    End Select
End SubPrivate Sub Command1_Click()
    FormPos Me.hwnd, OnBottom
End Sub
顺便说一下，下面两句有问题：
left = CStr(h) * 0.72 - frmDayInfo.ScaleWidth
top = CStr(v) * 0.64你需要的不是字串，不应该用cstr函数将数字转为字串，应该这样：
left = h * 0.72 - frmDayInfo.ScaleWidth
top = v* 0.64

Answer 2

Private Const HWND_TOPMOST = 1就能把你的窗口放在底部
Private Const HWND_TOPMOST = -1是把你的窗口放在顶部

Answer 3

现在问题就在于我把HWND_BOTTOM设为1后不没有任何作用.有的时候还是显示不出来.也就是说在其他窗体的底下.我本来想让他显示在桌面上边的.但我有时候打开就会把其他窗体给盖住而显示不出来,而此时桌面上没有任何窗体.多谢rainstormmaster提醒我那个问题.

Answer 4

winxp,这个窗体是不在任务栏进行显示的.你的程序测试过,没有问题.