Visual Basic 2008/2010 Einfacher Webbrowser – Tastaturbefehle – Tutorial Teil 4

Von: GermanTutorialsforPC

Hier mal ein etwas komplizeirters Tutorial.

Und hier ist der Code Vor jeder neuen Zeile ist ein -):

-Private Sub Textbox1_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles TextBox1.KeyDown

– If Label1.Text = „URL Navigation“ Then
-If e.KeyCode = Keys.Enter Then
-WebBrowser1.Navigate(Me.TextBox1.Text)
– End If
– End If

-If Label1.Text = „Web-Suche“ Then
– If e.KeyCode = Keys.Enter Then
-WebBrowser1.Navigate(“ http://www.google.de/#hl=de&source=hp&q=“ + TextBox1.Text + „&meta=&aq=f&aqi=g10&aql=&oq=&gs_rfai=&fp=e6f901dec49e9895“)
– End If
– End If

– If Label1.Text = „Bilder-Suche“ Then
– If e.KeyCode = Keys.Enter Then
– WebBrowser1.Navigate(“ http://images.google.de/images?hl=de&q=“ + TextBox1.Text + „&um=1&ie=UTF-8&source=og&sa=N&tab=wi“)
-End If
– End If

– End Sub

Loading