Newsgroup: it.comp.lang.visual-basic
Titolo: aprire pag html con VB

Ciao a tutti,
vorrei sapere come faccio ad aprire attraverso un pulsante del mio programma
in visual basic una pagina html nel browser internet explorer?
Grazie Teodoro

 in visual basic una pagina html nel browser internet explorer?
Teodoro di questo argomento si č discusso a non finire per cui se cerchi
negli altri tread troverai qualcosa e dei link.
Volendo dare una soluzione piuttosto semplice e senza utilizzare controlli
esterni, basta un banale:
Dim RetVal
RetVal = Shell("C:\Programmi\Internet Explorer\iexplore.exe
http://it-lang-vb.net/
", 1)   ' Lancia IE sul sito comune
Chiaramente esistono soluzioni migliori, ma per iniziare credo vada bene
questo.
Poi puoi sbizzarrirti a controllare dove č collocato IEXPLORE.EXE (potrebbe
non essere in "C:\Programmi\Internet Explorer\")
o raffinare il tutto usando una piů "professionale" ShellExecute.
Per cosa sta quell' 1?
Da msdn:
' Specificando 1 come secondo argomento l'applicazione
' viene avviata normalmente e riceve lo stato attivo.
:o)
Ciao,
Antonio
---------------------------------------------
"Every morning I would see her
getting off the bus
the picture never drops
it's like a multicoloured snapshot
stuck in my brain
it kept me sane for a couple of years
as it drenched my fears
of becoming like the others
who become unhappy mothers
and fathers of unhappy kids"
(The Ark - It takes a fool to remain sane)
---------------------------------------------


http://it-lang-vb.net/
", 1)   ' Lancia IE sul sito comune
Solo un paio di piccole precisazioni, cosi' facciamo
partire il nostro amico col piede giusto.
1) specifichiamo il tipo di dato di RetVal, altrimenti
per default e' Variant;
2) al posto di un 1 secco, e' piu' manutenibile e comprensibile una costante
dell' enumeratore VbAppWinStyle;
L'esempio diventa:
Dim RetVal As Long
RetVal = Shell("C:\Programmi\Internet Explorer\iexplore.exe 
http://it-lang-vb.net/
",  _
			vbNormalFocus)  
Va forse verificato anche se gli eventuali spazi contenuti nel path dell' eseguibile
non diano fastidio: se cosi' fosse occorrerebbe confinare tale path tra doppi apici.
Se poi non occorre usare proprio IE, ma e' sufficiente lanciare il browser
predefinito, allora conviene la richiestissima ShellExecute.
-- 
ciao, hal

 partire il nostro amico col piede giusto.
Giustissimo Hal, sei un grande.
Comunque... il path con gli spazi lo accetta.. ho appena provato.
:o)
Ciao,
Antonio
--


 ha scritto: 

Le
soluzioni migliori sono 2:o usi l'API ShellExecute o fai quello che ha
postato hal.La differenza è che la ShellExecute ti apre il browser
predefinito, con quello che ha postato hal ti apre Explorer.
Per la
ShellExecute la dichiarazione è questa:
Private Declare Function
ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long,
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As
String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Mentre questo è un esempio
'Naturalmente al posto di 
http://www.sito.it
 ci
metti l'indirizzo 'del sito o della pagina che vuoi tu
Private Sub
lblLink_Click()
 Dim pagina As Long
 pagina=ShellExecute
 homepage =
ShellExecute(Me.hWnd, "Open", _
"
http://www.sito.it
", "", App.Path, 1)
Ciao, se hai dubbi chiedi pure!
Andrea
--------------------------------
Inviato via 
http://usenet.iol.it
 

Piccola svista boy... anche se evidente la riscrivo.
Corretto č cosě:
Dim pagina As Long
pagina = ShellExecute(Me.hwnd, "Open", "
http://www.sito.it
", "", App.Path,
1)
Ciao,
:o))


1)
--------------------------------
Inviato via 
http://usenet.iol.it
 

ShellExecute(Me.hWnd, " (snip)
che č corretta, (identica a quella che ho scritto io). Solo che
l'imprecisione stava in quel pagina=ShellExecute senza parametri e nel
dichiarare la variabile di nome pagina e poi
usare homepage (se uno ha l'option explicit genera errore). Piccola
imprecisione... nulla di che.
Per il resto č chiaro che la shellexecute sia identica alla tua... l'hai
proposta tu la soluzione, io ho solo precisato alcune cose. Si potevano
anche intuire... ma era giusto per dire che se facevi copia /incolla di quel
codice... non funzionava cosě com'era.
:o)
Ciao,
Antonio
--
"I grandi spiriti hanno sempre incontrato violenta
opposizione da parte delle menti mediocri."
A.Einstein

Nulla di grave, č solo che per


--------------------------------
Inviato via 
http://usenet.iol.it