(your homepage)
Private Sub Form_Load()
WebBrowser1.Navigate ("www.google.com")
End Sub
(refresh)
Private Sub REFRESH1_Click()
WebBrowser1.Refresh
End Sub
(navigate to textbox)
Private Sub GO_Click()
WebBrowser1.Navigate (Text1.Text)
End Sub
(forward)
Private Sub FORWARD_Click()
WebBrowser1.GoForward
End Sub
(make the caption the site u are on)
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Text1.Text = (WebBrowser1.LocationURL)
form1.Caption = (WebBrowser1.LocationName)
End Sub
_________________
you and me baby ain't nothing but mammals so lets do it like they do on the discovery channel
Joined: 25 Jan 2006 Posts: 8587 Location: 127.0.0.1
Posted: Fri Jan 04, 2008 6:02 am Post subject:
haxory' wrote:
that wont work here some code
Umm, yea it will.. His code was fine. Just because he didn't just hand the person the code doesn't mean he was wrong. Also he did state you need to add the code to a command button. And by looking at the line he gave, you can assume you need a textbox to hold the web address.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum