Thx for your help. The test code is here....
'Activity module test ListView
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim ListView1 As ListView
Dim listview2 As ListView
Dim listview3 As ListView
Dim canvas1 As Canvas
Dim rect1 As Rect
Dim width,height As Int
Dim a As String
Dim b As String
Dim c As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
width = 100%x
height = 100%x
canvas1.Initialize(Activity)
rect1.Initialize(0, height, width, height+45%x)
ListView1.Initialize("ListView1")
listview2.Initialize("ListView2")
listview3.Initialize("ListView3")
ListView1.AddSingleLine("a")
ListView1.AddSingleLine("b")
ListView1.AddSingleLine("c")
ListView1.AddSingleLine("d")
ListView1.AddSingleLine("e")
ListView1.AddSingleLine("f")
ListView1.AddSingleLine("g")
ListView1.AddSingleLine("h")
ListView1.AddSingleLine("i")
ListView1.AddSingleLine("j")
ListView1.AddSingleLine("k")
ListView1.AddSingleLine("l")
ListView1.AddSingleLine("m")
ListView1.AddSingleLine("n")
ListView1.AddSingleLine("o")
ListView1.AddSingleLine("p")
ListView1.AddSingleLine("q")
ListView1.AddSingleLine("r")
ListView1.AddSingleLine("s")
ListView1.AddSingleLine("t")
listview2.AddSingleLine("1")
listview2.AddSingleLine("2")
listview2.AddSingleLine("3")
listview2.AddSingleLine("4")
listview2.AddSingleLine("5")
listview2.AddSingleLine("6")
listview2.AddSingleLine("7")
listview2.AddSingleLine("8")
listview2.AddSingleLine("9")
listview2.AddSingleLine("10")
listview2.AddSingleLine("11")
listview2.AddSingleLine("12")
listview2.AddSingleLine("13")
listview2.AddSingleLine("14")
listview2.AddSingleLine("15")
listview2.AddSingleLine("16")
listview2.AddSingleLine("17")
listview2.AddSingleLine("18")
listview3.AddSingleLine("2554")
listview3.AddSingleLine("2555")
listview3.AddSingleLine("2556")
listview3.AddSingleLine("2557")
listview3.AddSingleLine("2558")
listview3.AddSingleLine("2559")
listview3.AddSingleLine("2560")
listview3.AddSingleLine("2561")
listview3.AddSingleLine("2562")
listview3.AddSingleLine("2563")
listview3.AddSingleLine("2564")
listview3.AddSingleLine("2565")
listview3.AddSingleLine("2566")
listview3.AddSingleLine("2567")
listview3.AddSingleLine("2568")
listview3.AddSingleLine("2569")
listview3.AddSingleLine("2570")
listview3.AddSingleLine("2571")
listview3.AddSingleLine("2572")
listview3.AddSingleLine("2573")
listview3.AddSingleLine("2574")
listview3.AddSingleLine("2575")
listview3.AddSingleLine("2576")
listview3.AddSingleLine("2577")
Activity.AddView(ListView1, 0, height, 80dip,height+45%x )
Activity.AddView(listview2, 150dip, height, 40dip, height+45%x)
Activity.AddView(listview3, 200dip, height, 80dip, height+45%x)
' if less than 45%x the black rect1 area not include to the bottom
ListView1.SingleLineLayout.ItemHeight = 38
listview2.SingleLineLayout.ItemHeight = 38
listview3.SingleLineLayout.ItemHeight = 38
Draw
End Sub
Sub Draw
Activity.Invalidate
canvas1.DrawColor(Colors.White)
canvas1.DrawRect(rect1, Colors.Black, True, 5dip)
canvas1.DrawLine(0,0,width,height,Colors.Red,2dip)
canvas1.DrawLine(width/2-width/8,0,width/2-width/8,height,Colors.Red,2dip)
canvas1.DrawLine(width/2+width/8,0,width/2+width/8,height,Colors.Red,2dip)
canvas1.DrawLine(0,width/2-width/8,width,width/2-width/8,Colors.Red,2dip)
canvas1.DrawLine(0,width/2+width/8,width,width/2+width/8,Colors.Red,2dip)
canvas1.DrawText(a, width/2-width/25, height/2+height/15, Typeface.DEFAULT, 20, Colors.Red, "CENTER")
canvas1.DrawText(b, width/2, height/2+height/15, Typeface.DEFAULT, 20, Colors.Red, "CENTER")
canvas1.DrawText(c, width/2+width/3, height/2+height/15, Typeface.DEFAULT, 20, Colors.Red, "CENTER")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
'Activity.Title = Value
a = Value
Draw
End Sub
Sub ListView2_ItemClick (Position As Int, Value As Object)
'Activity.Title = Value
b = Value
Draw
End Sub
Sub ListView3_ItemClick (Position As Int, Value As Object)
'Activity.Title = Value
c = Value
Draw
End Sub
'************************************
I use AVD233 and AVD31 honeycomb of Galaxy tab 10.1 . But I cant reach the item below by scrolling.