مساعدة في برنامج تصفح النت على vb6

[سو يا سو]

السلام عليكم شباب
كيفكم
عندي مشكلة ((احسها بسطة بس ما عرفت حلها))
سويت متصفح للإنترنت بس حصلتلي مشكلة متفرعة لمشكلتين:06:
اذا دست على زر للأمام يعطيني خطأ اذا مافيه صفحة قدامه
ونفس المشكلة اذا دست زر للخلف
على العموم هذا كود البرنامج وارجو منكم المساعدة

دورت في MSDN ولقيت حل المشكلة بس مدري كيف استخدمه:31:


During a browsing session, the WebBrowser control and Internet Explorer application maintain a history list of all Web sites visited during a session (unless you specify the navNoHistory flag when using the Navigate (http://mk:@msitstore:C:/Program%20Files/Microsoft%20Visual%20Studio/MSDN98/98VS/1033/IERef.chm::/inet401/help/itt/IEProg/WB/methods/Navigate.htm#Navigate) method). Use the CommandStateChange (http://mk:@msitstore:C:/Program%20Files/Microsoft%20Visual%20Studio/MSDN98/98VS/1033/IERef.chm::/inet401/help/itt/IEProg/WB/events/CommandStateChange.htm#CommandStateChange) event to check the enabled state of backward navigation. If the event's CSC_NAVIGATEBACK command is disabled, the beginning of the history list has been reached and the GoBack method should not be used.


Private Sub cmdBack_Click()
webBro.GoBack
End Sub
Private Sub cmdFor_Click()
webBro.GoForward
End Sub
Private Sub cmdGo_Click()
On Error GoTo er_handler
webBro.Navigate Text1.Text
Form1.Caption = webBro.LocationName
Exit Sub
er_handler:
MsgBox "Error retrieving URL:" & Chr$(13) & Text1.Text, vbOKOnly + vbCritical, "Error"
End Sub
Private Sub cmdHome_Click()
webBro.GoHome
End Sub
Private Sub cmdRef_Click()
webBro.Refresh
End Sub
Private Sub cmdSer_Click()
webBro.GoSearch
End Sub
Private Sub cmdStop_Click()
If webBro.Busy = True Then webBro.Stop
End Sub


Private Sub Form_Resize()
webBro.Height = Me.Height - 100
webBro.Width = Me.Width - 100
End Sub


وهذا المتصفح في المرفقات جربوه وشوفوا ايش الخطا

[ahmedqatar]

الحل للمشكلة هو بإستخدام الكود التالي:


Private Sub cmdGo_Click()
On Error resume next
webBro.Navigate Text1.Text
Form1.Caption = webBro.LocationName
Exit Sub
End Sub


حيث السطر
On Error resume next
يقوم بتجاوز الخطأ و تنفيذ الأمر الذي بعده ...

و يمكن استخدام هذا السطر في أي حالة سواء GoBack أو GoForward أو حتى Refresh
أرجو أن يكون هذا حلا لمشكلتك ..