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出来了,真怪
我知道代码没问题,但不知为何会弹出。
展开
 我来答
水木之
2011-02-21
知道答主
回答量:16
采纳率:0%
帮助的人:5.3万
展开全部
你的代码没问题,不信你新建一个工程,放两个窗体试试,在Form1中加上上述代码,Form2并不会弹出,但是VB有这个毛病,虽然不弹出,Form2还是被载入了,所以程序退出时会有点小问题:不能完全退出(Form2被载入,而且没被卸载)
解决方法:Form1退出时,顺便卸载Form2
以上不是解决你说的问题,因为我感觉你的代码并没问题
百度网友141ea6eb2c
2011-02-21 · 超过33用户采纳过TA的回答
知道答主
回答量:101
采纳率:0%
帮助的人:29.7万
展开全部
就是判断窗口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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友7c20fce
2011-02-21 · 超过73用户采纳过TA的回答
知道小有建树答主
回答量:213
采纳率:100%
帮助的人:161万
展开全部
Form2.visible的判断时,已经对Form2进行过了引用,所以就会加载。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友d0f5b4553
2011-02-21 · TA获得超过1399个赞
知道小有建树答主
回答量:502
采纳率:0%
帮助的人:336万
展开全部
判断form2 是否允许 可在form2 加人
Private Sub Form_ Load
if app.previnstance then
msgbox 〃程序正在运行,请检查窗口是否被最小化。〃
end if
End Sub
Form2.Visible = False 是可见性 而不是判断是否允许
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式