En av de første programmene som mange nye Visual Basic programmerere skaper er en enkel nettleser. De fleste av disse enkle leserprogrammer , men inneholder kun en adresse bar og et par navigasjonsknapper . Hvis du vil opprette en VB nettleser app som er litt mer informativ for brukeren , bør du legge en statuslinje på bunnen av nettleseren programvinduet. Statuslinjen oppdaterer brukeren som leseren kobles til sider og objekter på nettet . Selv om du legger til en statuslinje kan virke komplisert , det er ganske enkelt hvis du vet koden må du legge til din app prosjektet. Du trenger
Visual Basic, Visual Basic Express eller Visual Basic Studio
Vis flere instruksjoner
en
Åpen Visual Basic , Visual Basic Express eller Visual Basic Studio på PC. Klikk på " File " på menylinjen , deretter " New Project. " Etter " New Project" -vinduet åpnes , klikk og velg "Windows Forms Application " alternativet .
2
Type " My First Web Browser Application "eller et annet beskrivende navn i " Name "-feltet og klikk" OK "-knappen . Visual Basic- editoren viser en blank " Form1 " i Form Designer vinduet.
3
Klikk på " Toolbox " for å åpne den. Bla nedover i listen over kontroller til du kommer til "Panel " kontroll. Venstre -klikk på " Panel" kontroll alternativet og dra det til øverste høyre hjørne av open " Form1 "-vinduet. Dra " Tekstboks' " kontroll i kategorien Toolbox på toppen av " Panel" kontrollen du opprettet i Form1 vinduet .
4
Dra tre " Button "-kontroller på toppen av " Panel" kontrollere. Dette er for "Go ", "Tilbake" og "Home" -knappene i nettleseren. Bruk musen til å plassere tre knapper styrer rett til høyre for " Tekstboks " kontroll du dras og slippes tidligere.
5
Bla ned til " WebBrowser " kontroll i verktøykassa fanen og høydepunkt det. Dra " WebBrowser " kontrollen til åpen Form1 vinduet rett under knappen og Tekstboks' .
6
Klikk og marker " Panel" kontroll i Form1 vinduet. Bla ned til " Dock "-verdien i Properties vinduet på høyre side av Visual Basic-redigering . Klikk og velg " Top" i Dock eiendom listen . Visual Basic utvider "Panel " kontroll for å fylle hele øvre delen av Form1 vinduet.
7
Klikk og marker " WebBrowser " kontroll i Form1 vinduet. Sett WebBrowser kontrollen " Dock " eiendom til " Fill. " Visual Basic utvider WebBrowser kontroll for å fylle hele plassen i Form1 vinduet under "Panel " kontroll.
8
Bruk musen å dra på venstre side av " TextBox " kontroll til høyre for å endre størrelse på det før det ligner en adresse bar feltet du ser i de fleste leserprogrammer . Endre størrelsen på "knappen " kontroller til en størrelse som passer deg. Marker den første " Button" kontroll , og deretter endre " Text " eiendom i høyre vindusrute til " Go". Endre "Text " eiendom for de andre to " Button "-kontroller til "Tilbake" og " Home".
9
Dobbeltklikk på " Button" kontrollen du merket " Go". Etter Visual Basic-kode -vinduet åpnes, skriv inn følgende kode i tomrommet mellom de "Private Sub " og " end Sub "linjer : WebBrowser1.Navigate ( TextBox1.Text )
10
Dobbeltklikk på " Button " kontroll merket" Back "Skriv inn følgende kode i editoren : . WebBrowser1.GoBack ( )
11
Dobbeltklikk på " Button" kontroll merket " Home" og skriv inn følgende kode i editoren : WebBrowser1.GoHome ( )
12
bruk musen å endre størrelsen på den nederste delen av Form1 vinduet før det er en smal plass like under WebBrowser kontroll . Bla ned til og markere " StatusStrip " kontroll og dra den til rommet under WebBrowser kontroll i Form1 vinduet .
13
Klikk på rullegardinpilen på " StatusStrip " kontroll etter at du dra den til Form1 vinduet. Velg " ProgressBar . " Another rullegardinpilen vises rett til høyre for " StatusStrip " kontroll. Klikk på rullegardinpilen og velg " StatusLabel . "
14
Marker " StatusStrip " kontroll i Form1 vinduet. Endre " Text " eiendom for kontrollen til "Ferdig" i Properties panelet
15
Dobbeltklikk på " StatusStrip " kontroll i Form1 vinduet og skriv inn følgende kode i editoren : . ProgressBar1 . Maximum = e.MaximumProgressProgressBar1.Value = e.CurrentProgressStatusStrip1.Text = WebBrowser1.StatusText
16
Klikk på " Debug " på Visual Basic menylinjen , deretter "Start Debugging . " Et nytt vindu vises med leve nettleser programmet. Skriv inn en URL -adresse i adressefeltet , og klikk på "Go" -knappen . Nettleseren navigerer til den adressen du oppga mens visning av status i den nedre delen av nettleservinduet .