如何使 Microsoft Excel“总在前面”_实际编程_编程心得绝招_Access_...

来源：百度文库编辑：神马文学网时间：2024/05/03 08:03:39

下面的示例代码说明如何使 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 = -2Sub 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 SubSub 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 文章出处：http://www.diybl.com/course/7_databases/access/ac_xd/sjbc/2007614/51693.html

如何使 Microsoft Excel“总在前面”_实际编程_编程心得绝招_Access_... ASP编程心得 EXCEL 编程(VBA) 系统托盘编程_平台/系统_VC技术文章 WAP 服务器设置_编程日记系统托盘编程_平台/系统_VC技术文章 VC在线_技术文章->>读书笔记|免费vc源代码|vc编程技术文章|vc教程|编程技巧|编... 如何学习编程如何成为编程高手如何成为编程高手 Web 2.0 编程思想：16条法则_站长资讯打印成绩表并计算总分和平均分_编程天地 VMware共享文件夹_编程学习无国界安全编程详解v1.00（一）_糊涂居 sqlserver2000触发器开发文档_数据库_ASP编程网 [Windows编程]管道_乌鸦的小窝编程心得之：编程初学者的良言警句编程心得之：编程初学者的良言警句 Excel图表编程应用1初识图表编程 Excel图表编程应用2图表编程基础 Windows Socket编程简介_网络技术_程序开发_远播教育网a 编程之美--微软技术面试心得涉及C语言中参数调用和参数传递机制的探讨_非常编程专注编程 Excel VBA编程的常用代码