Basic4Android的listview控件高级应用

#Region Project Attributes #ApplicationLabel: B4A Example #VersionCode: 1 #VersionName: 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: unspecified #CanInstallToExternalStorage: False #End Region #Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region 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 'Activity变量.变量的生存期与这个activity一致. 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. ToastMessageShow("程序成功启动","true") Dim myNumber As Int Dim EditText1As EditText Dim Label1As Label Dim arr(3) As Int Dim listView1As listView End Sub Sub Activity_Create(FirstTime As Boolean) '当activity建立后,就会调用这个子程.当设备的配置发生变化时(用户转动设备),这个activity就会被销毁.这个子程应该用来载入或者建立layout 'Do not forget to load the layout file created with the visual designer. For example: 'Activity.LoadLayout("Layout1") Activity.LoadLayout("main") ToastMessageShow("初始化完成","true") myNumber=Rnd(1,100) For i = 1To3 arr(0)=i*1 arr(1)=i*2 arr(2)=i*3 Next Log(arr(0)) Log(arr(1)) Log(arr(2)) listView1.Initialize("ListView1") Dim Bitmap1 As Bitmap 'Bitmap1.InitializeMutable(100%x,100%y) 'Bitmap1.InitializeSample(File.DirAssets,"Lighthouse.jpg",300,100) Bitmap1.Initialize(File.DirAssets,"Lighthouse.jpg") For i=1To20 ListView1.AddSingleLine("产品展示编号:" & i) ListView1.AddTwoLines("序号:" & i,"内部的序号") ListView1.AddTwoLinesAndBitmap("图片:" & i,"图片仅供参考",Bitmap1) Next ListView1.TwoLinesAndBitmap.ItemHeight=200dip ListView1.TwoLinesAndBitmap.Label.Height=30dip ListView1.TwoLinesAndBitmap.ImageView.Width=200dip ListView1.TwoLinesAndBitmap.ImageView.Height=200dip ListView1.TwoLinesAndBitmap.Label.Gravity=Gravity.CENTER ListView1.TwoLinesAndBitmap.SecondLabel.Gravity=Gravity.CENTER ListView1.TwoLinesAndBitmap.ImageView.Gravity=Gravity.CENTER ListView1.FastScrollEnabled=True Activity.AddView(ListView1,0,0,100%x,100%y) End Sub Sub Activity_Resume '当Activity_Create完成后会立刻调用Activity_Resume.另外就是当继续一个暂停的activity也会调用它 (被切换到后台的activity又被切换到前台). '注意:当你打开一个不同的activity时 (通过调用 StartActivity),当前的进程首先被 暂停,然后另外的activity将被建立(如果需要的话 ),然后当前进程会继续执行(总是这样). End Sub Sub Activity_Pause (UserClosed As Boolean) '每次当activity从前台转换到后台时就会调用 Activity_Pause子程. '当Activity 在前台时,但是配置发生变化时 (这会导致activity暂停并被销毁), 也会调用Activity_Pause子程. End Sub Sub makenum(a As Int) a=123 End Sub Sub Button1_Click If EditText1.Text > myNumber Then ToastMessageShow("你猜的数字太大了",False) Label1.Text="太大了" Else If EditText1.Text < myNumber Then ToastMessageShow("你猜的数字太小了",False) Label1.Text="太小了" Else ToastMessageShow("恭喜你答对了",False) makenum(EditText1.Text) Label1.Text="答对" End If EditText1.SelectAll End Sub Sub Button1_LongClick ToastMessageShow("what are you doing!",False) End Sub Sub Button2_Click Dim list1 As List list1.Initialize list1.Add(1) list1.Add("nihao") list1.Add("hello") Msgbox(list1.Get(1),"测试") For i = 0To Activity.NumberOfViews - 1 Dim v As View v=Activity.GetView(i) If v Is Button Then v.Enabled=False End If Next End Sub Sub ListView1_ItemClick (Position As Int, Value As Object) Activity.Title=Value End Sub