正好我也需要这个功能,我是这样做的:
'判断指定窗体是否打开
Public?Function?frmopen(frmname?As?String)?As?Boolean
Dim?frmeach?As?Form
For?Each?frmeach?In?Forms
If?frmeach.Name?=?frmname?Then
frmopen?=?True
Exit?Function
End?If
Next
frmopen?=?False
End?Function
frmname是我们要判断是否打开的子窗体的名称,遍历所有窗体,如果要判断的窗体名称存在,则返回True,如果没有则返回false,根据返回函数来进行断判.
For Each na As Form In Application.OpenForms '打开窗体的集合
If na.ProductName = F1.ProductName AndAlso na.Name = F1.Name 0 Then '判断程序集的产品名称和窗体名称是否已存在打开的窗体中
If na.WindowState = FormWindowState.Minimized Then '判断窗体是否最小化
na.WindowState = FormWindowState.Normal '还原窗体
End If
na.Activate() '激活窗体
Return '返回
F1.Show() '如果没有打开的窗体中未找到,重新打开窗体
如果窗体是否处于显示状态,通过Visible属性辨别
如何判别窗体已载入,但未必显示.可以在forms集合中搜索一下是否存在指定窗体.
Function?isLoaded(strForm?as?String)?As?Boolean
'参数为窗体名
Dim?frm?As?Form
For?Each?frm?In?Forms
If?frm.Name?=?strForm?Then
isLoaded?=?True
以上就是土嘎嘎小编为大家整理的vb.net判断窗体状态相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!