狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

VB.NET中，在訪問窗體之前，你必須進(jìn)行窗體實(shí)例化,然后才能打開，如：Dim frm1 As New Form1' frm1.MdiParent = Me ' 定義MDI子窗體frm.Show() '打開窗體如果在項(xiàng)目中有多處代碼訪問同一窗體，都這樣的話，則會創(chuàng)建出
VB.NET中，在訪問窗體之前，你必須進(jìn)行窗體實(shí)例化,然后才能打開，如：

Dim frm1 As New Form1

' frm1.MdiParent = Me ' 定義MDI子窗體

frm.Show() '打開窗體

如果在項(xiàng)目中有多處代碼訪問同一窗體，都這樣的話，則會創(chuàng)建出不同的實(shí)例。如重防止重復(fù)打開MDI子窗體的實(shí)例呢？下面的代碼可以幫你完成：

Dim frm1As New Form1

CheckForm(frm1, "Form1")

'*****************************************************************************'*過程名稱：CheckForm

'*參數(shù)說明：MDIChildForm需檢測的窗體；MDIChildFormName 檢測窗體的名字

'*功能說明：首先檢測是否有MDI子窗體，如果沒有，則創(chuàng)該MDI子窗體的窗體實(shí)例

'* 如果有，則檢測當(dāng)中有沒有其窗體實(shí)例，有則激活；沒有則創(chuàng)建其窗體實(shí)例

'*****************************************************************************

Private Sub CheckForm(ByVal MDIChildForm As Form, ByVal MDIChildFormName As String)

If Me.MdiChildren.Length < 1 Then

'如果沒有任何一個MDI子窗體，則創(chuàng)該MDI子窗體的窗體實(shí)例

ShowForm(MDIChildForm )

Exit Sub

Else

Dim x As Integer

Dim frmyn As Boolean

For x = 0 To (Me.MdiChildren.Length) - 1

Dim tempChild As Form = CType(Me.MdiChildren(x), Form)

If tempChild.Name = MDIChildFormName Then

frmyn = True

'檢測到有該MDI子窗體，設(shè)為TRUE 并退出循環(huán)

Exit For

Else

frmyn = False

End If

Next

If frmyn = False Then

'在打開的窗體中沒檢測到則新建

ShowForm(tempForm)

Else

'在打開的窗體中檢測到則激活

Dim MDIChildFrm As Form = CType(Me.MdiChildren(x), Form)

MDIChildFrm .Activate()

End If

End If

End Sub

'**************************************************

'*過程名稱：ShowForm

'*參數(shù)說明：MDIChildForm 需創(chuàng)建實(shí)例的窗體

'*功能說明：創(chuàng)建窗體實(shí)例

'**************************************************

Private Sub ShowForm(ByVal MDIChildForm As Form)

Dim MDIChildFrm As Form = MDIChildForm

MDIChildFrm.MdiParent = Me ' 定義MDI子窗體

MDIChildFrm.Show() '打開窗體

End Sub

Dim objAllFrom As Form
    For Each objallform In Forms
      If objAllFrom.Name = "窗體名稱"  Then
        處理方法
      Else
      End If
    Next