منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
لدي web browser
وقد قمت بأضافة tabs اليه بهذه الطريقة
http://www.dev-point.com/vb/t395060.html
و الآن اريد ان اضيف prosses bar و ان يكون اسم التاب بأسم الصفحة الموجودة فيه
اعلم ماذا علي ان اكتب

لكن مالا اعلمه هو اين اصع هذا الكود :confused:
فلا يمكنني وضعه في اي نطاق من web browser لأن الأوامر لا تصدر منها
و لو وضعته في tab control فلن يتغير اسم الصفحة الا عند الضغط على التاب
و نفس الأمر في prosees bar لدي الكود ولا اعرف مكانه
ساعدوني الرجوكم

السلام عليكم ورحمة الله وبركاته
اخي يمكنك وضعه في الحدث WebBrowser1_DocumentCompleted يتم اطلاقه في الانتهاء من تحميل الصفحة

3booody كتب :السلام عليكم ورحمة الله وبركاته
اخي يمكنك وضعه في الحدث WebBrowser1_DocumentCompleted يتم اطلاقه في الانتهاء من تحميل الصفحة

جربت و لم تنجح
كما قلت اخي لا يمكن وضع اي اكواد في web browser1 لأن الاوامر لا تصدر منه

boty كتب :جربت و لم تنجح
كما قلت اخي لا يمكن وضع اي اكواد في web browser1 لأن الاوامر لا تصدر منه

لا اوامر ولا بطيخ


اظن انك لم تضف اجراء للحدث DocumentCompleted
لذلك عندما ينطلق الحدث لن يحدث شيئ

بناءا على الموضوع الي في الديف بوينت
عدلت الكود واضفت اجراء للحدث DocumentCompleted عبر addhandler - طبعا انا كاتب الكود دون بيئة التطوير لذلك ممكن تشوف خطأ

الشاكي لله كتب :لا اوامر ولا بطيخ


اظن انك لم تضف اجراء للحدث DocumentCompleted
لذلك عندما ينطلق الحدث لن يحدث شيئ

بناءا على الموضوع الي في الديف بوينت
عدلت الكود واضفت اجراء للحدث DocumentCompleted عبر addhandler - طبعا انا كاتب الكود دون بيئة التطوير لذلك ممكن تشوف خطأ

PHP كود :

...
  Try
            Dim tab As New TabPage
            Dim brws As New WebBrowser

                AddHandler brws.DocumentCompleted, New _
        WebBrowserDocumentCompletedEventHandler(AddressOf WebBrowser_DocumentComplete)

            brws.Dock = DockStyle.Fill
            tab.Text = " New Tab"
            tab.Controls.Add(brws)
            Me.TabControl1.TabPages.Add(tab)
            Me.TabControl1.SelectedTab = tab
            brws.Navigate("")
        Catch ex As Exception
 
        End Try
...

Private Sub WebBrowser_DocumentComplete(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
//code

    TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle   
...
End Sub 


و الله أخي الكريم لا أعرف كيف أشكرك ، أنت متنقل معي من سؤال الى اخر و دائما ما تفيدني
لقد نجح ما تقول أخي الكريم أعيد شكرك و جزاك الله خيرا و و اعطاك اجرك مضاعفا في الشهر الكريم