如何在 VB.NET 中将窗体置于其他窗体之上？

2025年3月17日 | 阅读 3 分钟

当我们创建一个 Windows 应用程序时，我们希望将主窗体置于另一个窗体之上。我们也可以说，当应用程序启动时，一个弹出窗口窗体显示在应用程序内的主窗体之上，以启动进一步的流程。在 VB6 中，我们可以看到一个 Win32API，它调用 SetWindowPos 来设置窗体始终位于顶部。在 VB.NET 中，使用窗体的 TopMost 属性设置为 True 可以很容易地将窗体保持在顶部。将 TopMost 属性设置为 true 后，Windows 应用程序的最顶层窗体将覆盖所有其他窗体，即使最顶层窗体不是活动窗体或前台窗体。

此外，当 TopMost 为 true 时，窗体的 TopMost 属性会将窗体强制置于屏幕的最顶层。 Show() 方法用于在 Windows 应用程序中显示窗体。

以下语法用于将窗体置于其他窗体之上。

Dim f As New Form2
f.TopMost = True
f.Show()

如果我们想在一个窗体之上显示另一个窗体，我们必须创建两个 Windows 窗体。

MainPage.vb
TopForm.vb

为了将 TopForm.vb 窗体置于 MainPage.vb 窗体之上，我们需要将 MainPage.vb 文件中的 TopMost 属性设置为 True。

MainPage.vb

Public Class MainPage
    Private Sub MainPage_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "javatpoint.com" 'Set the title for a Window Form 
        Label1.Text = "Student Name"
        Label2.Text = "Roll No."
        Button1.Font = New Font("Microsoft Sans Serif", 12)
        Label3.Text = "Email ID"
        Button1.Font = New Font("Microsoft Sans Serif", 12)
        Label4.Text = "Course"
        Button1.Font = New Font("Microsoft Sans Serif", 12)
        Label5.Text = "Geder"
        Button1.Font = New Font("Microsoft Sans Serif", 12)
        Label6.Text = "Student Registration Details"
        Label6.Font = New Font("Microsoft Sans Serif", 20)  ' Set Font style
        Label6.ForeColor = Color.Red
        RadioButton1.Text = "Male"  ' Set the radiobutton1 and radiobutton2
        RadioButton2.Text = "Female"
        Button1.Text = "Submit"
        Button1.Font = New Font("Microsoft Sans Serif", 10)
        Button1.BackColor = Color.Green
        ' Define the parameter to set the TopForm on top of the MainPage Form.
        Dim frm As New TopForm
        frm.TopMost = True 'Set the TopMost property to True
        frm.Show() 'Show() method is used to display the TopForm
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim name As String
        Dim rollno As String
        Dim email As String
        Dim course As String
        Dim gen As String
        name = TextBox1.Text
        rollno = TextBox2.Text
        email = TextBox3.Text
        course = TextBox4.Text
        If RadioButton1.Checked = True Then
            gen = "Male"
        ElseIf RadioButton2.Checked = True Then
            gen = "Female"
        End If
        ' Display the user details, when the Button1 is clicked
        MsgBox(" Your Name: " & name + vbCrLf + "Your Roll No: " & rollno + vbCrLf +
               "Your Email: " & email + vbCrLf + "Your Course: " & course + vbCrLf + "Your Course: " & gen)
    End Sub
End Class

TopForm.vb

Public Class TopForm
    Private Sub TopForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        PictureBox1.BackgroundImage = Image.FromFile("C:\Users\AMIT YADAV\Desktop\JTP.png")
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
    End Sub
End Class

输出