[boty]

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

PHP كود :

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


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

[3booody]

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

[boty]

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

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

[الشاكي لله]

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

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


اظن انك لم تضف اجراء للحدث 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 


[boty]

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


اظن انك لم تضف اجراء للحدث 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 


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