Eigenen Browser erstellen? Gibt es einen Fehler? Ganz zu schweigen von Giganten wie dem IE und sogar dem kompakten Opera, die meisten von uns Normalbürgern werden das nie hinbekommen. Aber wenn Sie die professionelle Version von VB5.0 auf Ihrem Computer installiert haben, wird es viel einfacher. Möchten Sie es ausprobieren? Na, los geht’s!
Der Protagonist des Programms ist ein ActiveX-Steuerelement: WebBrowser. Natürlich ist es nicht standardmäßig in der VB-Toolbox enthalten. Die Methode ist: Klicken Sie mit der rechten Maustaste auf die Toolbox, wählen Sie „Teile ...“ im angezeigten Kontextmenü und stellen Sie sicher, dass dies der Fall ist Wählen Sie im Popup-Dialogfeld die Registerkarte „Steuerelemente“ aus, suchen Sie nach „Microsoft Internet Controls“, aktivieren Sie das kleine Kästchen davor und klicken Sie dann auf „OK“. An dieser Stelle finden Sie zwei weitere kleine Symbole in der Toolbox. Darunter ist das durch das Globussymbol dargestellte Steuerelement der WebBrowser, den wir benötigen.
Da viele Leute mit dem WebBrowser-Steuerelement nicht sehr vertraut sind und es in der VB-Hilfe keinen Inhalt darüber gibt (ich habe es sowieso nicht gefunden), ist es aus Platzgründen notwendig, seine Eigenschaften, Methoden und Ereignisse vorzustellen. Wir decken nur diejenigen ab, die im Programm verwendet werden:
Eigenschaft: LocationURL Gibt die URL der vom Steuerelement angezeigten WEB-Seite zurück.
Methode: Navigieren überträgt zur angegebenen URL oder öffnet die angegebene HTML-Datei.
Ereignis: 1． DownloadBegin Wird ausgelöst, wenn der Downloadvorgang beginnt.
2. DownloadComplete Wird ausgelöst, wenn ein Downloadvorgang abgeschlossen, beendet oder fehlschlägt.
3. Das ProgressChange-WebBrowser-Steuerelement verfolgt den Fortschritt des Downloadvorgangs und löst dieses Ereignis regelmäßig aus. Die Syntax lautet: Sub WebBrowser_ProgressChange (ByVal Progress As Long, ByVal ProgressMax As Long). Das Argument Progress ist die Gesamtmenge der aktuell heruntergeladenen Daten, und das Argument ProgressMax ist die Gesamtmenge der herunterzuladenden Daten.
4. TitleChange wird ausgelöst, wenn sich der Titel des aktuellen Dokuments ändert.
Zusätzlich zum WebBrowser-Steuerelement benötigt das Programm auch ein Label-Steuerelement: Label1; ein ComboBox-Steuerelement: Combo1, das zur Anzeige der URL-Adresse verwendet wird; ein StatusBar-Steuerelement: ProgressBar1, das zur Anzeige des Download-Fortschritts verwendet wird (StatusBar). Das ActiveX-Steuerelement ist ein Mitglied von Microsoft Windows Common Controls 5.0. Die Methode zum Hinzufügen zur Toolbox ist dieselbe wie beim WebBrowser-Steuerelement. Die Eigenschaftswerte dieser Steuerelemente verwenden Standardwerte.
Hier ist die Programmliste:
| Option explizit Private Sub Form_Load() Me.Caption="Mein Explorer" Label1.Caption = "URL" Combo1.Text = "" Combo1.Top = Label1.Height Combo1.Left = 0 WebBrowser1.Top = Combo1.Top + Combo1.Height WebBrowser1.Left = 0 Form_Resize StatusBar1.Style = sbrSimple ProgressBar1.Zorder Sub beenden |
| Private Sub Form_Resize() Bei Fehler Gehe zu a Combo1.Width = Form1.Width - 100 WebBrowser1.Width = Combo1.Width WebBrowser1.Height = Form1.Height – Combo1.Height – 1000 ProgressBar1.Top = Me.Height - StatusBar1.Height - 330 ProgressBar1.Left = 0,25 * StatusBar1.Width ProgressBar1.Width = 0,75 * Me.Width - 250 A: Sub beenden |
| Private Sub Combo1_Click() `Gehen Sie zur angegebenen URL WebBrowser1.Navigate Combo1.Text Sub beenden Private Sub Combo1_KeyDown(KeyCode als Ganzzahl, Verschiebung als Ganzzahl) Dimme ich so lange Dim existierte als Boolescher Wert Wenn KeyCode = 13, dann Wenn Left(Combo1.Text, 7) <> "http://"Dann Combo1.Text = "http://"+ Combo1.Text Ende wenn WebBrowser1.Navigate Combo1.Text Für I = 0 bis Combo1.ListCount - 1 Wenn Combo1.List(I) = Combo1.Text Dann existed=True Ausgang für Anders existed=False Ende wenn Nächste Wenn nicht vorhanden, dann Combo1.AddItem (Combo1.Text) Ende wenn Ende wenn Sub beenden |
| Private Sub WebBrowser1_DownloadBegin() „Wenn der Download beginnt, wird in der Statusleiste „Now Linking…“ angezeigt. StatusBar1.SimpleText = „Jetzt verlinken …“ Sub beenden |
| Private Sub WebBrowser1_DownloadComplete() „Wenn der Download abgeschlossen ist, wird in der Statusleiste „Link abgeschlossen“ angezeigt. StatusBar1.SimpleText = „Link fertig“ ProgressBar1.Value = 0 Sub beenden |
| Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long) „Der Fortschrittsbalken ändert sich, wenn der Download läuft.“ Wenn ProgressMax = 0, dann beenden Sie Sub ProgressBar1.Max = ProgressMax Wenn Fortschritt <> -1 und Fortschritt <= ProgressMax, dann ProgressBar1.Value = Fortschritt Ende wenn Sub beenden |
| Private Sub WebBrowser1_TitleChange(ByVal Text As String) Combo1.Text = WebBrowser1.LocationURL Sub beenden |