首页 > 代码库 > 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
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。