Keskustelu: Koodit: VB6: Internet-Selain

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