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

zyz995462

请问有什么程序语句或操作，能使打开的EXCEL窗口，成为顶层窗口，也就是说总是处于最前面，不被其它程序窗口遮挡，哪位大侠能指教一下，先谢谢了！

[此贴子已经被作者于2006-7-29 11:08:04编辑过]

zhoujibin1

用API函数,自己查下,我以前看到过.

zyz995462

谢谢楼上大哥热情回复，我搜“顶层”，没有任何资料啊。也许这样问题论坛探讨的少啊

哪个大哥有办法的话，指教一下啊

zyz995462

查了半天，可能是要用API函数setwindowpos ,我不懂呀，顶一下，等待大侠指教

zhoujibin1

用API指南帮助

zhoujibin1

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub 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)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Sub Window_Top()         '调用API函数,实现窗口最前
    Dim WINWND As Long
    WINWND = FindWindow(vbNullString, Application.Caption)
    SetWindowPos WINWND, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

我总于搞定个示例给你用用.

调用该过程即可.

zhoujibin1

GAgQaWlc.rar (7.75 KB, 下载次数: 370)

2006-7-27 17:05 上传

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

附件中是示例.

zhoujibin1

The following is the codes from the Microsoft examples for using API.

将 Excel 设置为“总在前面”

下面的示例代码说明如何使 Microsoft Excel“总在前面”。这可以防止其他应用程序
显示在 Microsoft Excel 前面。

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
                            ByVal lpWindowName As String) As Long
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
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2

Sub SetOnTop()
    Dim WinHnd As Long, SUCCESS As Long
    WinHnd = FindWindow("xlmain", Application.Caption)
    SUCCESS = SetWindowPos(WinHnd, HWND_TOPMOST, 0, 0, 0, 0, Flags)
    '下面一行只是为了 20 秒之后将 Excel 切换回正常操作状态
    Application.OnTime Now + TimeValue("00:00:20"), "NotOnTop"
End Sub

Sub NotOnTop()
    Dim WinHnd As Long, SUCCESS As Long
    WinHnd = FindWindow("xlmain", Application.Caption)
    SUCCESS = SetWindowPos(WinHnd, HWND_NOTOPMOST, 0, 0, 0, 0, Flags)
End Sub

zyz995462

谢谢zhoujibin1大侠热情帮助！正在学习中...[em38][em38][em38]

zyz995462

再次谢谢zhoujibin1大侠，您的示例怎么执行起来有时可行，有时失灵，还是要被其他窗口遮挡呀。。。我是WIN98+EXCEL2000。。。我打开您的EXCEL示例后，不断作了打开IE，打开文件夹，最大化/最小化等试验。

[此贴子已经被作者于2006-7-27 19:38:54编辑过]