Web browser part 2

Name: Web browser part 2
Author: MOD-Dan

So now isnt it annoying to press enter on your new browser and nothing happens well now you can with this code

VB 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)

VB Code

Private Sub cmdgoogle_Click()
web.Navigate "https://www.google.com/search?hl=en&q="+ gsearch + "&btnG=Google+Search"
cburl.Text = "https://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)

VB Code

Private Sub cmdyahoo_Click()
web.Navigate "https://search.yahoo.com/search?fr=slv2-&ei=UTF-8&p=" + 
cburl.Text = "https://search.yahoo.com/search?fr=slv2-&ei=UTF-8&p=" + ysearch
End Sub

Maybe some more to come but thats all for now folks!

Author:

MOD-Dan

Views:

2,468

Rating:

Posted on Thursday 12^th July 2007 at 06:08 PM

FtH8er

anywhere on your layout, if u are talkin about the design part, or if u are talkin bout the code part it doesnt matter where u put it.

Posted on Thursday 12^th July 2007 at 05:57 PM

vb_king

no i mean the google thing, when i put the code in where do i put the button and text box? O_O

Posted on Thursday 12^th July 2007 at 05:41 PM

MOD-Dan

anywhere in your code

Posted on Thursday 12^th July 2007 at 05:11 PM

vb_king

but where are we supposed to put this? O_O