Public Class Form1
Dim NewMDIChild1 As New Form2()
Dim NewMDIChild2 As New Form3()
Private Sub Form1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Form1ToolStripMenuItem.Click
NewMDIChild1 = New Form2
NewMDIChild1.MdiParent = Me
NewMDIChild1.Show()
End Sub
Private Sub Form2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Form2ToolStripMenuItem.Click
NewMDIChild2 = New Form3
NewMDIChild2.MdiParent = Me
NewMDIChild2.Show()
End Sub
Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem.Click
If Not ActiveMdiChild Is Nothing Then
ActiveMdiChild.Close()
End If
End Sub
Private Sub CloseTodoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseTodoToolStripMenuItem.Click
While Not ActiveMdiChild Is Nothing
ActiveMdiChild.Close()
End While
End Sub
Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub SmallToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SmallToolStripMenuItem.Click
Form2.Label1.Text = "test"
End Sub
Private Sub MediumToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MediumToolStripMenuItem.Click
Form2.Label1.Text = "test"
End Sub
Private Sub BigToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BigToolStripMenuItem.Click
Form2.Label1.Text = "test"
End Sub
End Class
我想做的是更改标签的大小,问题是标签处于另一种形式,而且似乎没有变化。我正在使用此“ Form2.Label1.Text =“ test”“只是为了查看标签是否已更改。我认为这是因为即时通讯正在使用MDIChild。有人可以帮我吗?
您没有显示与您的问题相关的代码,也没有在任何标签上更改任何文本的地方,因此,我将忽略该巨大代码块的99%,并将您的问题归结为:
Dim NewMDIChild1 As New Form2() Dim NewMDIChild2 As New Form3()
我正在使用此“ Form2.Label1.Text =“ test”“
我不确定VB.NET的行为是否与此处的VB6 / VBA相同,但是如果您没有遇到异常,Form2.Label1.Text = "test"
则可能是这种情况-您将标签文本设置为默认的表单,并且您的类Form1
正在Form2
使用名为的对象引用进行引用NewMDIChild1
。
根据您在何处拥有该测试代码,这样做NewMDIChild1.Label1.Text = "text"
应该会产生预期的结果。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句