如何使窗体加载时全屏显示？

作者：绿色风分类：时间：2022-08-17 浏览：122

楼主 amulee	Q：如何使窗体加载时全屏显示？ A：按Alt+F11进入VBE，在窗体中添加以下代码即可。 Private Sub UserForm_Initialize() Dim appStatus appStatus = Application.WindowState Application.WindowState = xlMaximized Me.StartUpPosition = 1 Me.Width = Application.Width Me.Height = Application.Width Application.WindowState = appStatus End Sub
2楼 bluekarate	请问，第八行 Application.WindowState = appStatus 有什么用？为什么要赋值回去？谢谢！
3楼 xtanuihazfh	Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Const SW_MAXIMIZE = 3 Private Sub UserForm_Activate() Dim FormHwnd As Long FormHwnd = FindWindow(vbNullString, Me.Caption) ShowWindow FormHwnd, SW_MAXIMIZE End Sub
4楼 xtanuihazfh	窗体打开时最大化显示窗体,楼主的方法是调整窗体大小模拟最大化显示; API则是最大化显示,不实际改变窗体大小,两者略有不同

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表