Sub Parser_EndElement(Uri As String, Name As String, Text As StringBuilder)
If Parser.Parents.IndexOf("item") > -1 Then
If Name = "title" Then
Title = Text.ToString
Else If Name = "link" Then
Link = Text.ToString
Else If Name = "pubdate" Then
PubDate = Text.ToString
Else If Name = "description" Then
Description = Text.ToString
Else If Name = "pubDate" Then
PubDate = Text.ToString
End If
End If
If Name = "item" Then
ListView1.AddTwoLines2(Title , PubDate, Description)
Label2 = ListView1.TwoLinesLayout.Label
Label2.TextSize = 15
Label2.Left = Label2.width - 5dip
Label2.TextColor = Colors.White
End If
End Sub
Sub ListView1_ItemClick(Position As Int, Value As Object)
Str1 = Value
StartActivity(newstext)
End Sub
و یه اکتیویتی دیگه دارم که متن خبر توی اون نمایش داده میشه
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Activity.LoadLayout("newstext")
WebView1.LoadHtml(""&chargenews.Str1)
font = Typeface.LoadFromAssets("btraffic.ttf")
label1.Typeface = font
End Sub
Sub Button1_Click
Msgbox2(chargenews.PubDate,"تاریخ مطلب","خُب","","",Null)
End Sub
خب من الان میخوام pubdate مرتبط با هر خبر (هر آیتم لیست ویوو ) توی اکتیویتی بعد نمایش داده بشه ولی فقط pubdate آیتم آخر لیست ویوو نمایش داده میشه
سوال
developer_boy 1
سلام به دوستان انجمن
من دارم روی یه برنامه خبرخوان کار میکنم
این هم قسمتی از کدهام هست
و یه اکتیویتی دیگه دارم که متن خبر توی اون نمایش داده میشه
خب من الان میخوام pubdate مرتبط با هر خبر (هر آیتم لیست ویوو ) توی اکتیویتی بعد نمایش داده بشه ولی فقط pubdate آیتم آخر لیست ویوو نمایش داده میشه
چطور میتونم این مشکل رو برطرف کنم؟
ممنون
لینک ارسال
به اشتراک گذاری در سایت های دیگر
0 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.