Come creare un browser Web in Visual Basic 2008

November 11

Come creare un browser Web in Visual Basic 2008


Visual Basic 2008, tra cui la versione gratuita Express, fornito con un modo abbastanza appropriato, integrato in un componente di rendering HTML di nome, "browser web". Questo permette allo sviluppatore, con quasi nessuna programmazione o il tempo di investimento, per creare un browser web o consentire la loro applicazione la propria documentazione visualizzazione HTML.

istruzione

1 Aggiungere un controllo TextBox alla parte superiore del modulo. Il nome "AddressBar" e cambiare è il testo di "http://www.google.com" o qualsiasi altro indirizzo Web predefinito che si desidera utilizzare.

2 Aggiungere un pulsante accanto alla casella di testo. Il nome "GoButton" e cambiare è proprietà di testo a "GO".

3 Aggiungere il controllo "WebBrowser" per la lista dei componenti e trascinare i suoi confini in modo da riempire il resto della finestra. Vai alla lista di proprietà sul lato in basso a destra dello schermo e trovare la voce "ancoraggio". Si leggerà "Superiore, Inferiore". Fare clic sulla casella a discesa per cambiarlo in "Alto, Basso, Sinistra, Destra." Questo farà sì che il controllo del browser web si riempie sempre la finestra se l'utente ridimensiona.

Poi, vai alla proprietà URL del controllo del browser Web e modificare per leggere "http://www.google.com." Se si sceglie un altro sito di default nel passaggio 1, utilizzare quello.

4 Fare doppio clic sul "GoButton" creato nel passaggio 2. Questo creerà una funzione di evento denominato "GoButton_Click" e vi porterà ad esso automaticamente. Incollare il seguente codice in esso. Le linee REM descrivono ciò che il codice sta facendo in ogni riga:

REM Set aside some memory to hold a new URL.
Dim url As Uri

REM cercare di creare un URL dal testo nella barra degli indirizzi.
Provare
url = Nuovo Uri (AddressBar.Text)

REM Se il testo nella barra degli indirizzi non ha senso come un URL, dare l'avvertimento all'utente
REM e poi dire loro che si sta per Google, invece.
Fermo ex come eccezione
MsgBox ( "URL non valido. Andando a Google, invece.")
url = Nuovo Uri ( "http://www.google.com")
AddressBar.Text = "http://www.google.com"

End Try

REM Dillo la componente browser Web per aprire l'URL.
WebBrowser1.Url = URL

Consigli e avvertenze

  • Questo vi dà il vostro molto proprio del browser di lavoro. Tuttavia, è ancora molto primitiva e ci sono alcune caratteristiche che si potrebbe desiderare di aggiungere. Ad esempio, gli indirizzi web inseriti nella barra degli indirizzi devono essere indirizzi completi. In altre parole, essi devono iniziare con "http: //". Immissione dell'indirizzo "google.com" darà un errore URL non valido.