父窗体和子窗体的显示(vb.net)

首先写一个模块,其作用是检验一个子窗体是否已被实例化。

Module InstanceState

'检验一个窗体是否被实例化

Public Function GetInstanceState(ByVal name As String) As Boolean

Dim i As Integer = MDIMain.MdiChildren.Length

For i = 0 To MDIMain.MdiChildren.Length - 1

If MDIMain.MdiChildren(i).Name = name Then

MDIMain.MdiChildren(i).Focus()

Return True

End If

Next i

Return False

End Function

End Module

然后,在父窗体对子窗体的调用事件中设置子窗体置顶和是否在任务栏中显示属性

If GetInstanceState(form1.Name) Then

Exit Sub

End If

Dim frm1 As New form1

frm1.MdiParent = Me

frm1.Show()

frm1.TopMost = True

frm1.ShowInTaskbar = False

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------------------...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办法, Format 或者FormatDateTime 竟然结果和...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace My ‘全局错误处理,新的解决方案直接...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用的爽呀,这篇文章写与2011年,看来我以前没...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, t...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integ...