منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] عرض البيانات في لست فيو واحده - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] عرض البيانات في لست فيو واحده (/showthread.php?tid=19554)

الصفحات: 1 2

عرض البيانات في لست فيو واحده - tempman - 06-03-17

الكود يعرض البيانات في listview1 & listview2


برجاء تعديل الكود لعرض البيانات في لست فيو واحده ولتكن listview3 اليوزر والباس
بدلا ان يكون اليوزر في لست فيو 1 والباس في لست فيو 2

Huh


RE: عرض البيانات في لست فيو واحده - sendbad100 - 07-03-17

السلام عليكم ورحمة الله وبركاته 


جرب التالي 

PHP كود :
Private Sub Command1_Click()

Set iDoc = WebBrowser1.Document
For Each element In iDoc.getElementsByTagName("td")
  If element.className = "1" Then Set li = ListView3.ListItems.Add(, , element.innerText)
 If element.className = "2" Then li.SubItems(1) = element.innerText

Next
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://onlyformessage.000webhostapp.com/2.htm"
End Sub 


RE: عرض البيانات في لست فيو واحده - sendbad100 - 07-03-17

جرب التالي 


PHP كود :
Private Sub Command1_Click()

Set iDoc = WebBrowser1.Document
For Each element In iDoc.getElementsByTagName("td")
  If element.className = "2" Then Set li = ListView3.ListItems.Add(, , element.innerText)
 If element.className = "1" Then li.SubItems(1) = element.innerText

Next
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://onlyformessage.000webhostapp.com/2.htm"
End Sub 


RE: عرض البيانات في لست فيو واحده - tempman - 07-03-17

(07-03-17, 12:56 AM)sendbad100 كتب : جرب التالي 


PHP كود :
Private Sub Command1_Click()

Set iDoc = WebBrowser1.Document
For Each element In iDoc.getElementsByTagName("td")
  If element.className = "2" Then Set li = ListView3.ListItems.Add(, , element.innerText)
 If element.className = "1" Then li.SubItems(1) = element.innerText

Next
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://onlyformessage.000webhostapp.com/2.htm"
End Sub 
ظهور خطأ li.SubItems(1) = element.innerText

RE: عرض البيانات في لست فيو واحده - tempman - 07-03-17

برجاء تصحيح الخطأ بالكود

RE: عرض البيانات في لست فيو واحده - sendbad100 - 07-03-17

اخي الكريم

لم اعرف ما المشكلة

ضع المثال

وربك يسهل

RE: عرض البيانات في لست فيو واحده - tempman - 07-03-17

(07-03-17, 02:18 PM)sendbad100 كتب : اخي الكريم  

لم اعرف ما المشكلة

ضع المثال

وربك يسهل

تم ارفاق المثال في الاعلى
Shy

RE: عرض البيانات في لست فيو واحده - sendbad100 - 07-03-17

السلام عليكم

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

RE: عرض البيانات في لست فيو واحده - sendbad100 - 07-03-17

السلام عليكم


تفضل

RE: عرض البيانات في لست فيو واحده - tempman - 07-03-17

(07-03-17, 05:58 PM)sendbad100 كتب : السلام عليكم


تفضل

لقد بذلت جهد تشكر عليه ولكن قمت بعكس  اسماء ال column headrs ال (1) لازم يكون password والثاني username 
كالتالي تماما