VB开发安卓程序_例程16列表控件ListView的使用

运行截图

Main窗体代码如下

#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
	'这里声明的全局变量在应用启动时被使用。
	'这里声明的变量能被所有模块使用。

End Sub

Sub Globals
	'这里的声明的全局变量在Activity 创建时声明。
	'这里声明的变量只能在此模块使用。

	Dim ListView1  As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)

	'如果不需要事件，初始化时，填写空白就行
	ListView1.Initialize("MyListView")
	ListView1.Height = 20dip
	ListView1.Color = Colors.LightGray
	For i = 0 To 20 

		ListView1.AddSingleLine("Test  "&i)
		
	Next
	
	Activity.AddView(ListView1,0,0,100%x,100%y)

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


'短按列表控件
Sub MyListView_ItemClick (Position As Int, Value As Object)
	ToastMessageShow("短按列表控件",False)
End Sub

'长按列表控件
Sub MyListView_ItemLongClick (Position As Int, Value As Object)
	ToastMessageShow("长按列表控件",False)
End Sub