Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Static i As Integer i = i + 1 Dim childform As New ChildForm childform.MdiParent = Me childform.Text = "子窗体" & i childform.Show() Me.LayoutMdi(MdiLayout.ArrangeIcons) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim activeform As New ChildForm activeform = Me.ActiveMdiChild MessageBox.Show(activeform.Text, "当前活动于窗体") End Sub End Class
Static i As Integer
i = i + 1
Dim childform As New ChildForm
childform.MdiParent = Me
childform.Text = "子窗体" & i
childform.Show()
Me.LayoutMdi(MdiLayout.ArrangeIcons)
End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim activeform As New ChildForm
activeform = Me.ActiveMdiChild
MessageBox.Show(activeform.Text, "当前活动于窗体")
End Sub
End Class
text1.setfocus
=======================================
说实在的,也不太明白楼主说的是怎么样的问题。你的“主窗体”究竟是什么东东???是 MDIForm 吗?如果是,TextBox 怎么又会在所谓的‘主窗体’上呢?