[VB.Net]Nur Google Suche + Prozess in Progressbar by Jusikid

[Jay Niize]

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 :

• 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 :



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) 


Da man hier viel mit der URL spielen muss, erläutere ich jetzt nicht was das alles bedeutet, codet einfach weiter

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=" 


Nun ist die Function beendet, also kommt :

PHP Code:

End Function 


Der Schwiriegste Teil ist nun geschafft

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 


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 :

PHP Code:

Me.ProgressBar1.Value = CType((e.CurrentProgress / e.MaximumProgress) * 100, Integer) 


So das wäre geschafft! Jetzt Brauchen wir Eine Neue SUb, nähmlich diehier :

PHP Code:

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

    End Sub 


In diese Programmieren wir, das die Progressbar wieder leer ist, mit :

PHP Code:

        Me.ProgressBar1.Value = 0 


Jetzt nur noch doppelt auf den Button klicken, und eingeben, dass Der Text in der Textbox1 gesucht wird, und zwar auf Google!

PHP Code:

 WebBrowser1.Navigate(SearchGoogle(TextBox1.Text)) 


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



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

[Gabito_O]

hi can you put a finnaly screen please





sorry for my bad english

[Jay Niize]

no, because then you copy the whole text! Thats a Tutorial! You should learn something!

sorry. for my bad english^^

[Keksautomat]

Jetzt gehen wir In die Form_Load, und tippen den Progressbar Status ein (Voll, leer... etc.)

PHP-Code:
Me.ProgressBar1.Maximum = 0
Me.ProgressBar1.Maximum = 100

Kapier ich nicht.
Warum auf 0 setzen und danach wieder auf 100?

[BangerzZ]

ist falsch.

Muss heißen

Me.ProgressBar1.Minimum = 0
Me.ProgressBar1.Maximum = 100

[Jay Niize]

oh ja xD sry. war da bestimmt irgendwo anders mit den gedanken xD Habs geedited

[Sir Ryuuzaki]

Danke, hat mir geholfen.
Und lernt mal englisch

[Gabito_O]

no problem i make it

[Keksautomat]

Originally Posted by BangerzZ

ist falsch.

Muss heißen

Me.ProgressBar1.Minimum = 0
Me.ProgressBar1.Maximum = 100

Schade das du's aufgelöst hast. Wäre interessant zu sehen, ob er schon soweit ist und den Fehler selber findet.