VB重復(fù)打開子窗體

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

公司主營業(yè)務(wù)：網(wǎng)站制作、做網(wǎng)站、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出睢縣免費做網(wǎng)站回饋大家。

VB.NET中，在訪問窗體之前，你必須進行窗體實例化,然后才能打開，如：

Dim frm1 As New Form1

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

frm.Show() '打開窗體

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

Dim frm1As New Form1

CheckForm(frm1, "Form1")

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

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

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

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

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

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

If Me.MdiChildren.Length 1 Then

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

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)建實例的窗體

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

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

Private Sub ShowForm(ByVal MDIChildForm As Form)

Dim MDIChildFrm As Form = MDIChildForm

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

MDIChildFrm.Show() '打開窗體

End Sub

如何在VB.NET中打開另一個頁面

當前界面為Form1的話要打開Form2

就Form2.Show

如果是對話框形式就Form2.ShowDialog

VB.net實現(xiàn)打開子窗體后父窗體不可用，代碼應(yīng)該怎么寫？

這不就是MDI嗎?把主窗口的IsMdiContainer屬性設(shè)置為True,然后在加載子窗口的時候加上一句:子窗口.MdiParent=主窗口然后再Show就行了.示例:PrivateSubb1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesb1.ClickDimfrmAsNewForm2frm.MdiParent=Mefrm.Show()EndSub

網(wǎng)站題目：vb.net打開子網(wǎng)頁,vbnet main啟動窗體
網(wǎng)頁URL：http://chinadenli.net/article1/dseiiod.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供Google、網(wǎng)站內(nèi)鏈、App設(shè)計、手機網(wǎng)站建設(shè)、企業(yè)建站、小程序開發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)