vb.net mdi顯示當(dāng)前活動(dòng)子窗體文本框的內(nèi)容

簡(jiǎn)單的問(wèn)題

10余年專注建站、設(shè)計(jì)、互聯(lián)網(wǎng)產(chǎn)品按需定制網(wǎng)站服務(wù)，業(yè)務(wù)涵蓋品牌網(wǎng)站設(shè)計(jì)、購(gòu)物商城網(wǎng)站建設(shè)、小程序制作、軟件系統(tǒng)開(kāi)發(fā)、成都APP應(yīng)用開(kāi)發(fā)等。憑借多年豐富的經(jīng)驗(yàn)，我們會(huì)仔細(xì)了解每個(gè)客戶的需求而做出多方面的分析、設(shè)計(jì)、整合，為客戶設(shè)計(jì)出具風(fēng)格及創(chuàng)意性的商業(yè)解決方案，成都創(chuàng)新互聯(lián)公司更提供一系列網(wǎng)站制作和網(wǎng)站推廣的服務(wù)，以推動(dòng)各中小企業(yè)全面信息數(shù)字化，并利用創(chuàng)新技術(shù)幫助各行業(yè)提升企業(yè)形象和運(yùn)營(yíng)效率。

Dim ActiveTextBox As TextBox = Me.ActiveMdiChild.Controls("TextBox1") '里面的字符串填控件的Name屬性

MsgBox(ActiveTextBox.Text)

vb.net mdiform的父窗口調(diào)用子窗口的函數(shù)

既然子窗體都有同名函數(shù)，就應(yīng)該對(duì)子窗體進(jìn)行一層封裝，子類實(shí)現(xiàn)不同方法

Public?MustInherit?Class?AbstractChild

Public?MustOverride?Sub?Method1()

End?Class

Public?Class?ChildClass1

Inherits?AbstractChild

Public?Overrides?Sub?Method1()

MessageBox.Show("class1")

End?Sub

End?Class

Public?Class?ChildClass2

Inherits?AbstractChild

Public?Overrides?Sub?Method1()

MessageBox.Show("class2")

End?Sub

End?Class

Public?Class?ChildClass3

Inherits?AbstractChild

Public?Overrides?Sub?Method1()

MessageBox.Show("class3")

End?Sub

End?Class

Dim?child1?As?New?ChildClass1()

Dim?child2?As?New?ChildClass2()

Dim?child3?As?New?ChildClass3()

child1.Method1()

child2.Method1()

child3.Method1()

vb.net設(shè)置mdi子窗口隨父窗口的大小而變化

簡(jiǎn)單一點(diǎn)的方式是，在MDI主窗體內(nèi)添加一個(gè)picturebox控件，然后在這個(gè)picturebox中添加一個(gè)image控件。

Picture1的屬性：

1.Align=top

2.Appearance=flat

3.BordeStyle=None

4.TabStop=false

Image1的屬性：

1.Stretch=true

在MDI窗體的resize事件中添加如下代碼：

Private Sub MDIForm_Resize()

Me.Picture1.Height = Me.Height

End Sub

在Picture1控件的resize事件中添加如下代碼：

Private Sub Picture1_Resize()

Me.Image1.Move 0, 0, Me.Picture1.Width, Me.Picture1.Height

End Sub

vb.net mdi子窗口向上拖拽到主窗口邊緣的時(shí)候，如何將子窗口中的控件移動(dòng)到panel容器型控件

簡(jiǎn)單一點(diǎn)的方式是，在MDI主窗體內(nèi)添加一個(gè)picturebox控件，然后在這個(gè)picturebox中添加一個(gè)image控件。

Picture1的屬性：

1.Align=top

2.Appearance=flat

3.BordeStyle=None

4.TabStop=false

Image1的屬性：

1.Stretch=true

在MDI窗體的resize事件中添加如下代碼：

Private Sub MDIForm_Resize()

Me.Picture1.Height = Me.Height

End Sub

在Picture1控件的resize事件中添加如下代碼：

Private Sub Picture1_Resize()

Me.Image1.Move 0, 0, Me.Picture1.Width, Me.Picture1.Height

End Sub