• 0
  • مالي خلق
  • أتهاوش
  • متضايق
  • مريض
  • مستانس
  • مستغرب
  • مشتط
  • أسولف
  • مغرم
  • معصب
  • منحرج
  • آكل
  • ابكي
  • ارقص
  • اصلي
  • استهبل
  • اضحك
  • اضحك  2
  • تعجبني
  • بضبطلك
  • رايق
  • زعلان
  • عبقري
  • نايم
  • طبيعي
  • كشخة
  • النتائج 1 إلى 2 من 2

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

    1. #1
      التسجيل
      05-03-2004
      المشاركات
      15
      المواضيع
      6
      شكر / اعجاب مشاركة

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

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

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

      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 method). Use the 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


      وهذا المتصفح في المرفقات جربوه وشوفوا ايش الخطا
      الملفات المرفقة الملفات المرفقة
      اوقات ياخذنا الحكي وننسى في الحكي اوقات

      واوقات ياليت الكلام سكات
      واوقات يجرحنا الحكي
      وين القى كلام مامر بكلام
      واحكي لك حبيبي عن سفرك بروحي وعن وطنك جروحي
      وعن تعب الغرام
      حبيبي كلام صعب ان ضاع الامل او مات
      تسكني حروف وتهجرني حروف وانا احبك حبيبي
      في املي وياسي في قمري وشمسي في كل الظروف
      حبيبي احبك حب مايعرف ابد اوقات

    2. #2
      التسجيل
      04-05-2004
      المشاركات
      37
      المواضيع
      4
      شكر / اعجاب مشاركة

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

      الحل للمشكلة هو بإستخدام الكود التالي:
      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
      أرجو أن يكون هذا حلا لمشكلتك ..

    ضوابط المشاركة

    • لا تستطيع إضافة مواضيع جديدة
    • لا تستطيع الرد على المواضيع
    • لا تستطيع إرفاق ملفات
    • لا تستطيع تعديل مشاركاتك
    •