vba 实现excel全屏显示 隐藏excel标题栏 windows任务栏等等 32/64通用

perfect131

        vba 实现excel全屏显示 隐藏excel标题栏 windows任务栏等等  32/64通用

      效果：
      

wang-way

代码呢  办法呢xxxxxx

木槿花西月锦绣

wang-way 发表于 2024-6-28 17:02
代码呢  办法呢xxxxxx

看缘（元￥）分

wang-way

木槿花西月锦绣 发表于 2024-6-28 22:13
看缘（元￥）分

我当然知道啊 我第一次跟他贴 就想要我200缘

chenjx80

只需2步：
1. 把Excel窗口尺寸调整为桌面屏幕尺寸，无需隐藏Windows任务栏。
2. 根据需要隐藏某些Excel窗口元素。

perfect131

chenjx80 发表于 2024-6-29 19:17
只需2步：
1. 把Excel窗口尺寸调整为桌面屏幕尺寸，无需隐藏Windows任务栏。
2. 根据需要隐藏某些Excel窗 ...

难道你手动隐藏的Windows任务栏？？
Excel窗口尺寸调整为桌面屏幕尺寸 也不可能把Windows任务栏盖住啊？？

chenjx80

perfect131 发表于 2024-6-29 20:05
难道你手动隐藏的Windows任务栏？？
Excel窗口尺寸调整为桌面屏幕尺寸 也不可能把Windows任务栏盖住啊？ ...

SetWindowLong(Hwnd, GWL_STYLE, lStyle) 去除Excel窗口标题栏。
GetDeviceCaps(hdc, HORZRES) 和 GetDeviceCaps(hdc, VERTRES) 取得屏幕尺寸。
SetWindowPos(Hwnd, 0, 0, 0, GetScreenWidth, GetScreenHeight, SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED) 设置Excel窗口位置。
这样就不需要隐藏任务栏了。

perfect131

chenjx80 发表于 2024-6-29 21:41
SetWindowLong(Hwnd, GWL_STYLE, lStyle) 去除Excel窗口标题栏。
GetDeviceCaps(hdc, HORZRES) 和 GetDe ...

不错，但你好像忽略了 DPI 既然用尺寸 那就得考虑 DPI

wang-way

perfect131 发表于 2024-6-29 21:48
不错，但你好像忽略了 DPI  既然用尺寸 那就得考虑 DPI

oH 原来是玩了几个api

chenjx80

看你的动画，你的任务栏隐藏有些慢，我猜想你采用的方法是“自动隐藏”。
如果采用
Hwnd = FindWindow("Shell_TrayWnd", vbNullString)  ' 取任务栏窗口句柄
Call ShowWindow(Hwnd, SW_HIDE)
隐藏是很快速的。
采用前一贴的代码处理后，不隐藏任务栏也能实现全屏。