Hallo Elitepvpers!
Heute zeige ich euch, wie ihr mit dem Programm Visual basic 2008 express Edition Einen Webbrowser macht, der Nur die Google Suche Unterstützt. Mit dabei wollen wir einbauen, wie weit der Prozess ist, die Seite zu laden, in einer Progressbar angezeigt wird! Na dann legen wir mal gleich los ;)
Zuerst brauchen wir folgendes :
Den Button Beschrifetn wir mit 'Suchen', und in die textbox, damit es übersichtlicher wird, 'Hier tragt ihr euren Suchbegriff ein'. Wenn ihr das richtig angeordnet habt, kann das zum Beispiel so Aussehen :
[Only registered and activated users can see links. Click Here To Register...]
so nun kommen wir zum Code, der nun etwas schwieriger als bei den anderen Malen ist. Also wir klicken doppelt auf die Form1, um in den Code editor zu gelangen. Über der Form_load, tragen wir nun eine Function ein. Diese nennen wir Google, und den eintrag suche, diese in String konvertiert wird. Also ist unser Kopf so :
Da man hier viel mit der URL spielen muss, erläutere ich jetzt nicht was das alles bedeutet, codet einfach weiter :D
Also als nächstes kommt das hier :
Nun ist die Function beendet, also kommt :
Der Schwiriegste Teil ist nun geschafft ;)
Jetzt gehen wir In die Form_Load, und tippen den Progressbar Status ein (Voll, leer... etc.)
SO jetzt klicken wir doppelt auf den Webbrowser, und sehen das es Webbrowser1_Progresschanged ist(wenn dies nicht der Fall sein sollte, dann oben rechts auswählen!!!), und programmieren folgendes : Der Prozess des Webbrowsers soll in der Progressbar wiedergegeben werden. Hier wird mit Bits gespielt, des wegen am Schluss mal 100 (*100). Wenn es Fertig geladen hat, soll die Progressbar kurz voll sein, und dann später für den nächsten Start wieder leer sein! Also Programmieren wir folgendes :
So das wäre geschafft! Jetzt Brauchen wir Eine Neue SUb, nähmlich diehier :
In diese Programmieren wir, das die Progressbar wieder leer ist, mit :
Jetzt nur noch doppelt auf den Button klicken, und eingeben, dass Der Text in der Textbox1 gesucht wird, und zwar auf Google!
So.. geschafft! nun wenn du etwas auf google eingibts, dann funktioniert die Progressbar nicht! Aber wenn du dann auf einen x-Beliebigen Link klickst, sollte sie unten Voll laufen ;)
[Only registered and activated users can see links. Click Here To Register...]
MFG Jusikid
PS: Ich lerne auch von Websiten, und hab den Code auch von einer Website! Kommentiert ist es von mir, aber habe de Code von einer website ;) Sonst ist alles von mir :)
Heute zeige ich euch, wie ihr mit dem Programm Visual basic 2008 express Edition Einen Webbrowser macht, der Nur die Google Suche Unterstützt. Mit dabei wollen wir einbauen, wie weit der Prozess ist, die Seite zu laden, in einer Progressbar angezeigt wird! Na dann legen wir mal gleich los ;)
Zuerst brauchen wir folgendes :
- 1 Button
- 1 Textbox
- 1 Webbrowser
- 1 Progressbar
Den Button Beschrifetn wir mit 'Suchen', und in die textbox, damit es übersichtlicher wird, 'Hier tragt ihr euren Suchbegriff ein'. Wenn ihr das richtig angeordnet habt, kann das zum Beispiel so Aussehen :
[Only registered and activated users can see links. Click Here To Register...]
so nun kommen wir zum Code, der nun etwas schwieriger als bei den anderen Malen ist. Also wir klicken doppelt auf die Form1, um in den Code editor zu gelangen. Über der Form_load, tragen wir nun eine Function ein. Diese nennen wir Google, und den eintrag suche, diese in String konvertiert wird. Also ist unser Kopf so :
PHP Code:
Function Google(ByVal Suche As String)
Also als nächstes kommt das hier :
PHP Code:
Suchbegriff = Suchbegriff.Replace("&", "%26")
Return "http://www.google.de/search?hl=de&q=" & Suchbegriff.Replace(" ", "+") & "&btnG=Google-Suche&meta="
PHP Code:
End Function
Jetzt gehen wir In die Form_Load, und tippen den Progressbar Status ein (Voll, leer... etc.)
PHP Code:
Me.ProgressBar1.Minimum = 0
Me.ProgressBar1.Maximum = 100
PHP Code:
Me.ProgressBar1.Value = CType((e.CurrentProgress / e.MaximumProgress) * 100, Integer)
PHP Code:
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
End Sub
PHP Code:
Me.ProgressBar1.Value = 0
PHP Code:
WebBrowser1.Navigate(SearchGoogle(TextBox1.Text))
[Only registered and activated users can see links. Click Here To Register...]
MFG Jusikid
PS: Ich lerne auch von Websiten, und hab den Code auch von einer Website! Kommentiert ist es von mir, aber habe de Code von einer website ;) Sonst ist alles von mir :)
