请问怎样使EXCEL窗口成为顶层？

zyz995462

搜了半天，看到setwindowpos的说明：这个函数能为窗口指定一个新位置和状态。它也可改变窗口在内部窗口列表中的位置。该函数与DeferWindowPos函数相似，只是它的作用是立即表现出来的（在vb里使用：针对vb窗体，如它们在win32下屏蔽或最小化，则需重设最顶部状态。如有必要，请用一个子类处理模块来重设最顶部状态

是不是说一旦被屏蔽或最小化，用该函数定义的顶层窗口立即失效了？一直不失效的难道要用deferwindowpos吗？我一头雾水，对API具体编程一窍不通，请大侠多多指教。

lotustower

Private
    Sub Workbook_BeforeClose(Cancel As Boolean)
    Call MakeNormal(Application.hwnd)
End Sub

'

'---------------------------------------------------------------------------------------
' Module    : Module1
' DateTime  :
' Author    :
' Purpose   :
'---------------------------------------------------------------------------------------
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, y, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Public Sub MakeNormal(hwnd As Long)
    SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
End Sub
Public Sub MakeTopMost(hwnd As Long)
    SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
End Sub

Sub Test()
    Call MakeTopMost(Application.hwnd)
    ' Call MakeNormal(Application.hwnd)
End Sub

[此贴子已经被作者于2006-7-28 17:42:06编辑过]

zyz995462

谢谢lotustower大侠热情指教！只是我实在菜鸟，对VBA编程一窍不通，只知道录制宏。哪位大哥能根据上面的代码制作一个例子啊

winland

lotustower把该做的都做了, 剩下的就要你自己去学了.

killerwwww

楼主怎么这么笨啊，都写了这么多了，你怎么还学不会啊，高手们那有那么多的时间照顾你一个人啊，我说句公道话，高手们你们写一个例子给我发过来，我看懂了再教教他。。。。。。

zyz995462

楼上的我确实笨哦，你知道怎样利用上面的代码就教教我哦，我只会利用现成的

lotustower

QUOTE:

以下是引用zyz995462在2006-7-28 20:43:04的发言：
楼上的我确实笨哦，你知道怎样利用上面的代码就教教我哦，我只会利用现成的

M94Ah40k.zip (9.3 KB, 下载次数: 101)

2006-7-29 09:15 上传

点击文件名下载附件
[●解决中...]请问怎样使EXCEL窗口成为顶层？

zyz995462

再次谢谢lotustower大侠热情地、无微不至地指教。也许是我这里电脑是WIN98+EXCEL2000缘故，不能顺利执行呀，请大侠看在我这个菜鸟想把问题彻底解决的份上，再次给我指点一下呀

 

[此贴子已经被作者于2006-7-29 10:36:22编辑过]

zhoujibin1

12 楼的附件就是可以实现你的功能. 帮你搞定了还不知道,以后不再帮你了....

wzsy2_mrf

可能是excel2000没有Application.hwnd属性，如果这样，那还得通过API的GetWimdows函数去获得此句柄。