这个实现了单击菜单打开一个个窗口, 将窗口的名字都显示在菜单下方,
'问题是无法单击窗体名称将这个窗体显示在最前, 请大家赐教。本人刚学习vbnet,菜鸟一个
Imports System.Security.Policy
Imports System.Windows.Forms.LinkLabel
Public Class Form1
Private Sub 打开1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 打开1ToolStripMenuItem.Click
Form2.Show()
Dim button1 As New Button
button1.Text = Form2.Name
button1.AutoSize = True
FlowLayoutPanel1.Controls.Add(button1)
End Sub
Private Sub 新建ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新建ToolStripMenuItem.Click
End Sub
Private Sub 打开2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 打开2ToolStripMenuItem.Click
Form3.Show()
Dim button2 As New Button
button2.Text = Form3.Name
button2.AutoSize = True
FlowLayoutPanel1.Controls.Add(button2)
End Sub
Private Sub button1_Click(sender As Object, e As EventArgs)
' 处理按钮点击逻辑
End Sub
End Class
'问题是无法单击窗体名称将这个窗体显示在最前, 请大家赐教。本人刚学习vbnet,菜鸟一个
Imports System.Security.Policy
Imports System.Windows.Forms.LinkLabel
Public Class Form1
Private Sub 打开1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 打开1ToolStripMenuItem.Click
Form2.Show()
Dim button1 As New Button
button1.Text = Form2.Name
button1.AutoSize = True
FlowLayoutPanel1.Controls.Add(button1)
End Sub
Private Sub 新建ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新建ToolStripMenuItem.Click
End Sub
Private Sub 打开2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 打开2ToolStripMenuItem.Click
Form3.Show()
Dim button2 As New Button
button2.Text = Form3.Name
button2.AutoSize = True
FlowLayoutPanel1.Controls.Add(button2)
End Sub
Private Sub button1_Click(sender As Object, e As EventArgs)
' 处理按钮点击逻辑
End Sub
End Class
