Question

编程和尝试自学的新手，所以请耐心等待。:)我正在尝试创建一个用于显示目的的应用程序，它将包含4个表单，每个表单显示不同的网页。它们应在表格5上以20秒的间隔旋转作为显示器。我在这个网站上发现了一些看起来像（我的知识有限）工作的代码，但我似乎无法让它去。任何帮助是极大的赞赏。

Public Class Form5

Shared counter As Integer = 1
Private Shared Sub StartRotating()
    Dim myTimer As New System.Windows.Forms.Timer()
    myTimer.Interval = 20000
    ' 20 seconds 
    AddHandler myTimer.Tick, New EventHandler(AddressOf TimerEventProcessor)
    myTimer.Start()
End Sub

Private Shared Sub TimerEventProcessor(ByVal myObject As [Object], ByVal myEventArgs As EventArgs)

    If counter = 1 Then
        Form1.BringToFront()
    End If
    If counter = 2 Then
        form2.BringToFront()
    End If
    If counter = 3 Then
        form3.BringToFront()
    End If
    If counter = 4 Then
        form4.BringToFront()
        'reset counter
        counter = 0
    End If
    counter += 1
End Sub


End Class

我也对其他想法持开放态度，例如在可能的情况下简单地在定时器上旋转URL。

Answer 1

这应该让您开始通过URL列表而不是某些表单（根据评论）。表单级别声明：

Private urlList As List(of String)        ' storage
Private thisUrl As Integer = 0

表单加载：

urlList = New List(of String)          ' instance created
urlList.Add("stackoverflow.com")       ' add a url
...etc

在计时器中打勾

If thisUrl >= List.Count Then
    thisUrl = 0                        ' rotate
End If

myBrowserCtl.Url = New Uri(urlList(thisUrl ))
thisUrl + =1

Me.BringToFront

在表单之间旋转以间隔显示URL

1 个答案: