1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Me.lbl_id.Text =Â "1"
Me.lbl_title.Text = article(0)
Me.lbl_content.Text = article(1)
Â
Dimcategory()Â AsString= article(2).Split(",")
Dimtxt_categories AsString= ""
ForEachval AsIntegerIncategory
   If(val < categories.Length - 1) Then
     txt_categories &= categories(val - 1) & ", "
   Else
     txt_categories &= categories(val - 1)
   EndIf
Next
Â
Me.lbl_categories.Text = txt_categories
Â
Dan inilah hasil akhir output dari programnya
Baca konten-konten menarik Kompasiana langsung dari smartphone kamu. Follow channel WhatsApp Kompasiana sekarang di sini: https://whatsapp.com/channel/0029VaYjYaL4Spk7WflFYJ2H