دخول

**tempman**

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

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

بدلا ان يكون اليوزر في لست فيو 1 والباس في لست فيو 2

**sendbad100** · 07-03-17, 12:23 AM

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

جرب التالي

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 

**sendbad100** · 07-03-17, 12:56 AM

جرب التالي

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 

**tempman** · 07-03-17, 01:02 AM

(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

**tempman** · 07-03-17, 12:20 PM

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

**sendbad100** · 07-03-17, 02:18 PM

اخي الكريم

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

ضع المثال

وربك يسهل

**tempman** · 07-03-17, 03:05 PM

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

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

ضع المثال

وربك يسهل

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

**sendbad100** · 07-03-17, 04:04 PM

السلام عليكم

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

**sendbad100** · 07-03-17, 05:58 PM

السلام عليكم

تفضل

**tempman**

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

تفضل

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

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	[vb6.0] كيف احفظ الخيارات التي في القائمة في قاعدة البيانات نامل المساعدة في المثال المرفق ؟	Microformt	1	506	29-11-24, 04:05 AM آخر رد: justforit
	[VB.NET] إنشاء فولد ووضع نسخه به من قاعدة البيانات	AMRMOGA	1	416	17-11-24, 09:59 PM آخر رد: Taha Okla
	[vb6.0] تجميع البيانات في تقرير مفصل	Faisel	1	454	12-11-24, 11:49 PM آخر رد: السيد الغالي
	حفظ قيم مربعات الاختيار فى قاعدة البيانات واسترجاعها	haitham Muhammed	1	554	20-06-24, 02:01 AM آخر رد: Taha Okla
	نقل البيانات من جدولين مرتبطين الى جدول اخر بعد الفلترة	haitham Muhammed	0	484	29-04-24, 01:51 AM آخر رد: haitham Muhammed
	[vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات	haitham Muhammed	3	1,128	24-01-24, 01:51 PM آخر رد: haitham Muhammed
	عدم ضهور كل البيانات	فراس محي	1	627	15-12-23, 06:05 AM آخر رد: Taha Okla
	[vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع	Microformt	1	601	23-10-23, 12:11 AM آخر رد: Taha Okla
	نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات	haithamelareny	1	849	10-08-23, 11:54 PM آخر رد: ahmedabdelaliem
	[vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟	Microformt	1	973	27-07-23, 08:33 PM آخر رد: Taha Okla