تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مكان لوضع الأكواد بحيث تتجدد تلقائيا
#1
السلام عليكم
لدي 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 لدي الكود ولا اعرف مكانه
ساعدوني الرجوكم Smile
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
اخي يمكنك وضعه في الحدث WebBrowser1_DocumentCompleted يتم اطلاقه في الانتهاء من تحميل الصفحة
الرد }}}
تم الشكر بواسطة:
#3
3booody كتب :السلام عليكم ورحمة الله وبركاته
اخي يمكنك وضعه في الحدث WebBrowser1_DocumentCompleted يتم اطلاقه في الانتهاء من تحميل الصفحة

جربت و لم تنجح Sad
كما قلت اخي لا يمكن وضع اي اكواد في web browser1 لأن الاوامر لا تصدر منه
الرد }}}
تم الشكر بواسطة:
#4
boty كتب :جربت و لم تنجح Sad
كما قلت اخي لا يمكن وضع اي اكواد في 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 ObjectByVal e As WebBrowserDocumentCompletedEventArgs)
//code

    
TabControl1.SelectedTab.Text CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle   
...
End Sub 
الرد }}}
تم الشكر بواسطة:
#5
الشاكي لله كتب :لا اوامر ولا بطيخ


اظن انك لم تضف اجراء للحدث 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 ObjectByVal e As WebBrowserDocumentCompletedEventArgs)
//code

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] هل متاح انسخ ملف من جهاز الي اي جهاز في اي مكان داخل الفيجوال او غيره mony.tornado 2 387 08-12-22, 12:50 AM
آخر رد: mony.tornado
  [VB.NET] تمييز مكان الحرف الخاطئ Alssqr2022 0 450 21-10-22, 11:36 PM
آخر رد: Alssqr2022
  تحويل النص تلقائيا للعربية او الانجليزية nooralcown 6 5,768 19-08-22, 06:29 AM
آخر رد: esawy1
  تعديل صورة مكان صورة محفوظة في قاعدة البيانات mustafa mohamed 2 1,524 26-03-22, 07:00 PM
آخر رد: mustafa mohamed
  [سؤال] طريقة الادخال اليدوي في الداتا جريد فيو وحفظها تلقائيا safralfahd 11 3,342 19-03-22, 07:59 PM
آخر رد: safralfahd
  مطلوب كود ضبط ابعاد الشاشة للفورم تلقائيا بعد الفتح ... bilgacim 4 1,723 16-02-22, 11:37 PM
آخر رد: محمود بكرى
  الساعة لا يتم تحديثها تلقائيا Han2022 1 816 09-02-22, 10:55 PM
آخر رد: asmarsou
  اريد كود الكتابة في ملف txt في مكان محدد العواجي 1 1,219 28-11-21, 08:13 PM
آخر رد: سعود
  التحكم فى مكان الMsgBox اسلام الكبابى 2 922 04-10-21, 01:33 AM
آخر رد: اسلام الكبابى
  كود انتقال الماوس تلقائيا من التيكست بوكس ابو نور الهدى 6 1,527 16-09-21, 12:00 AM
آخر رد: ابو نور الهدى

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم