Inhoudsopgave:

Een programma maken in Visual Basic: webbrowser: 9 stappen
Een programma maken in Visual Basic: webbrowser: 9 stappen

Video: Een programma maken in Visual Basic: webbrowser: 9 stappen

Video: Een programma maken in Visual Basic: webbrowser: 9 stappen
Video: 18 VBA voor Excel - Een formulier maken 2024, November
Anonim
Een programma maken in Visual Basic: webbrowser
Een programma maken in Visual Basic: webbrowser

Deze Instructable legt het proces uit van het maken van een eenvoudige webbrowsertoepassing in VB. NET. Het is ontworpen als een vervolg op mijn eerste VB. NET Instructable: uw eerste programma maken in Visual Basic. Het wordt aanbevolen dat u die instructable eerst doorleest, omdat deze instructable ervan uitgaat dat u een basiskennis hebt van de Visual Basic Express Edition-interface, zoals behandeld in mijn andere instructable. Hoewel Visual Basic 2005 Express Edition goed werkt voor deze instructable, gebruik ik Visual Basic 2008 Express Edition, verkrijgbaar bij Microsoft

Stap 1: Maak het project

Maak het project
Maak het project

Maak een nieuw Windows Forms-project en noem het Webbrowser. Verklein het formulier naar uw wens.

Stap 2: Voeg de bedieningselementen toe en wijzig de eigenschappen

Voeg de bedieningselementen toe en wijzig eigenschappen
Voeg de bedieningselementen toe en wijzig eigenschappen

Sleep vanuit de toolbox een TextBox, WebBrowser en A Button naar het formulier. Plaats ze zoals ze op de foto staan. Bewerk vervolgens de Anchor-eigenschap van de TextBox en WebBrowser zodat alle vakken rond het grijze vierkant (getoond wanneer u de anchor-eigenschap bewerkt) zijn geselecteerd. Hierdoor kunnen de besturingselementen 'uitrekken' wanneer het formaat van het formulier wordt gewijzigd. Doe hetzelfde voor de knop, maar stel deze alleen in op "Top, Right". Verander ook de eigenschap Text van Form1 in Web Browser of iets dergelijks om de titelbalk te wijzigen.

Stap 3: Codeer

Code!
Code!

Dubbelklik op Button1 en voeg de volgende code toe aan de editor, na de regel "Private Sub" en voor de regel "End Sub"

WebBrowser1. Navigeren(TextBox1. Text)Deze code vertelt het programma eenvoudig: Wanneer iemand op Button1 klikt, laat WebBrowser navigeren naar wat er ook in TextBox1 staat. Dat is het! Je hebt een werkende webbrowser. Klik op de afspeelknop om het uit te testen.

Stap 4: Meer dingen

Meer spullen
Meer spullen

Je dacht toch niet dat ik je maar één regel code zou geven - of wel? In de volgende paar stappen zullen we het volgende implementeren:

  • Adresbalk die verandert als de pagina verandert
  • Knoppen Terug, Vooruit en Vernieuwen
  • Statusbalk.

Stap 5: Adresbalk

Adres Bar
Adres Bar

Op dit moment laat de adresbalk alleen de pagina zien die u typt, als u op een link klikt, wordt de wijziging niet weergegeven in de adresbalk. Om dit op te lossen, moeten we wat meer code toevoegenGa terug naar de ontwerpweergave, klik op "Formulier 1.vb (ontwerp)" en dubbelklik vervolgens op het besturingselement WebBrowser. Het zal terugschakelen naar de codeweergave, maar er zal daar wat meer code zijn, merk op dat er "WebBrowser1_DocumentCompleted" staat, dit is de code die we willen, dus we hoeven hier geen wijzigingen aan te brengen, maar er is een blanco regel daaronder, vóór de End Sub-instructie, en we willen daar wat code toevoegen. Typ daar het volgende:

TextBox1. Text = WebBrowser1. Url. ToStringDit vertelt het programma dat zodra WebBrowser1_DocumentCompleted, we TextBox1. Text moeten veranderen in WebBrowser1. Url. De ToString is er omdat de URL-eigenschap van de webbrowser standaard niet van hetzelfde gegevenstype (string) is, zoals vereist door ons tekstvak. De ToString schrijft de URL naar een string voor de TextBox.

Stap 6: Actieknoppen

Actieknoppen
Actieknoppen

Schakel terug naar de ontwerpweergave en sleep 3 nieuwe knoppen naar het formulier en positioneer ze. Wijzig de eigenschap Text van elk: Button2 = Back, Button3 = Forward en Button4 = Refresh. Als u ze plaatst zoals de mijne, past u de ankereigenschap van Vernieuwen naar boven aan, RechtsDubbelklik op de knop Terug en typ de volgende code.

WebBrowser1. GoBack() Terug naar ontwerp, dubbelklik op Vooruit en typ

WebBrowser1. GoForward()Ontwerpweergave en een dubbelklik om te vernieuwen

WebBrowser1. Refresh()Test de browser en probeer de nieuwe functies uit.

Stap 7: Statusbalk

Statusbalk
Statusbalk

Terug in de ontwerpweergave, voeg een label toe, verander de tekst in "Bezig met laden…" (zonder de aanhalingstekens) Ga nu naar de codeweergave door op het tabblad Form1.vb te klikken. Zoek het item WebBrowser1_DocumentCompleted en typ onder de code die u daar eerder hebt geplaatst

Label1. Text = "Gereed"Klik nu omhoog waar de code DocumentCompleted zegt. Beweeg uw muis omhoog naar de plaats waar de twee vervolgkeuzelijsten zijn. Selecteer de tweede (Degene die DocumentCompleted zegt) en selecteer Navigeren. Dan verschijnt er een nieuwe code - typ

Label1. Text = "Bezig met laden"Dit geeft alleen een indicatie wanneer de pagina wordt geladen. U kunt ook de ankereigenschap van het label instellen.

Stap 8: Voltooi

compleet!
compleet!

Daar ga je. U heeft een volledig functionerende webbrowser. Blijf het aanpassen zoals je wilt. Zoals in mijn eerste instructable. Ik heb wat huiswerk voor degenen die dit instructable voltooien. Implementeer het volgende:

  • Een thuisfunctie
  • Verander de Refresh-knop in een Stop-knop wanneer een pagina wordt geladen.

Ik hoop dat deze projecten je hebben laten zien hoe gemakkelijk het is om te programmeren!

Stap 9: Oplossingen

Oplossingen
Oplossingen

Voor degenen die mijn eerste VB-instructie hebben voltooid - ik heb de oplossingen voor het huiswerk dat ik aan het einde heb ingesteld.

Verander de achtergrondkleur

Dit is eenvoudig: verander de eigenschap BackColour van Form1 in een andere kleur

Voeg wat copyright-info toe

Een nieuw label met de teksteigenschap gewijzigd zal het lukken

Verander de grootte van het formulier met de afbeelding

Verander AutoSize in True en AutoSizeMode in GrowAndShrinkDone! Nog te komen: ik zal nog wat VB. NET Instructables maken. Blijf coderen!

Aanbevolen: