Visual Basic Tut: How to make an Advanced Search Bar

Well here is another tutorial that I hope you all enjoy. This is pretty easy and you can keep adding other search engines like Ask and Bing, but I haven't seen a Youtube search thing in a browser before so I hope this helps.

Code:
Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown If e.KeyCode = Keys.Enter Then If ButtonX5.Text = "Google" Then Dim Childform2 As New Browser Childform2.MdiParent = Me Childform2.Show() Childform2.GeckoWebBrowser1.Navigate("http://www.google.com/search?hl=en&source=­hp&q=" & TextBox2.Text & "&aq=f&aqi=g10&aql=&oq=") End If If ButtonX5.Text = "Yahoo!" Then Dim Childform2 As New Browser Childform2.MdiParent = Me Childform2.Show() Childform2.GeckoWebBrowser1.Navigate("http://search.yahoo.com/search;_ylt=A0oG7l­r25IxNVAsASQVXNyoA;_ylc=X1MDUCMyMTQyMzU3MDg5BF9yAzIEYW8DMQRmcgN5ZnAtdC03MDEEZnIy­A3NidG4EaG9zdHB2aWQDM1lsSHdFb0c3djVBZlhDdkpteVFZZ0FzWW83eHJrMk01UFlBQmplawRuX2dw­cwMxMARvcmlnaW4Dc3JwBHF1ZXJ5A2hlbGxvBHNhbwMxBHZ0ZXN0aWQD?p=" & TextBox2.Text & "&fr2=sb-top&fr=yfp-t-701&type_param=") End If If ButtonX5.Text = "Youtube" Then Dim Childform2 As New Browser Childform2.MdiParent = Me Childform2.Show() Childform2.GeckoWebBrowser1.Navigate("http://www.youtube.com/results?search_quer­y=" & TextBox2.Text & "&aq=f") End If End If End Sub

Category:

Education

Tags:

• VB08
• vb10
• vb2010
• vb
• 2010
• 2008
• visual
• basic
• express
• edition
• tutorial
• search
• engine
• google
• yahoo
• youtube
• bar
• sub
• subcribe
• right
• now
• meow

[francis9919]

before you put your code in the description check it because it gets the code all fucked up!

[pwnisher3]

@francis9919 well, it should take to much work to fix it :P better then starting from scratch, eh?

[Michael10391]

@timmypop1 Simple GeckoEngine.. Poor Video + Poor Code -.-

[timmypop1]

how did you make the web browser like that? all fancy like google chrome.. lol