لیست ویو تک خطی و دو خطی-یکی در میان...

[shahab.es 5,429]

سلام دوستان

به ازای مقادیر زوج شمارنده حلقه، لیست تک خطی و برای مقادیر فرد، لیست دو خطی داریم...

Sub Activity_Create(FirstTime As Boolean)
	Dim lv As ListView
	lv.Initialize("lv")
	Activity.AddView(lv,0,0,100%x,100%y)
	For i = 0 To 1100
		AddItem(lv,"firstTitle "& i,"secondTitle "& i,i)
	Next
End Sub

Sub AddItem(myListView As ListView , title As String ,secondTitle As String ,position As Int)
	If position mod 2 = 0 Then
		myListView.AddSingleLine2(title,position)
	Else
		myListView.AddTwoLines2(title,secondTitle,position)
	End If
End Sub