Kirjautuminen

Haku

Tehtävät

Kilpailu

Ohjelmoi tekoäly!
Arvostele pelit
15.8. klo 12 mennessä!

Keskustelu: Koodit näytille: VB6: Internet-Selain

Sivu 1 / 1

petrinm [06.01.2004 12:09:04]

#

Yksin kertainen nettiselain, jolla voi
helposti surffata netissä.

Lisää Formiin:
1 Teksti-loota
1 List-laatikko
6 Buttonia (Kaikki riviin ja ylös. Koko noin Height = 615, Widht = 975.)
1 WebBrowser kompomentti, joka löytyy Components listasta nimellä Microsoft Internet Control.

Private Sub Command1_Click()
'Edellinen
    On Error GoTo Error
    WebBrowser1.GoBack
Error:
    Exit Sub
End Sub

Private Sub Command2_Click()
'Seuraava
    On Error GoTo Error
    WebBrowser1.GoForward
Error:
    Exit Sub
End Sub

Private Sub Command3_Click()
'Pysäytä
WebBrowser1.Stop
End Sub

Private Sub Command4_Click()
'Päivitä
WebBrowser1.Refresh
End Sub

Private Sub Command5_Click()
'Kotisivu
WebBrowser1.Navigate "http://www.google.com"
text1.Text = WebBrowser1.LocationURL
End Sub

Private Sub Command6_Click()
WebBrowser1.Navigate Text1.Text
End Sub

Private Sub Form_Load()
Command1.Caption = "Edellinen"
Command2.Caption = "Seuraava"
Command3.Caption = "Pysäytä"
Command4.Caption = "Päivitä"
Command5.Caption = "Koti"
Command6.Caption = "Go"
List1.AddItem ("www.ohjelmointiputka.net")
List1.AddItem ("www.google.com")
List1.AddItem ("www.hotmail.com")
List1.AddItem ("www.microsoft.com")
List1.AddItem ("www.altavista.com")
List1.AddItem ("www.fi")

WebBrowser1.Navigate "www.ohjelmointiputka.net"
List1 = WebBrowser1.LocationURL
End Sub


Private Sub List1_DblClick()
WebBrowser1.Navigate List1
End Sub

Private Sub WebBrowser1_TitleChange(ByVal Text As String)
List1 = WebBrowser1.LocationURL
End Sub

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta