首页 > 代码库 > Basic4Android中ListView组建的演示

Basic4Android中ListView组建的演示

#Region  Project Attributes 	#ApplicationLabel: ListViewTest	#VersionCode: 20140625	#VersionName: 	‘SupportedOrientations possible values: unspecified, landscape or portrait.	#SupportedOrientations: unspecified	#CanInstallToExternalStorage: False#End Region#Region  Activity Attributes 	#FullScreen: False	#IncludeTitle: True#End RegionSub Process_Globals	‘These global variables will be declared once when the application starts.	‘These variables can be accessed from all modules.	‘ 本工程修改于《basic4android 开发教程翻译(八)使用ListView 》End SubSub Globals	‘These global variables will be redeclared each time the activity is created.	‘These variables can only be accessed from this module.		Private lvwBrowser As ListView ‘ 声明组件End SubSub Activity_Create(FirstTime As Boolean)	‘Do not forget to load the layout file created with the visual designer. For example:	Activity.LoadLayout("1")	Dim gd As GradientDrawable ‘ 渐变效果类,GradientDrawable 支持使用渐变色来绘制图形		gd.Initialize("TOP_BOTTOM", Array As Int(Colors.Black , Colors.LightGray))		‘第一个参数定义渐变的方向,有下列值供选择	‘"TOP_BOTTOM" "顶部->底部" 	‘"TR_BL" (Top-Right To Bottom-Left) (右上->左下) 	‘"RIGHT_LEFT" "右->左" 	‘"BR_TL" (Bottom-Right To Top-Left) "BR_TL" (左下->右上) 	‘"BOTTOM_TOP" "底部->顶部" 	‘"BL_TR" (Bottom-Left To Top-Right) "BL_TR" (左下->右上) 	‘"LEFT_RIGHT" "左->右" 	‘"TL_BR" (Top-Left To Bottom-Right) (左上->到右下)		Activity.Background = gd ‘ Activity窗体背景使用渐变色效果		lvwBrowser.Width =100%x	lvwBrowser.ScrollingBackgroundColor = Colors.Transparent ‘ 纵向滚动条背景色=透明		lvwBrowser.Initialize ("lvwBrowser")	lvwBrowser.SingleLineLayout.Label.TextSize =20 ‘ 字体大小	lvwBrowser.SingleLineLayout.Label.TextColor = Colors.Green ‘ 字体颜色 	lvwBrowser.SingleLineLayout.Label.Gravity =Gravity.LEFT ‘ 字体显示位置	lvwBrowser.SingleLineLayout.ItemHeight = 60dip ‘ 行高度		lvwBrowser.TwoLinesLayout.Label.TextSize =20 ‘ 字体大小	lvwBrowser.TwoLinesLayout.Label.TextColor =Colors.Yellow ‘ 字体颜色		lvwBrowser.TwoLinesLayout.SecondLabel.TextSize =20 ‘ 字体大小	lvwBrowser.TwoLinesLayout.SecondLabel.TextColor =Colors.Red ‘ 字体颜色		lvwBrowser.FastScrollEnabled = True ‘ 快速滚动器		Dim BitmapIcon As Bitmap	BitmapIcon.Initialize(File.DirAssets, "1.png")	Dim i As Int 	For i=1 To 20				lvwBrowser.AddSingleLine("单行项(AddSingleLine) " & i)		lvwBrowser.AddTwoLines ("文本双行项(AddTwoLines)" & i," —— 第二行Text —— " & i)		lvwBrowser.AddTwoLinesAndBitmap("图形双行项" & i, " —— 第二行Text —— " & i,BitmapIcon)			Next	Activity.AddView(lvwBrowser, 0, 0, 100%x, 100%y)End SubSub Activity_ResumeEnd SubSub Activity_Pause (UserClosed As Boolean)End SubSub lvwBrowser_ItemClick (Position As Int, Value As Object)	‘ 参数 Position 是列表项目索引	‘ 参数 Value 	 是列表项目文本	Activity.Title = "( " & Position & " )" & "-" & Value	End Sub