Vb.net 在VB net中使用Form.show时最小化带有webbrowser的窗体

这就是我的问题所在，我使用form1（me）与webbrowser一起显示自定义错误，我检查INI文件以查看我需要的屏幕，然后执行navagate.webbrowser1和网址，然后显示表单，webbrowser占据整个表单。当我运行这个程序时，我会看到一个黑屏或白屏，或者前面没有设置表单，我会调用一个程序，在这个过程中在后台安装打印机

我希望表单在其他程序运行和结束时显示在前面，这是我程序的结尾，网页上有一些动画向用户显示程序仍在运行，但我无法让表单显示出来

这是我的密码：

        '*********************************************************************************************
        'this set the correct screen for Exit
        '*********************************************************************************************
        RBoot = reboot1
        If RBoot = "True" Then

            closeweb = "https://xxxxxxxxxxxxxxx/_report/enrollment.asp?page=completesuccess"
            WebBrowser1.Navigate("https://XXXXXXXXXXXX/_report/enrollment.asp?page=completesuccess")
            var1 = 0
            Form9.Hide()
            Form10.Hide()
            Do Until var1 = 5
                Me.Show()
                Me.Refresh()
                Thread.Sleep(400)
            Loop


        ElseIf RBoot = "False" Then

            closeweb = "https://XXXXXXXXXXXXXX/_report/enrollment.asp?page=completenoreboot&name=" & computername
            WebBrowser1.Navigate("https://XXXXXXXXXXXXXXX/_report/enrollment.asp?page=completenoreboot&name=" & computername)
            var1 = 0
            Form9.Hide()
            Form10.Hide()
            Do Until var1 = 5
                Me.Show()
                Me.Refresh()
                Thread.Sleep(400)
            Loop


        End If


        '*********************************************************************************************
        ' this runs the Printer Installer
        '*********************************************************************************************
        Dim Compini As String = My.Computer.FileSystem.ReadAllText("C:\temp\computerinfo.ini")
        logg = "Computer Info INI:" & vbCrLf & Compini
        Call logging()

        If Compini.Contains("Printer") Then

            If My.Computer.FileSystem.FileExists(current_DIR & "\ Printer Installer\Printerinstaller.exe") Then
                Me.Show()
             Dim printerinstall As New Process
                printerinstall.StartInfo.FileName = current_DIR & "\Printer Installer\PrinterInstaller.exe"
                printerinstall.StartInfo.Arguments = " -D C"
                printerinstall.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
                printerinstall.Start()
                Try
                    While printerinstall.HasExited = False
                        Thread.Sleep(200)
                        Me.Show()
                    End While
                Catch ex As InvalidOperationException
                End Try
                logg = "Ran " & current_DIR & "\Printer Installer\PrinterInstaller.exe"
                Call logging()
            Else
                logg = "Can't Find " & current_DIR & "\Printer Installer\PrinterInstaller.exe"
                Call logging()
                WebBrowser1.Navigate("https://XXXXXXXXXXXXXXXX/_report/enrollment.asp?page=printerinstallernotfound&name=" & computername)
                Form9.Hide()
                Form10.Hide()
                Me.Show()
                Exit Sub
            End If
        Else
            logg = "No Printer Selected and Printer Installer didn't run"
            Call logging()
        End If

---

您可以使用以下选项使表单保持在前面：

Form1.TopMost = True

您可以最小化表单：

Form1.WindowState = FormWindowState.Minimized

（如果您在同一表单上引用，请将

Form1

更改为

Me

）

为什么其中包含“closeweb”变量？这似乎没有什么作用

您是否在其他地方使用“reboot1”？如果不是，为什么要更改顶部的变量名

考虑不要隐藏form9和form10-您确定它们不包含您想要显示的内容吗

除去循环，代码是不必要的-有更好的方法来完成您试图在那里做的事情。试着在没有循环的情况下显示你的“我”表单，看看会发生什么（不要刷新）

---

在打印机安装过程中，您将再次隐藏和显示表单。你应该给他们起名字，这样你就能更好地跟踪你在做什么。似乎所有这些隐藏和显示都导致了黑/白屏幕。

试错编程只能做到这一点。你已经用这段代码狠狠地撞上了墙，每一行代码都以这样或那样的方式被破坏了。拿起一本书或上一所学校以获得成功。并摆脱循环。