如何使窗口位于最下层

Question

用setwindowpos API 应该可以吧?没有试过.

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
Private Const HWND_BOTTOM = 1
Private Const HWND_BROADCAST = &HFFFF&
Private Const HWND_DESKTOP = 0
Private Const HWND_NOTOPMOST = -2
Private Const HWND_TOP = 0
Private Const HWND_TOPMOST = -1
Dim NoChance As Boolean
Private Sub Form_Activate()
Do
SetWindowPos Me.hwnd, HWND_BOTTOM, 10&, 10&, 80&, 120&, 0&
DoEvents
Loop Until NoChance
End Sub
Private Sub Form_Unload(Cancel As Integer)
NoChance = True
End Sub
但是没有实际用处。
这段代码：
SetWindowPos Me.hwnd, HWND_BOTTOM, 10&, 10&, 80&, 120&, 0&
可以使窗体暂时在最下层......
--------------------------------------------------------------------
Made by Thirdapple's Studio(http://3rdapple.51.net/)

Answer 2

可能有参考价值：
http://www.dapha.net/vb/list.asp?id=1579
代码名称 下拉的窗体(一个界面设计必看的程序)  
代码类型 窗口界面 
运行环境 VB6.0/Win9x 
授权方式 免费代码 
代码大小 39K 
代码评价  
上传时间 2002-1-3 
相关链接 主页 
本日下载 2  本周：47  总计：47 
下载地址1 下载 
代码简介 如果不打开看过, 真的不相信一张Form可以躲在另一张Form的后面一起平滑的移动.,而且点击背后的那张form会发生下拉的效果.整个Form都有形状. 而不是方角.皮肤也上的不错. 

Answer 3

P.s 我说的是Zyl910提供的那段

Answer 4

Private Sub Form_Activate()
Me.ZOrder 1
End Sub

Answer 5

经过验证，楼上的代码还是不能用。继续关注。
--------------------------------------------------------------------
欢迎使用Fantasia Photo(http://3rdapple.51.net/FantasiaPhoto.htm)
--------------------------------------------------------------------
Made by Thirdapple's Studio(http://3rdapple.51.net/)