vb 判断窗体是否打开
不知道大家有没有遇到过IfForm2.Visible=FalseThenYsMinutes="0"YsSeconds="0"EndIf用了这句话以后,判断Form2是否已...
不知道大家有没有遇到过
If Form2.Visible = False Then
YsMinutes = "0"
YsSeconds = "0"
End If
用了这句话以后,判断Form2是否已经打开.
结果自动给我弹出Form2了,我的代码没有form2.show,取消掉以上的代码就没事,怎么回事
我的目的只是判断form2是否show了,结果就自动show出来了,真怪
我知道代码没问题,但不知为何会弹出。 展开
If Form2.Visible = False Then
YsMinutes = "0"
YsSeconds = "0"
End If
用了这句话以后,判断Form2是否已经打开.
结果自动给我弹出Form2了,我的代码没有form2.show,取消掉以上的代码就没事,怎么回事
我的目的只是判断form2是否show了,结果就自动show出来了,真怪
我知道代码没问题,但不知为何会弹出。 展开
4个回答
展开全部
就是判断窗口ID是否存在了,Form1.hWnd
或者
Dim Form As Form
For Each Form In Forms
If Form.Name <> sFormName Then
Unload Form
Set Form = Nothing
End If
Next Form
或者
Dim Form As Form
For Each Form In Forms
If Form.Name <> sFormName Then
Unload Form
Set Form = Nothing
End If
Next Form
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Form2.visible的判断时,已经对Form2进行过了引用,所以就会加载。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
判断form2 是否允许 可在form2 加人
Private Sub Form_ Load
if app.previnstance then
msgbox 〃程序正在运行,请检查窗口是否被最小化。〃
end if
End Sub
Form2.Visible = False 是可见性 而不是判断是否允许
Private Sub Form_ Load
if app.previnstance then
msgbox 〃程序正在运行,请检查窗口是否被最小化。〃
end if
End Sub
Form2.Visible = False 是可见性 而不是判断是否允许
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询