VB Check 显示窗体

来源：百度知道 编辑：UC知道 时间：2024/05/16 02:53:48
我创建了两个窗体Form1和Form2, Form1为启动对象. Form1上有个Check复选框. 我想让他选择时候等关闭后再打开,Form2也显示出来 取消Check后, Firm2便不再显示,请问如何实现, 把具体过程说出来.
用户名是啥东西说的这个我知道, 但是选择后立刻会显示出来, 我想要关闭后再打开才显示出来的效果

如果窗体不是必须被卸载,可以用"Form名.Visible=Ture/False"控制窗体的显示与隐藏，在未被卸载的情况下窗体的控件属性都不会有改变(如Check1.value一直不变)：
private Sub Form名_Unload() '当用户点击窗口的关闭按钮时
Form名.Visible=False
End Sub

-------------------------------------------
如果窗体会被卸载(如Unload Form名),则可以使用1个Long类型的全局变量保存Check1.value，当窗体被重新加载时读出，并用代码设置上(Check1.value=全局变量):
private Sub Form名_Unload() '当用户点击窗口的关闭按钮时
全局变量=Check1.value
End Sub

private Sub Form名_Load() '当用重新加载窗体时
Check1.value=全局变量
End Sub

全局变量必须在模块里声明

如果是要在关闭软件后保存check1的选择状态，就要用到临时文件，或者ini文件，或者是保存到注册表等。重新打开软件后，再把这个状态读出来就行了，然后再根据check1的状态决定是否显示form2。
下面的代码是采用的保存到注册表的方法，个人认为是最简单的：

Private Sub Form_Load()
Check1.Value = Val(GetSetting("Myapp", "setup", "check", "0"))
If Check1.Value = 1 Then Form2.Show
End Sub

Private Sub Form_Unload(Cancel As Integer)
SaveSetting "Myapp", "