Webbrowser i VB

I denne artikel vil jeg prøve at lave en guide til at lave sin egen web-browser i Visual Basic 6. Denne artikel henvender sig til den nye, dog ikke helt uerfarne programmør. Først skal du lave en almindelig form, med et web-browser objekt (findes i 'components' Navn: Microsoft Internet Control, et almindeligt tekst felt og knapperne [Go] [Back] [Forward] [Stop] & evt. [Home] Så får du et billede lignende dette:



Nu er det at du skal begynde at lave selve koden, det lyder måske svært – men i Visual Basic er det faktisk utrolig nemt at kode en browser, da den benytter sig at den eksisterende opsætning af Internet Explorer, det er også derfor at den kræver Internet Explorer 3.0+ installeret!.

Det første vi skal lave er at når programmet starter op skal det starte på den ’Startside’ som der også er i IEX (Internet Explorer), det gøres på denne måde!:

Private Sub Form_Load()
    WebBrowser1.GoHome
End Sub

Med denne kode starter web-browser objektet op på ’Startsiden’ når programmet køres.

Nu er det så tid til at give knapperne nogle funktioner, vi starter med [Go] (som jeg har valgt at kalde ’cmdgo’, det gør man med denne kode:

Private Sub  cmdgo_Click()
    WebBrowser1.Navigate navig.Text
End Sub

Med denne kode navigere web-browser objektet hen på den URL der står i ’navig’ tekst feltet.

Man kunne også lave det sådan, at hvis der blev trykket på [enter] mens at tekst feltet var aktivt ville browser objektet navigerer hen til URL’en i ’navig’ feltet, det gøres sådan:

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

Nu er den første knap lavet, nu er det bare om at lave de sidste, det vil jeg dog ikke forklare her da det er lige som Form_load proceduren bortset fra at det skal laves i en Command_Click procedure.

F.eks.

Private Sub Command_Click ()
    Webbrowser1.refresh
End sub

Eller,

Private Sub Command_Click ()
    Webbrowser1.GoStop
End sub

Jeg har dog lavet en hel kode til en enkel web-browser: Private Sub cmdback_Click() WebBrowser1.GoBack End Sub Private Sub cmdgo_Click() WebBrowser1.Navigate navig.Text End Sub Private Sub cmdhome_Click() WebBrowser1.GoHome End Sub Private Sub cmdforward_Click() WebBrowser1.GoForward End Sub Private Sub cmdstop_click() WebBrowser1.Stop End Sub Private Sub Form_Load() WebBrowser1.GoHome End Sub Private Sub navig_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then WebBrowser1.Navigate navig.Text End If End Sub Her mangler der dog stadig en del før den kan kaldes en funktionel web-browser, men det er det vigtigste der er medtaget her.