Question

所以我正在编写一个程序，在一个页面上打开20个Web浏览器，对于youtube或者查看机器人任何URL，但是当我启动程序时它显示了我输入的文本框，看它是否真的开始了没有别的

所以我的问题是，我的代码出了什么问题？

启动表单（您可以使用按钮1启动主代码）

Public Class Startup

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)                                   Handles Button2.Click
    Settings.Show()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    views.Show()
End Sub
End Class

主要表格

Public Class views

Private Sub views_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    MessageBox.Show("Form Initalised")
    WebBrowser1.Navigate(My.Settings.url)
    WebBrowser2.Navigate(My.Settings.url)
    WebBrowser3.Navigate(My.Settings.url)
    WebBrowser4.Navigate(My.Settings.url)
    WebBrowser5.Navigate(My.Settings.url)
    WebBrowser6.Navigate(My.Settings.url)
    WebBrowser7.Navigate(My.Settings.url)
    WebBrowser8.Navigate(My.Settings.url)
    WebBrowser9.Navigate(My.Settings.url)
    WebBrowser10.Navigate(My.Settings.url)
    WebBrowser11.Navigate(My.Settings.url)
    WebBrowser12.Navigate(My.Settings.url)
    WebBrowser13.Navigate(My.Settings.url)
    WebBrowser14.Navigate(My.Settings.url)
    WebBrowser15.Navigate(My.Settings.url)
    WebBrowser16.Navigate(My.Settings.url)
    WebBrowser17.Navigate(My.Settings.url)
    WebBrowser18.Navigate(My.Settings.url)
    WebBrowser19.Navigate(My.Settings.url)
    WebBrowser20.Navigate(My.Settings.url)
    Threading.Thread.Sleep(My.Settings.Time)
    reload.Show()
    Me.Close()
End Sub
End Class

并在主表单中提到表单重新加载。

Public Class reload

Private Sub reload_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.Close()
    views.Show()
End Sub
End Class

Answer 1

尝试使用Form.Shown事件而不是Form.Load事件。在Form.Load中，控件通常没有完全初始化，如果出现问题，整个表单的初始化有时会出错。最好使用Form.Shown进行如此冗长的程序。

表单启动但不显示vb.net

1 个答案: