代码居然不能判断 不知为何 求解~
坚守“ 做人真诚 · 做事靠谱 · 口碑至上 · 高效敬业 ”的价值观,专业网站建设服务10余年为成都围栏护栏小微创业公司专业提供成都企业网站定制营销网站建设商城网站建设手机网站建设小程序网站建设网站改版,从内容策划、视觉设计、底层架构、网页布局、功能开发迭代于一体的高端网站建设服务。
If Application.OpenForms.Item("错误画面名") IsNot Nothing Then
Exit Sub
Else
在30秒的时候弹出个messagebox选择的事件
确定就把timer的enabled属性设置成false 执行关机
取消把timer的enabled属性设置成false 计时器清零就行了
Dim F1 As New Datasystem.Form2 '实例化窗体
For Each na As Form In Application.OpenForms '打开窗体的集合
If na.ProductName = F1.ProductName AndAlso na.Name = F1.Name 0 Then '判断程序集的产品名称和窗体名称是否已存在打开的窗体中
If na.WindowState = FormWindowState.Minimized Then '判断窗体是否最小化
na.WindowState = FormWindowState.Normal '还原窗体
End If
na.Activate() '激活窗体
Return '返回
End If
Next
F1.Show() '如果没有打开的窗体中未找到,重新打开窗体
都不会关闭,除非你在按钮的Click事件处理中添加了Me.Close() 代码。