عندى سؤال بسيط جدااا فى اداة WebBrowser فهل من مجيب

up

مثل ماتوقعت 3000 مشاهدة :lol: وفيش غير رد واحد اللى هو بتاعى وكمان مفهوش غير كلمة واحدة up :lol:

تحول الماوس حاجة طبيعية طالما أن البرنامج مشغول بتنفيذ أمر ما.

مع الأسف سؤالك مش منطقى حتى لو ليه حل.

أنا عارف انك بتقول ايه السؤال الغبى دة :lol:

ياسيدى البرنامج فيه حوالى 5 الأداة WebBrowser كلهم بيتجددو على طول بيتحدثوا يعنى كمان أنا خفيهم يعنى المستخدم مبيشفهمش :lol: والماوس بيفضل على طول كدة بيحمل أنا عارف أنك لسه مش مقتنع :angry: على العموم خدنى على أد عقلى ياعم :lol:

بالك ايه خلاص طالما السؤال ده مش عجبك سيبك منه أنا جبتلك سؤال أنما ايه :D

يلا أدخل ورد عليا undefined

خلي خيالك واسع ..

برامج الشات المشهورة Yahoo,MSN بتستخدم كلاس الـ Internet Explorer في عرض نوافذ المحادثة

فتفكر إنهم بيعملوا navigate علي طول مثلما تفعل لعمل refresh للمحادثة أثناء ارسال أو استقبال الرسائل ..

تستطيع إضافة ما تريده من أكواد في جسم الصفحة نفسه بدون استخدام Navigate

كتب لك الكود التالي وهو يفي بما تريد ..

Dim HtmlPath As String
Private Sub Form_Load()
  HtmlPath = "C:\Test.html"
  Web.Navigate2 "About:Blank"
  Web.Document.Script.Document.Clear
  Web.Document.Script.Document.Write HTMLCODE(HtmlPath)
End Sub

Private Sub Timer1_Timer()
  Web.Document.Script.Document.Close
  Web.Document.Script.Document.Write HTMLCODE(HtmlPath)
End Sub

Function HTMLCODE(sPath As String) As String
Open sPath For Binary As #1
	 HTMLCODE = Space(LOF(1))
	 Get #1, , HTMLCODE
Close #1
End Function

يا ريت بس نشوف تقدير منك للمنتدي وعدم وضعه في مقارنه بمنتديات أخري ..علشان الأعضاء يجاوبوا علي أسئلتك..

لإنك بهذا الأسلوب ستجعل الجميع يغلقوا الصفحة ..وأنت الوحيد الخسران في النهاية ..