تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مطلوب تعديلات في هذه الاكواد بحيث تكون فعاله اكثر معتز الجازوي 2 76 28-11-16, 05:36 PM
آخر رد: معتز الجازوي
  [سؤال] تكرار الضغط في مكان ما في الشاشه Test 8 132 06-11-16, 07:09 PM
آخر رد: silverlight
  [VB.NET] إضافه نص الي صوره بحيث يكون اسفل الصوره بدون استقطاع اي جزء منها جوري 4 169 31-10-16, 08:56 PM
آخر رد: جوري
Lightbulb المساعدة في معرفة طريقة كتابة الأكواد بشكل صحيح ... Arabia 0 73 26-10-16, 03:18 PM
آخر رد: Arabia
  [VB.NET] عمل Setup او تحزيم لبروجكيت يحتوي SQl database بحيث يعمل على اي حاسبه لا تحتوي على SQ prog.alaa2012 4 203 16-09-16, 12:33 PM
آخر رد: prog.alaa2012
  [VB.NET] هل يمكنني تغيير اسم Button من مكان آخر sniperjawadino 9 326 31-08-16, 07:34 PM
آخر رد: sniperjawadino
  [سؤال] مطلوب بعض الأكواد anasmoner 0 85 11-08-16, 03:03 AM
آخر رد: anasmoner
  تغير مكان الادوات علي الفورم makky 4 178 02-08-16, 01:19 AM
آخر رد: makky
  عايز كود برنامج يعمل كوبى اتوماتيك كل ساعة من مكان الى اخر mahdyfox 4 197 10-07-16, 11:03 PM
آخر رد: الوادي
  امر معين عند وجود ملف في مكان ما ! salahmax12 7 337 02-05-16, 12:40 PM
آخر رد: hassan

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


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