1个回答
展开全部
在标准模块里设置一个全局变量,窗体打开了把它设为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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询