技巧

热门文章

最新文章

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

心得/经验/绝招

如何使 Microsoft 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)  '如若要设置程序为access，请将ClassName "xlmain" 改为 "Omain" 即可。
   
    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
发布人:小鱼-网络  
分享到：
点击次数：  更新时间：2006-11-22 22:19:42  【打印此页】  【关闭】
上一条：实现查询功能（DAO）  下一条：数字在支票打印中分栏数字的函数


相关文章

热门文章

热门产品