تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اجعل الكلمات تحت بعضها فى الليست بوكس
#1
السلام عليكم اخوتى
عامل برنامج لجلب معلومات من موقع لمواقيت الصلاة لكن
الكلام كله بكون جنب بعضه وانا اريده كل بند تحت الأخر
فهى تظهر معى كذلك 



وهذا هو الكود
كود :
Dim input As HtmlElementCollection
       input = WebBrowser1.Document.GetElementsByTagName("div")
       For Each item As HtmlElement In input
           If item.GetAttribute("className").Contains("col6 prayertable mobile") Then


               ListBox1.Items.Add(item.InnerText)
           End If
       Next item
الرد }}}
تم الشكر بواسطة:
#2
ارفق المشروع لاختبار نتائج القيم

أو قم باستخدام التالى
كود :
MsgBox(item.InnerText)

بدلاً من 
كود :
ListBox1.Items.Add(item.InnerText)

وشوف عند عمل اختبار هل تظهر رسالة واحدة فقط
او تعدد الرسائل ... واذا كانت تعدد الرسائل

ارفق لى صورة للرسالة التى تعرض لك
لمعرفة شكل الرسالة التى تظهر فى كل مرة

وان ارفقت المشروع سيسهل علي كتابة الكود المفيد
لاتمام تنفيذ المطلوب

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابو روضة
#3
(16-07-18, 12:10 AM)elgokr كتب :
ارفق المشروع لاختبار نتائج القيم

أو قم باستخدام التالى
كود :
MsgBox(item.InnerText)

بدلاً من 
كود :
ListBox1.Items.Add(item.InnerText)

وشوف عند عمل اختبار هل تظهر رسالة واحدة فقط
او تعدد الرسائل ... واذا كانت تعدد الرسائل

ارفق لى صورة للرسالة التى تعرض لك
لمعرفة شكل الرسالة التى تظهر فى كل مرة

وان ارفقت المشروع سيسهل علي كتابة الكود المفيد
لاتمام تنفيذ المطلوب

تحياتى لك
وتمنياتى لك التوفيق

هذه هى الرسالة اخى الجوكر بعد التغيرات التى قولت عليها والمشروع مرفق




الملفات المرفقة
.zip   مواقيت الصلاة في القاهرة اليوم.zip (الحجم : 94.93 ك ب / التحميلات : 25)
الرد }}}
تم الشكر بواسطة:
#4
بعد رؤية الصورة
كانت الصورة لوحدها تكفي
ولكن حسباً حتى لا يحدث اى اخطاء معك
تم الاطلاع على السورس ولتجنباً من اخطاء ضغط الزر قبل اتمام تحميل الصفحة
وايضاً الاسطر التى لا تحتوى على اى نصوص

تم حلها جميعها فى الكود التالى
فقط استخدم الكود داخل الزر
كود :
       ListBox1.Items.Clear()
       If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
           Dim input As HtmlElementCollection
           input = WebBrowser1.Document.GetElementsByTagName("div")
           For Each item As HtmlElement In input
               If item.GetAttribute("className").Contains("col6 prayertable mobile") Then
                   Dim GetItem_ As String() = item.InnerText.Split(vbNewLine)
                   For ii As Integer = 0 To GetItem_.Length - 1
                       If GetItem_(ii).Count > 1 Then
                           ListBox1.Items.Add(GetItem_(ii))
                       End If
                   Next
               End If
           Next
       End If

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابو روضة
#5
(16-07-18, 01:19 AM)elgokr كتب :
بعد رؤية الصورة
كانت الصورة لوحدها تكفي
ولكن حسباً حتى لا يحدث اى اخطاء معك
تم الاطلاع على السورس ولتجنباً من اخطاء ضغط الزر قبل اتمام تحميل الصفحة
وايضاً الاسطر التى لا تحتوى على اى نصوص

تم حلها جميعها فى الكود التالى
فقط استخدم الكود داخل الزر
كود :
       ListBox1.Items.Clear()
       If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
           Dim input As HtmlElementCollection
           input = WebBrowser1.Document.GetElementsByTagName("div")
           For Each item As HtmlElement In input
               If item.GetAttribute("className").Contains("col6 prayertable mobile") Then
                   Dim GetItem_ As String() = item.InnerText.Split(vbNewLine)
                   For ii As Integer = 0 To GetItem_.Length - 1
                       If GetItem_(ii).Count > 1 Then
                           ListBox1.Items.Add(GetItem_(ii))
                       End If
                   Next
               End If
           Next
       End If

تحياتى لك
وتمنياتى لك التوفيق


روح يا شيخ الله يسعدك ويبارك بعمرك وعلمك...


نجحت فعلا أخى
الرد }}}
تم الشكر بواسطة: elgokr
#6
الحمد لله والحمد لله على كل حال

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 145 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 441 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم
  كيف اجعل قيمة dateTimePicker2 تساوي dateTimePicker1 Adel27213 2 280 09-11-23, 09:07 PM
آخر رد: Adel27213
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  [VB.NET] كيف اجعل البرنامج يحدد اخر يوم من كل شهر Adel27213 2 361 03-11-23, 06:50 AM
آخر رد: Adel27213
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 909 11-10-23, 10:35 PM
آخر رد: aljzazy
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,621 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023
  هل ممكن اجعل عناصر ال LISTBOX بشكل افقي ismaeel 0 380 01-05-23, 11:26 PM
آخر رد: ismaeel

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


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