在标准模块里设置一个全局变量,窗体打开了把它设为True,窗体关闭设为False,通过判断那个标志就知道窗体是否打开了:
创新互联长期为成百上千家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为雨山企业提供专业的做网站、网站建设,雨山网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例,为您定制开发。
Public
frmOpenFlag
As
Boolean
窗体上:
Private
Sub
Form_Load()
frmOpenFlag=True
......
End
Sub
Private
Sub
Form_Unload()
frmOpenFlag=False
End
Sub
其他窗体里判断:
Private
Sub
Command1_Click()
If
frmOpenFlag
then
MsgBox
"Form1已经打开!"
End
Sub
End
Sub
参考代码:
Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
If MessageBox.Show("确定要关闭吗?", Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No Then
e.Cancel = True
End If
End Sub
运行效果:
Dim p As New Process
p.StartInfo="d:\test.docx"
p.Start
p.WaitForExit() '等待程序结束
Msgbox("文档已经关闭")
如果是单线程程序,在文档关闭前就会一直卡住,所以要用多线程处理。
本文名称:vb.net询问是否关闭的简单介绍
标题链接:https://www.cdcxhl.com/article10/doshjgo.html
成都网站建设公司_创新互联,为您提供动态网站、网站维护、自适应网站、响应式网站、网站改版、电子商务
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联