重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
我只讲思路,很简单:
网站建设哪家好,找创新互联建站!专注于网页设计、网站建设、微信开发、小程序设计、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了金口河免费建站欢迎大家使用!
给窗体孙配启添加一个键盘按卖碰下的事件,判断按键的值是不是F8,
是的话就则如隐藏窗体(显示窗体)。
form.visible
=
!form.visible;
在调用安装窗口时就指定为隐藏啊,如Shell "安装程序文件名",vbHide '隐藏运行 如果是针谈巧对已运行的程序,可以用API来侍亮隐藏窗体比如我有一个“计算器”的程序在运行,点下面这个按钮就可以老侍宽将它隐藏了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_HIDE = 0 Private Sub Command1_Click()
Dim 窗口句柄 As Long
窗口句柄 = FindWindow(vbNullString, "计算器")
ShowWindow 窗口句柄, SW_HIDE
End Sub
把关机模式设置肢模成“当最后一个窗体关碧饥察闭时”,如下悔茄图:
首先要添加两个窗体,假设第一个窗体名为Form1,第二个窗体名为Form2。在Form1窗体中添加个按钮腊慧Command1。按钮单击事件的代码为:
Private Sub Command1_Click()
Form2.Show '用show方法加载并且显示名为Form2的销悄窗体
End Sub
show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省。可自行运行轮斗答验证