Skift internetside hver 59. sek

\'1) List1        ListBox
\'1) Timer1      Timer
\'1) WebBrowser1  WebBrowser
\'1) Command1    CommandButton
Dim i As Long

Private Sub Command1_Click()
  If Timer1.Enabled = False Then
    Timer1.Enabled = True
      Command1.Caption = \"Stop\"
        Else
      Timer1.Enabled = False
    Command1.Caption = \"Start\"
  End If
End Sub

Private Sub Form_Activate()
  List1.ListIndex = 0
  WebBrowser1.Navigate List1.Text
End Sub

Private Sub Form_Load()
  List1.Visible = False
  Command1.Caption = \"Start\"
  Timer1.Enabled = False
  Timer1.Interval = 59000 \'59. sek

  List1.AddItem \"http://www.eksperten.dk/\"
  List1.AddItem \"http://www.altavista.com/\"
End Sub

Private Sub Form_Resize()
  If Me.WindowState <> 1 Then
    WebBrowser1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - 500
    Command1.Move Me.ScaleWidth / 2 - Command1.Width / 2, Me.ScaleHeight - 400
  End If
End Sub

Private Sub Timer1_Timer()
  i = i + 1
  If i > List1.ListCount - 1 Then i = 0
  List1.ListIndex = i
  WebBrowser1.Navigate List1.Text
End Sub

til sjh: hvad er en webbroweser. jeg har ledt over alt, men jeg kan ikke finde en webbrowser.

tryk på [CTRL]+[T] og find \"Microsoft Internet Controls\" på listen og marker den.

Det virkede, men det var ikke det jeg ville have. Jeg vil have at at siderne skal skiftes på en rigtig internet side.

\'1) List1        ListBox
\'1) Timer1      Timer
\'1) Command1    CommandButton

Private Declare Function ShellExecute Lib \"shell32.dll\" Alias \"ShellExecuteA\" ( _
                ByVal hWnd As Long, _
                ByVal lpOperation As String, _
                ByVal lpFile As String, _
                ByVal lpParameters As String, _
                ByVal lpDirectory As String, _
                ByVal nShowCmd As Long) As Long

Dim i As Long

Public Function WWWShell(url As String) As Long
  WWWShell = ShellExecute(0&, vbNullString, url, vbNullString, vbNullString, vbNormalFocus)
End Function

Private Sub Command1_Click()
  If Timer1.Enabled = False Then
    Timer1.Enabled = True
      Command1.Caption = \"Stop\"
        Else
      Timer1.Enabled = False
    Command1.Caption = \"Start\"
  End If
End Sub

Private Sub Form_Activate()
  List1.ListIndex = 0
  WWWShell List1.Text
End Sub

Private Sub Form_Load()
  List1.Visible = False
  Command1.Caption = \"Start\"
  Timer1.Enabled = False
  Timer1.Interval = 59000 \'59. sek

  List1.AddItem \"http://www.eksperten.dk/\"
  List1.AddItem \"http://www.eksperten.dk/spm/151775/\"
  List1.AddItem \"http://www.google.com/\"
End Sub

Private Sub Timer1_Timer()
  i = i + 1
  If i > List1.ListCount - 1 Then i = 0
  List1.ListIndex = i
  WWWShell List1.Text
End Sub

Tusind tak.