ListView 控件是一个非常强大的控件. 它可以以非常雅致的方式来显示长的或者短的列表. Code: Sub Globals Dim ListView1 As ListView End Sub Sub Activity_Create(FirstTime As Boolean) ListView1.Initialize('ListView1') For i = 1 To 300 ListView1.AddSingleLine('Item #' & i) Next Activity.AddView(ListView1, 0, 0, 100%x, 100%y) End Sub Sub ListView1_ItemClick (Position As Int, Value As Object) Activity.Title = Value End Sub
Code: Dim Bitmap1 As Bitmap Bitmap1.Initialize(File.DirAssets, 'button.gif') For i = 1 To 300 ListView1.AddSingleLine('Item #' & i) ListView1.AddTwoLines('Item #' & i, 'This is the second line.') ListView1.AddTwoLinesAndBitmap('Item #' & i, 'This is the second line.', Bitmap1) Next 我们可以给不同的项目设置不同的位图. 请注意这个代码载入一个叫button.gif的图形文件. 这个文件应该被加入到Files页面(在IDE的右面板). 你可以从本文的附件里面下载这个工程. Code: ListView1.SingleLineLayout.ItemHeight = 100dip ListView1.SingleLineLayout.Label.TextSize = 20 ListView1.SingleLineLayout.Label.TextColor = Colors.Blue ListView1.SingleLineLayout.Label.Gravity = Gravity.CENTER For i = 1 To 300 ListView1.AddSingleLine('Item #' & i) ListView1.AddTwoLines('Item #' & i, 'This is the second line.') ListView1.AddTwoLinesAndBitmap('Item #' & i, 'This is the second line.', Bitmap1) Next 结果如图: Code: ListView1.SingleLineLayout.ItemHeight = 100dip Dim?label1 As Label label1 = ListView1.SingleLineLayout.Label 'set the label to the model label. label1.TextSize = 20 label1.TextColor = Colors.Blue label1.Gravity = Gravity.CENTER 你可以采用类似的方法来改变其他类型的外观. Code: Dim GD As GradientDrawable GD.Initialize('TR_BL', Array As Int(Colors.Gray,Colors.LightGray)) Activity.Background = GD ListView1.ScrollingBackgroundColor = Colors.Transparent 提示 Code: ListView1.FastScrollEnabled = true
|
|