Hola buenas,sigo creando un Navegador web,así va de momento:
Y es que quiero, que sin navegar a ninguna web, que según abra el navegador, y haga clic en por ejemplo en SIGUIENTE <sin haber ninguna web siguiente a la que visitar> o clikee en ANTERIOR <sin haber webs visitadas antes> que salga un msgbox dando un error.
Os dejo el código:
Private Sub Combo_Change()
webbrowser.Navigate Combo
End Sub
Private Sub Combo_KeyPress(Keyascii As Integer)
If Keyascii = 13 And Combo <> "" Then
webbrowser.Navigate Trim$(Combo)
Combo.AddItem Combo
End If
End Sub
Private Sub Form_Load()
webbrowser.Navigate "http://www.google.es"
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
webbrowser.Refresh
Case 2
webbrowser.GoHome
Case 3
webbrowser.Stop
Case 4
webbrowser.GoBack
Case 5
webbrowser.gofordward
Case 6
webbrowser.Navigate Trim$(Combo)
End Select
End Sub
Y es que yo metía en la parte del código :
Case 4
webbrowser.GoBack
debajo de case 4 yo escribía:
Case 4
On error goto error
webbrowser.goback
End select
error:
msgbox "No hay páginas a las que volver"
_____
Eso escribía,pero no me quedaba bien del todo.
Espero ayudas por favor.
Saludos y gracias.