Vb.net Visual Basic-在特定延迟后启动流程或任务 私有子按钮1\u单击ByVal发送者作为System.Object,ByVal e作为System.EventArgs处理按钮1。单击 过程tarthttps://google.com/ “我想在这里等20秒钟。然后我要他打开yandex。 过程tarthttps://yandex.com/ 端接头

Vb.net Visual Basic-在特定延迟后启动流程或任务 私有子按钮1\u单击ByVal发送者作为System.Object,ByVal e作为System.EventArgs处理按钮1。单击 过程tarthttps://google.com/ “我想在这里等20秒钟。然后我要他打开yandex。 过程tarthttps://yandex.com/ 端接头,vb.net,hyperlink,Vb.net,Hyperlink,你能帮我做些什么吗。谢谢大家。在本例中,您可以看到如何在特定延迟后启动流程。 在您的情况下,是启动浏览器,但您可以在其他情况下作为与延迟相关的技术使用。 查看代码并根据您的需要进行改进 Event TimerDone() Private Sub ProcessStartAfterDelay(Optional ByVal url As String = "", Optional interval As Integer = 2000) Dim tmr As System.Windows.F

你能帮我做些什么吗。谢谢大家。

在本例中,您可以看到如何在特定延迟后启动流程。 在您的情况下,是启动浏览器,但您可以在其他情况下作为与延迟相关的技术使用。 查看代码并根据您的需要进行改进

Event TimerDone()
Private Sub ProcessStartAfterDelay(Optional ByVal url As String = "", Optional interval As Integer = 2000)

    Dim tmr As System.Windows.Forms.Timer = New System.Windows.Forms.Timer
    AddHandler tmr.Tick, Sub()
                             tmr.Stop()
                             tmr.Dispose()
                             If url.Length > 0 Then
                                 Try
                                     Process.Start(url)
                                     RaiseEvent TimerDone()
                                 Catch ex As Exception
                                     Console.WriteLine(ex.ToString)
                                 End Try
                             End If
                         End Sub

    tmr.Interval = interval
    tmr.Start()

End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim index As Integer = 0
    Dim delay As Integer = 3000
    Dim listOfUrls As List(Of String) = New List(Of String)({"https://google.com/",
                                                            "https://yandex.com/",
                                                            "https://it.yahoo.com/",
                                                            "https://www.wikipedia.org/"})


    ' First launch need to be here with delay > 0 important!
    ProcessStartAfterDelay(listOfUrls(index), 1)

    AddHandler Me.TimerDone, Sub()
                                 index += 1
                                 If index < listOfUrls.Count Then
                                     ProcessStartAfterDelay(listOfUrls(index), delay)
                                 Else
                                     RemoveHandler Me.TimerDone, Nothing
                                 End If
                             End Sub



End Sub

你需要使用sleepXXX。检查这个我已经精简了代码,重新托盘再次是更紧凑;我们如何做超过2个链接?例如,当您开始将其用于100个链接时,在前两个链接之后,所有链接都会立即打开。计时器完成后引发此事件,然后拦截它们以启动下一个事件您能举个例子让我检查一下吗?