ورود

View Full Version : حرفه ای: نمايش كل متن توسط rss . دوستان كمك كنيد ضروريه


elimiz
شنبه 19 آذر 1390, 15:56 عصر
سلام دوستان. اسن سورسي كه اينجا گذاشتم. يك ادرس رو ميگيره و تعداد مطالبي رو كه در rss هست نشون ميده.
اما فقط تايتل لينك هارو نشون ميده.
من ميخوام وقتي روي هر يك از متن ها كليك ميكني كل اون متن يا پست رو در listbox2 سمت راست نمايش بده
هر كس ميتونه كمك كنه دريغ نكنه
با تشكر

دانلود پروژه (http://facebox.ir/Rss%20vb.zip)

عكس برنامه:


http://barnamenevis.org/attachment.php?attachmentid=79001&d=1323521051

سورس:
Private Sub Command1_Click()
Set rss = CreateObject("msxml2.domdocument")
rss.async = False
rss.Load ("http://8roody.blogfa.com/rss.aspx")
List1.Clear
Me.Refresh
Set myItem = rss.getElementsByTagName("item")

For I = 0 To myItem.length - 1
List1.AddItem myItem(I).getElementsByTagName("title").Item(0).firstChild.nodeValue
Next I


End Sub

Private Sub Form_Load()

End Sub
elimiz
شنبه 19 آذر 1390, 17:30 عصر
يه چيزايي هم بهش اضافه كردم اما اصل كاري مونده.
تاريخ ارسال پست
نوسنده
موضوع
ادرس پست

Private Sub Command1_Click()
Set rss = CreateObject("msxml2.domdocument")
rss.async = False
rss.Load ("http://8roody.blogfa.com/rss.aspx")
List1.Clear
Me.Refresh
Set myItem = rss.getElementsByTagName("item")

For I = 0 To myItem.length - 1
List1.AddItem myItem(I).getElementsByTagName("title").Item(0).firstChild.nodeValue
' List1.AddItem myItem(I).getElementsByTagName("category").Item(0).firstChild.nodeValue
List1.AddItem myItem(I).getElementsByTagName("pubDate").Item(0).firstChild.nodeValue
List1.AddItem myItem(I).getElementsByTagName("link").Item(0).firstChild.nodeValue
List1.AddItem myItem(I).getElementsByTagName("description").Item(0).firstChild.nodeValue
Next I


End Sub
elimiz
شنبه 19 آذر 1390, 23:33 عصر
يا ميشه كاري كرد كه با كليك روي هر يك از متن هاي سمت چپ. لينك مطلب در web browser باز بشه ؟
محسن واژدی
یک شنبه 20 آذر 1390, 08:47 صبح
سلام
سورس زیر را بررسی کنید

موفق باشید
elimiz
یک شنبه 20 آذر 1390, 19:52 عصر
سلام اقاي واژدي
ارور ميده كامپايل نميشه
اگر امكان داره يه نگا بهش بكنين
بخدا بدجوري لنگ اين برنامه هستم
دستت درد نكنه
فدات
محسن واژدی
یک شنبه 20 آذر 1390, 21:08 عصر
سلام
دو اعلان زیر را به ابتدای ماژول فرم اضافه کنید:

Private rss As New MSXML2.DOMDocument
Private myItem


موفق باشید
elimiz
یک شنبه 20 آذر 1390, 23:04 عصر
سلام اقاي واژدي واقعا دستت درد نكنه
فدات داداش