在标准模块里设置一个全局变量,窗体打开了把它设为True,窗体关闭设为False,通过判断那个标志就知道窗体是否打开了:
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
温馨提示:内容为网友见解,仅供参考