当使用VBnet的Form.show时，使用Web浏览器的窗体最小化

Question

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

我希望当其他程序运行并完成时，表单在前面，这是我的程序的结束，网页上有一些动画，向用户显示程序仍在运行，但我无法显示表单。

这是我的代码：

        '*********************************************************************************************
        '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:tempcomputerinfo.ini")
        logg = "Computer Info INI:" & vbCrLf & Compini
        Call logging()
        If Compini.Contains("Printer") Then
            If My.Computer.FileSystem.FileExists(current_DIR & " Printer InstallerPrinterinstaller.exe") Then
                Me.Show()
             Dim printerinstall As New Process
                printerinstall.StartInfo.FileName = current_DIR & "Printer InstallerPrinterInstaller.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 InstallerPrinterInstaller.exe"
                Call logging()
            Else
                logg = "Can't Find " & current_DIR & "Printer InstallerPrinterInstaller.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

Answer 1

您可以使用使表单保持领先

Form1.TopMost = True

你可以最小化形式：

Form1.WindowState = FormWindowState.Minimized

（如果引用的是同一表单，则将Form1更改为Me）

Answer 2

为什么会有"closeweb"变量？似乎没有用

你在其他地方使用"reboot1"吗？如果不是，为什么要更改顶部的变量名？

考虑不隐藏表格9和表格10——你确定这些表格不包含你想要显示的内容吗？

去掉循环，代码是不必要的——有更好的方法来完成你想要做的事情。试着在没有循环的情况下显示你的"我"表单，看看会发生什么（不要刷新）

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