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

Follow Instagram @kompasianacom juga Tiktok @kompasiana biar nggak ketinggalan event seru komunitas dan tips dapat cuan dari Kompasiana. Baca juga cerita inspiratif langsung dari smartphone kamu dengan bergabung di WhatsApp Channel Kompasiana di SINI