Status bar

Indsæt "Microsoft Windows Common Controls" (v 5 eller 6) via menuen Projekt > Komponenter (eller tryk CTRL+T).
Derefter kan du indsætte en statusbar.

Hvad skal man så kode ind for den virker?

Det kommer an på, hvilken info du vil have vist i statusbaren, og hvilket panel du vil arbejde med. Paneler er de område der kan indeholde information.

F.eks.:

Private Sub Command1_Click()
StatusBar1.Panels(1).Text = "hello world"
End Sub

Der skal indsættes en Statusbar med navnet "Statusbar1", og en CommandButton med navnet "Command1".

Jeg valgte det panel der hedder "statusbar". Kunne godt tænke mig, at den viser, hvor langt den er nået med at loade siden.

Jeg går ud fra, at du bruger WebBrowser-objektet fra "Microsoft Internet Controls"-komponenten.
Der skal du finde noget information, om brugen af WebBrowser-objektet. Den har en masse indstillinger, som man kan arbejde med.
Dem kan jeg ikke i hovedet.

Hmm.. Ok.. Kigger lige på det..

Har forresten også et andet problem :( Kan ikke helt finde ud af at lave det så når man trykker [enter], kommer den ind på den side, man har skrevet.

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

Her hedder textboxen, hvor man indtaster adressen, "Text1", og WebBrowser-objektet hedder "WebBrowser1".

TAK! Det virkede!

Det var så lidt.
Jeg kan desværre ikke hjælpe dig med "progress" til din browser.
Prøv at søge på nettet, f.eks. via http://www.google.com

I kan se min browser her: http://www.kack.dk/KBrowser.exe

Skriv, hvis i finder nogle alvorlige fejl.

Måske er jeg paranoid, måske er jeg ikke.
Men jeg har ikke tænkt mig at køre en exe fil, der ikke er lavet af et anerkendt firma, før jeg ser kildekoden :)
Man kan alt for nemt stjæle personlige data.

Specielt ikke et program, der skal bruge en internet forbindelse :)

Dette er min kildekode:

Private Sub Image1_Click()

End Sub
Private Sub Form_Load()
    WebBrowser1.GoHome
End Sub
Private Sub adresse_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then WebBrowser1.Navigate adresse.Text
End Sub
Private Sub back_Click()
    WebBrowser1.GoBack
End Sub
Private Sub forward_Click()
    WebBrowser1.GoForward
End Sub
Private Sub home_Click()
    WebBrowser1.GoHome
End Sub
Private Sub update_Click()
    WebBrowser1.Refresh
End Sub
Private Sub stop_Click()
    WebBrowser1.stop
End Sub

Og hvis ikke i tror på mig kan i dl alle filerne, til programmet her:
www.kack.dk/-browser.rar

Så kunne i eventuelt, komme med forbedringer

Du har glemt at få filen "browser.frm" med :)

ohh sry.. gør dte lige

Så... det er den samme adresse

Forresten er der en der kan fortælle mig hvordan man kunne lave et "vis kilde" menu punkt, som virker?

Dette er vidst ALT for gammelt..