1、把窗口设置无标题方式，然后自定义标题模式，模拟最小化功能。2、通过API方式，把窗口的最小化按钮恢复出来。这里推荐第二种方法，稳定性比较高，且开发简单。代码：Option ExplicitPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (By
'在This Work Book中加入以下代码 Private Sub Workbook_Open()form1.Show 0 End Sub '再到你想加载的主窗体中加入 Private Sub UserForm_Initialize()'当加载窗体时执行以下代码 Application.WindowState = xlMinimized '最小化excel窗口 End Sub ...
Application.WindowState = xlMinimized ‘窗口最小化 Application.WindowState =xlMaximized最大化 Application.WindowState =xlNormal为正常 Application.Cursor = xlIBeam ‘设置光标形状为Ⅰ字形 Application.Cursor = xlWait为沙漏(等待)形 Application.Cursor = xlNormal为正常 Application.StatusBar = "大众...
如果你是想在显示窗体的时候窗体一直在EXCEL表格的最前面，那么在显示窗体的语句处使用有模的方式打开，就是在show后面加个1：例如：sub auto_open()formname.show 1 end sub 如果是fromname.show 0 或者formname.show则窗体不会强制在最前面 如果想只显示窗体，EXCEL隐藏，则可通过下面语句可以设置EX...
excel里的userForm不支持窗体最小化这个操作，属性里没有设置windowState的功能，你可以看一下EXCEL的帮助信息
Private Const WS_MINIMIZEBOX As Long = &H20000 '(最小化)Private Const WS_MAXIMIZEBOX As Long = &H10000 '(最大化)Private Sub UserForm_Initialize() Dim hWndForm As Long Dim IStyle As Long hWndForm = FindWindow("ThunderDFrame", Me.Caption) IStyle = GetWindowLong(hWndForm, GWL_STYLE) ...
在“显示窗体”下拉列表中，选择刚才创建的登录窗体名称（如“梁山人力管理系统 登录界面”）。编写VBA代码（可选）：如果需要更复杂的自动弹出行为或隐藏主窗体，可以在窗体的“加载”事件中编写VBA代码。例如，使用DoCmd.RunCommand acCmdAppMinimize来最小化主窗体，使登录窗体更加突出。五、预览和测试 预...
可以使用shell函数打开windows内的程序。Sub myOpen() myOpen1 = Shell("Control.exe", vbMinimezedFocus)End SubControl.exe是程序名称，可以在程序列表重点击其属性获取（排除路径后最后的名称）。vbMinimezedFocus是显示模式，包括常规、最小化和最大化模式。
如果省略 windowstyle，程序将启动并最小化，但会获得焦点。在 Macintosh（System 7.0 或更高版本）中，windowstyle 只确定应用程序在运行时是否获得焦点。windowstyle 命名参数具有以下值：常量 值 说明vbHide 0 隐藏窗口并将焦点传递给隐藏的窗口。vbHide 常量在 Macintosh 平台中不适用。vbNormalFocus ...
acCmdDocMinimize 最小化ACCESS子窗体acCmdAppMinimize 最小化ACCESS窗体acCmdDocMaximize 最大化ACCESS子窗体acCmdQueryTotals 总计查询acCmdAutoDial 自动拔选择的电话号码acCmdFont 字体acCmdSubdatasheetExpandAll 子数据表全部展开acCmdSubdatasheetCollapseAll 子数据表全部收缩acCmdQueryTypeAppend 追加查询acCmd...
