Geschrieben von masterbene am 04.07.2004, 15:55

hi,
wolltet ihr auch schon einmal einen browser mir VB6 schreiben?..
hier ist das pasende tutorial, was die grundlagen für einen eigenen Browser setzt:
__________________
Part1_ DER BROWSER:

zunächst müssen wir eine komponente einfügen, was wir unter
Projekt->komponnte hinzufügen machen.
haben wir das fenster geöffnet, so wälen wir das element: "Microsoft Internet Controls" aus, sodass ein hacken dahinter ist. dann übernehmen wir die einstellngen und schließen das fenster. nun sehen wir links in der Werkzeiglist unten ein neues symbol, das so aussieht wie eine Welt.
wenn wir das Symbol selektiert haben können wir auf der Form den Umfang des Browsers bestimmen, indem wir das weiße feld ainfach so lang und breit ziehen, bis uns die größe gefällt.
Das Element hat den namen "WebBrowser1", den wir auch belassen.
nun wollen wir natürlich auch den browser bedienen können, wozu wir ein eingabefeld brauchen. wir wählen aus der Werkzeuglist eine commonbox aus und setzen sie an die erwünschte stelle (über den browser). das element hat den namen "Combo1".
wenn man nun in das ombofled etwas eingibt, so soll natürlich auch der browser die entsprechende seite laden, was wir durch den folgenden code erreichen :

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then WebBrowser1.Navigate Combo1.Text
End Sub

wird nun der ascii 13 aufegrufen (enter) so läd der browser die seite, die in der combobox steht.

herzlichen glückwunsch, du hast deinen ersten eigenen browser geschrieben.

_______________
Part2_ DIE EXTRAS:

nun möchtest du warscheinlich auch mal per knopfdruck eine seite zurück, oder vor, oder mal die seite aktualisieren. daher brauchen wir 5 commandbuttons( command1 - command5) denen wir die entsprechende caption geben.
aufgrund der komentierung erspare ich mir hier die nähere erläuterung...

Private Sub Command1_Click()
WebBrowser1.GoBack 'hier geht der browser eine seite zurück
End Sub

Private Sub Command2_Click()
WebBrowser1.GoForward 'hier geht der browser eine seite vor
End Sub

Private Sub Command3_Click()
WebBrowser1.Refresh 'hier aktualisiert der browser die aktuelle seite
End Sub

Private Sub Command4_Click()
WebBrowser1.Stop 'hier bricht er den ladevorgang ab
End Sub

Private Sub Command5_Click()
WebBrowser1.Navigate "http://www.doomb.de.tc" '<- die homefunktion, "er" geht auf eine von dir festgelegte seite ...
End Sub

gratulation, du hast deinen ersten ALLTAGSFÄHIGEN browser geschreiben...
________________
PART3_ schlusswort
ich hoffe das keine unklarheiten bestehen.
desweiteren werde ich das tutor bald fortsetzen, und noch einige featurs ergenzen, bzw. anwendungsbeispiele bringen, womit dann auch der einsatz OFFLINE auf allen rechnern mölich ist...

danke fürs lesen... MasterBene

Bewertung Anzahl
6
100,0 %
6 Bewertungen