- 12 Febbraio 2008
- 7.659
- 0
- Miglior risposta
- 0
Ciao a tutti,
In questa Guida/Release spiegherò come personalizzare al meglio il proprio webbrowser sviluppato in Visual Basic 6. Posterò alcuni codici e le relative spiegazioni, inoltre posterò link a guide per concetti utilizzati nel codice.
Creare la barra degli indirizzi.
Inserire un WebBrowser nel proprio Form, una ComboBox e un CommandButton (WebBrowser1; Combo1; cmdVai;)
Questo codice permette di fare ciò:
Il commandbutton attiva il webbrowser che si posiziona nel link scritto nella combobox. Per impostare un link predefinito:
E questo era l'inizio. Ora vediamo come inserire una barra dei progressi.
1- Posizionarsi all'evento ProgressChange del WebBrowser e inserire questo codice:
Il codice si basa soprattutto sulla variabile dichiarata dall'evento ProgressChange.
Come potete vedere a voi serve una Label per il progresso (1-2-3%, ecc...) e una progress bar. Questa è visualizzabile andando in Project--->References--->Microsoft Comm 6.0
Come inserire la cronologia come lista della ComboBox della barra degli indirizzi
Posizionarsi nell'evento NavigateComplete2 del proprio WebBrowser e inserire questo codice:
Per capire al meglio il codice ecco una guida:
In poche parole, ad ogni evento NavigateComplete si attiva questo codice che va a ad aggiungere (Combo1.Additem) il LocationURL nella lista.
Eliminare la cronologia
Più semplice di così.
Il codice può sembrare un "floop" ma poi capirete meglio come funziona.
Quando la form viene chiusa (quindi nell'evente Form1_Unload()) ecco il codice da applicare:
Ora vi chiederete, perchè tutto questo codice? Il motivo è semplice. Per stampare nel file i link della cronologia non è possibile usare una normale procedura di output ma bisogna applicare un ciclo For.
Bloccare le applicazioni Javascript nel proprio WebBrowser
Inserire questo codice nel cmd o dove volete:
Questo codice è semplicissimo, si basa su un ciclo if per attivare/disattivare l'opzione Silent del proprio oggetto.
Visualizzare HTML della pagina corrente
Se non avete capito questo codice datevi all'ippica
Opzione Cerca con Google
Avete bisogno di una TextBox (Text2;)
Il codice funziona in questo modo: il browser si va a posizionare in
Creare una nuova finestra del browser
Scrivere questo codice in un commandbutton o dove si vuole:
Questo codice funziona se il form del webborwser si chiama Form1, se non è così cambiarlo oppure modificare il codice in
Come avrete notato, nella maggior parte dei codici è presente On Error GoTo o On Error Resume Next
Questi codici sono stati usati per evitare i "disastri" del programma, per evitare che appaia la finestra con scritto Debug o End
Questa funzione funziona così:
On Error GoTo va scritto all'inizio del Private Sub e in seguito va scritto il nome dell'erore (es. errore)
Quindi: On Error GoTo errore
E poi si andrà a scrivere:
errore:
Msgbox "C'è stato un errore", vbAttention, "Errore!"
Exit Sub
L'ultimo pezzo andrà scritto prima del End Sub
In questo modo, se è presente un errore nel codice intermedio a questi due "pezzetti" di codice, il programma si sposta subito ad errore e fa ciò che è specificato (fa apparire il Msgbox e chiude la Private Sub)
Per maggiori info:
Questo è tutto. Per altri codici potete richiedere anche qui ^^
In questa Guida/Release spiegherò come personalizzare al meglio il proprio webbrowser sviluppato in Visual Basic 6. Posterò alcuni codici e le relative spiegazioni, inoltre posterò link a guide per concetti utilizzati nel codice.
Creare la barra degli indirizzi.
Inserire un WebBrowser nel proprio Form, una ComboBox e un CommandButton (WebBrowser1; Combo1; cmdVai;)
Codice:
Perfavore,
Entra
oppure
Registrati
per vedere i codici!
Questo codice permette di fare ciò:
Il commandbutton attiva il webbrowser che si posiziona nel link scritto nella combobox. Per impostare un link predefinito:
Codice:
Perfavore,
Entra
oppure
Registrati
per vedere i codici!
E questo era l'inizio. Ora vediamo come inserire una barra dei progressi.
1- Posizionarsi all'evento ProgressChange del WebBrowser e inserire questo codice:
Codice:
Perfavore,
Entra
oppure
Registrati
per vedere i codici!
Il codice si basa soprattutto sulla variabile dichiarata dall'evento ProgressChange.
Come potete vedere a voi serve una Label per il progresso (1-2-3%, ecc...) e una progress bar. Questa è visualizzabile andando in Project--->References--->Microsoft Comm 6.0
Come inserire la cronologia come lista della ComboBox della barra degli indirizzi
Posizionarsi nell'evento NavigateComplete2 del proprio WebBrowser e inserire questo codice:
Codice:
Perfavore,
Entra
oppure
Registrati
per vedere i codici!
Per capire al meglio il codice ecco una guida:
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
In poche parole, ad ogni evento NavigateComplete si attiva questo codice che va a ad aggiungere (Combo1.Additem) il LocationURL nella lista.
Eliminare la cronologia
Più semplice di così.
Codice:
Perfavore,
Entra
oppure
Registrati
per vedere i codici!
Quando la form viene chiusa (quindi nell'evente Form1_Unload()) ecco il codice da applicare:
Codice:
Perfavore,
Entra
oppure
Registrati
per vedere i codici!
Ora vi chiederete, perchè tutto questo codice? Il motivo è semplice. Per stampare nel file i link della cronologia non è possibile usare una normale procedura di output ma bisogna applicare un ciclo For.
Bloccare le applicazioni Javascript nel proprio WebBrowser
Inserire questo codice nel cmd o dove volete:
Codice:
Perfavore,
Entra
oppure
Registrati
per vedere i codici!
Visualizzare HTML della pagina corrente
Codice:
Perfavore,
Entra
oppure
Registrati
per vedere i codici!
Opzione Cerca con Google
Avete bisogno di una TextBox (Text2;)
Codice:
Perfavore,
Entra
oppure
Registrati
per vedere i codici!
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
e in seguito il titolo (Caption) del form ospitante cambierà in Risultati ricerca.Creare una nuova finestra del browser
Scrivere questo codice in un commandbutton o dove si vuole:
Codice:
Perfavore,
Entra
oppure
Registrati
per vedere i codici!
Codice:
Perfavore,
Entra
oppure
Registrati
per vedere i codici!
Come avrete notato, nella maggior parte dei codici è presente On Error GoTo o On Error Resume Next
Questi codici sono stati usati per evitare i "disastri" del programma, per evitare che appaia la finestra con scritto Debug o End
Questa funzione funziona così:
On Error GoTo va scritto all'inizio del Private Sub e in seguito va scritto il nome dell'erore (es. errore)
Quindi: On Error GoTo errore
E poi si andrà a scrivere:
errore:
Msgbox "C'è stato un errore", vbAttention, "Errore!"
Exit Sub
L'ultimo pezzo andrà scritto prima del End Sub
In questo modo, se è presente un errore nel codice intermedio a questi due "pezzetti" di codice, il programma si sposta subito ad errore e fa ciò che è specificato (fa apparire il Msgbox e chiude la Private Sub)
Per maggiori info:
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Questo è tutto. Per altri codici potete richiedere anche qui ^^