WebBrowser1 Invalid URI: The format of the URI could not be determined 1

[lance59]

I have a modGlobal section that has web pages urls in it.

Module modGlobals
Public webpage1 As String = "

http://www.google.com"

Public webpage2 As String = "

http://www.yahoo.com"

Public webpage3 As String = "

http://www.msn.com"

Public webpage4 As String = "

http://www.home.com"

End Module

I want to display these pages in WebBrowser1, rotating through them every 10 seconds until I click a button that puts the text "Stop" in a textbox1 (best way I could figure to let the client stop it). So I have this:

Dim pages As Integer
Do Until TextBox1.Text = "Stop"
For pages = 1 To 4

Dim newpage As String
Dim pagenumber As String = Convert.ToString(pages)

newpage = "webpage" + pagenumber
Me.WebBrowser1.Url = New System.Uri(newpage)

Dim sw As New Stopwatch()
sw.Start()
Do Until sw.Elapsed.Seconds = 10
Application.DoEvents()
Loop
sw.Stop()
Next pages

Loop

I keep getting this error "Invalid URI: The format of the URI could not be determined" and I can't figure it out. I know that its putting in the text "webpage1", "webpage2", etc.. and not referencing the url. I just can't figure out how to get the url in.

TIA

 

[ZmrAbdulla]

may be

newpage = "webpage" + pagenumber
Me.WebBrowser1.Navigate(newpage)

________________________________________________________
Zameer Abdulla
Help to find Missing people

 

[lance59]

Thanks, that got me a little further along. I don't get the error but the web pages don't show up. I get error that web site can't be found. Again its looking for webpage2, not

http://www.google.com.

So its not pulling the data from the modGlobals module.

How do I reference the data?

 

[RiverGuy]

Use an array instead. In your module, put:

Private WebPages As String() = New String(2) {"[URL unfurl="true"]http://www.google.com",[/URL] "[URL unfurl="true"]http://www.yahoo.com",[/URL] "[URL unfurl="true"]http://www.msn.com"}[/URL]

In your loop, put:

        Dim pages As Integer
        Do Until TextBox1.Text = "Stop"
            For pages = 0 To 2


                newpage = WebPages(pages)
                Me.WebBrowser1.Url = New System.Uri(newpage)
                
                Dim sw As New Stopwatch()
                sw.Start()
                Do Until sw.Elapsed.Seconds = 10
                    Application.DoEvents()
                Loop
                sw.Stop()
            Next pages

        Loop

 

[lance59]

Alright that did it. Thanks!!!

I had to change Private to Public and add Dim newpage As String, but other then that it worked!

Thanks!

 

[RiverGuy]

Ah yes, my mistake. I tested it in the same class