Navigere web-browser

WebBrowser1.GoForward
WebBrowser1.GoBack
WebBrowser1.GoHome

Ok tak! Hvordan forhindrer jeg at den lave fejl, hvis den ikke KAN gå Back/Forward? Den kommer med flg:

Run-time error '-2147467259 (80004005)':
Automation error
Unspecified error

Ah glem det, tilføjede On Error Resume Next !

nej du skal ikke bruge (On Error Resume Next)



Private Sub cmdBack_Click()
  WebBrowser1.GoBack
End Sub

Private Sub cmdForward_Click()
  WebBrowser1.GoForward
End Sub

Private Sub Form_Load()
  WebBrowser1.GoHome
End Sub

Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
  Select Case Command
        Case CSC_NAVIGATEFORWARD
          cmdForward.Enabled = Enable
        Case CSC_NAVIGATEBACK
          cmdBack.Enabled = Enable
  End Select
End Sub

Ok thx!

Men hvorfor må jeg ik bruge On Error Resume ? Virker fint nok?

det må du da også.. men når det kan gørres rigtig så bør man ikke bruge 'On Error Resume ...'

;-)