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
سلام به دوستان انجمن
من دارم روی یه برنامه خبرخوان کار میکنم
این هم قسمتی از کدهام هست
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 SubSub 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 آیتم آخر لیست ویوو نمایش داده میشه
چطور میتونم این مشکل رو برطرف کنم؟
ممنون
لینک ارسال
به اشتراک گذاری در سایت های دیگر
0 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.