Web browser part 2
So now isnt it annoying to press enter on your new browser and nothing happens well now you can with this code
Private Sub cburl_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
web.Navigate cburl.Text
End If
End Sub
What about a google search???
Create a textbox (gsearch) and a buttom (cmdgoogle)
Private Sub cmdgoogle_Click()
web.Navigate "http://www.google.com/search?hl=en&q="+ gsearch + "&btnG=Google+Search"
cburl.Text = "http://www.google.com/search?hl=en&q="+ gsearch + "&btnG=Google+Search"
End Sub
Now a yahoo search
So a text box (ysearch) and a button (cmdyahoo)
Private Sub cmdyahoo_Click()
web.Navigate "http://search.yahoo.com/search?fr=slv2-&ei=UTF-8&p=" +
cburl.Text = "http://search.yahoo.com/search?fr=slv2-&ei=UTF-8&p=" + ysearch
End Sub
Maybe some more to come but thats all for now folks!