excel顶层显示
1 'Update 20140909 2 #If Win64 Then 3 Public Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal HWND As LongPtr, ByVal hwndinsertafter As LongPtr, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wflags As Long) As Long 4 #Else 5 Public 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 6 #End If 7 Public Const SWP_NOSIZE = &H1 8 Public Const SWP_NOMOVE = &H2 9 Public Const HWND_TOPMOST = -1 10 Public Const HWND_NOTOPMOST = -2 11 Sub ShowXLOnTop(ByVal OnTop As Boolean) 12 Dim xStype As Long 13 #If Win64 Then 14 Dim xHwnd As LongPtr 15 #Else 16 Dim xHwnd As Long 17 #End If 18 If OnTop Then 19 xStype = HWND_TOPMOST 20 Else 21 xStype = HWND_NOTOPMOST 22 End If 23 Call SetWindowPos(Application.HWND, xStype, O, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE) 24 End Sub 25 Sub SetXLonTop() 26 ShowXLOnTop True 27 End Sub 28 Sub SetXLNormal() 29 ShowXLOnTop False 30 End Sub
再宏中选择置顶与否
【推荐】国内首个AI IDE，深度理解中文开发场景，立即下载体验Trae
【推荐】编程新体验，更懂你的AI，立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包，你的智能百科全书，全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell：AI 加持，快人一步
· 如何编写易于单元测试的代码
· 10年+ .NET Coder 心语，封装的思维：从隐藏、稳定开始理解其本质意义
· .NET Core 中如何实现缓存的预热？
· 从 HTTP 原因短语缺失研究 HTTP/2 和 HTTP/3 的设计差异
· AI与.NET技术实操系列：向量存储与相似性搜索在 .NET 中的实现
· 周边上新：园子的第一款马克杯温暖上架
· Open-Sora 2.0 重磅开源！
· 分享 3 个 .NET 开源的文件压缩处理库，助力快速实现文件压缩解压功能！
· Ollama——大语言模型本地部署的极速利器
· [AI/GPT/综述] AI Agent的设计模式综述