如何让进度条的窗体在主窗体前显示？

[towdney]

我编的程序中，除了主窗体，还有另外一个进度条窗体，运行程序时候，弹出进度条窗体显示程序进行进度，可是当我把鼠标点击到主窗体，也就是焦点集中在主窗体，这时候那个进度条窗体就看不到了，要把主窗体最小化才能看到。请问如何让进度条始终显示在主窗体前，而当我点击其他程序的窗体时候，又不能让这个进度条窗体显示在其他程序窗体前面，即是如何保证进度条窗体只能显示在本程序主窗体前？

[y1g1y1]

frmProgress.show ,me

[zyl910]

SetWindowPos

VB声明
Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (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
说明
这个函数能为窗口指定一个新位置和状态。它也可改变窗口在内部窗口列表中的位置。该函数与DeferWindowPos函数相似，只是它的作用是立即表现出来的（在vb里使用：针对vb窗体，如它们在win32下屏蔽或最小化，则需重设最顶部状态。如有必要，请用一个子类处理模块来重设最顶部状态
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
hwnd Long，欲定位的窗口
hWndInsertAfter Long，窗口句柄。在窗口列表中，窗口hwnd会置于这个窗口句柄的后面。也可能选用下述值之一：
HWND_BOTTOM 将窗口置于窗口列表底部
HWND_TOP 将窗口置于Z序列的顶部；Z序列代表在分级结构中，窗口针对一个给定级别的窗口显示的顺序
HWND_TOPMOST 将窗口置于列表顶部，并位于任何最顶部窗口的前面
HWND_NOTOPMOST 将窗口置于列表顶部，并位于任何最顶部窗口的后面
x Long，窗口新的x坐标。如hwnd是一个子窗口，则x用父窗口的客户区坐标表示
y Long，窗口新的y坐标。如hwnd是一个子窗口，则y用父窗口的客户区坐标表示
cx Long，指定新的窗口宽度
cy Long，指定新的窗口高度
wFlags Long，包含了旗标的一个整数
SWP_DRAWFRAME 围绕窗口画一个框
SWP_HIDEWINDOW 隐藏窗口
SWP_NOACTIVATE 不激活窗口
SWP_NOMOVE 保持当前位置（x和y设定将被忽略）
SWP_NOREDRAW 窗口不自动重画
SWP_NOSIZE 保持当前大小（cx和cy会被忽略）
SWP_NOZORDER 保持窗口在列表的当前位置（hWndInsertAfter将被忽略）
SWP_SHOWWINDOW 显示窗口
SWP_FRAMECHANGED 强迫一条WM_NCCALCSIZE消息进入窗口，即使窗口的大小没有改变
注解
窗口成为最顶级窗口后，它下属的所有窗口也会进入最顶级。一旦将其设为非最顶级，则它的所有下属和物主窗口也会转为非最顶级。Z序列用垂直于屏幕的一根假想Z轴量化这种从顶部到底部排列的窗口顺

[icy_csdn]

form.show 1

[towdney]

SetWindowPos的资料说了那么多，到底具体怎么用啊，能否示例一下？

[doubos]

Sub Main
End Sub

[towdney]

???sub Main?还是不清楚，朋友，话说清楚好吗？

[rise139]

假如要在程序中一个窗体显示主窗口在最前面，最好用下面了例子：
Public Declare Function SetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long
Const GWW_HWNDPARENT = (-8)

Public Function Previousform(dest As Long, Y As Long)
'调用这个函数设置窗体后，保存窗体的原始父窗体
'当窗体取消后需要用他来恢复，以避免一般保护错误
'如: OriginalParenth = SetWindowWord(me.hwnd, GWW_HWNDPARENT, Mdiform1.Hwnd)
'取消时:SetWindowWord(me.hwnd, GWW_HWNDPARENT, OriginalParenth)

Previousform = SetWindowWord(dest, GWW_HWNDPARENT, Y)
End Function

如:
dim OriginalParenth as long

'在子窗体中（指定靠前的窗口）
Private Sub Form_Load()
OriginalParenth=reviousform(Me.hwnd, MDIForm1.hwnd)
....

'窗口关闭时恢复
Private Sub Form_Unload(Cancel As Integer)
Previousform Me.hwnd, OriginalParenth
end sub

[towdney]

楼上的兄弟，我还是搞不太清楚，请问你说的
'在子窗体中（指定靠前的窗口）
Private Sub Form_Load()
OriginalParenth=reviousform(Me.hwnd, MDIForm1.hwnd)
....

'窗口关闭时恢复
Private Sub Form_Unload(Cancel As Integer)
Previousform Me.hwnd, OriginalParenth
end sub
分别加在哪个窗体？子窗体（要显示在该程序的最前面的窗体)还是主窗体啊？你说清楚一点。

[towdney]

up

[qbilbo]

要简单一点的话 进度条窗体.show 0,主窗体 即可。

如果要用API SetWindowPos 的话，在进度条窗体的load事件中写
setwindowpos me.hwnd,-1,0,0,0,0,3
该函数的声明上面有，就不重复了。

用第一种方法是将主窗体设为进度条窗体的父窗体，当主窗体最小化或卸载时，进度条窗体也会最小化或卸载。不会被主窗体覆盖,但会被其它窗体覆盖。
用第二种方法是将进度条窗体设为始终显示在最上层,它不会随着主窗体的变化而变化，且不会被其它窗体覆盖。

[hzc1]

声明SetParent
用法：SetParent 进度条窗体名称.hWnd, 主窗体名称.hWnd

[rise139]

楼上的兄弟，我还是搞不太清楚，请问你说的
'在进度条窗体中（指定靠前的窗口）
Private Sub Form_Load()
OriginalParenth=reviousform(me.hwnd, MDIForm1.hwnd)
....

'进度条窗口关闭时恢复
Private Sub Form_Unload(Cancel As Integer)
Previousform Me.hwnd, OriginalParenth
end sub

都是加在进度条窗口里

这种方法最好,用了就知道

[rise139]

如果你还是搞不清楚,留email 我写个例子给你

[YHeng]

进度条窗体名称.show,属主窗体名称
（把复杂的事情变简单了贡献！！！）

[ey21cn]

可以将进度窗体设成模式的
进度完成关闭模式窗体

[zhsu]

frmProgress.show vbmodel,me

就可以了

[towdney]

什么叫模式窗体？如何设置？

[towdney]

这些语句加在哪里？

[rise139]

呵呵 惭愧了,查了手册才知道

下面就可以拉
Private Sub Command1_Click()
进度条窗体.Show 0, Me
End Sub

[BillOB]

最简单的方法：
进度条显示的时候
form1.enabled=false(fomr1是主窗体）
进度条显示完了后
form1.enabled=true
这样进度条窗体永远也不会被遮住