安卓开发之B4A(VB)自定义视图列表(仿QQ空间说说)

xCustomListView  
XUI
JavaObject

#Region  Project Attributes 
  #ApplicationLabel: 列表视图
  #VersionCode: 1
  #VersionName: 
  'SupportedOrientations possible values: unspecified, landscape or portrait.
  #SupportedOrientations: portrait
  #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
  #FullScreen: False
  #IncludeTitle: False
#End Region

Sub Process_Globals
  Private xui As XUI

End Sub

Sub Globals
  Private L_bbs As B4XView
  Private L_cont As B4XView
  Private L_good As B4XView
  Private L_more As B4XView
  Private L_share As B4XView
  Private L_subtitle As B4XView
  Private L_title As B4XView
  Private L_view As B4XView
  Private logo_img As B4XView
  Private ls_v As CustomListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
  Activity.LoadLayout("main")
  add_listview
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub add_listview
  ls_v.Clear
  Dim i As Int=0
  DateTime.DateFormat="yyyy-MM-dd HH:mm:ss"
  ''创建列表
  For i = 0 To 29
    ls_v.Add(Create_card("VB小源码" & i,DateTime.Date(DateTime.Now),"内容",i+1,"logo.jpg"),"")
  Next
  
End Sub

''创建卡片
Private Sub Create_card(Title As String, subtitle As String, Content As String,ct As Int,Image As String) As Panel
  Dim p As B4XView = xui.CreatePanel("")
  p.SetLayoutAnimated(0, 0, 0, ls_v.AsView.Width, 200dip)
  p.LoadLayout("ls_ss")
  L_title.Text = Title
  L_subtitle.Text = subtitle
  'L_cont.Text=Content
  L_view.Text="浏览" &  ct &"次"
  SetColorStateList(L_view, xui.Color_LightGray, L_view.TextColor)
  SetColorStateList(L_good, xui.Color_LightGray, L_good.TextColor)
  SetColorStateList(L_cont, xui.Color_LightGray, L_cont.TextColor)
  SetColorStateList(L_share, xui.Color_LightGray, L_share.TextColor)
  SetColorStateList(L_bbs, xui.Color_LightGray, L_bbs.TextColor)
  SetColorStateList(L_more, xui.Color_LightGray, L_more.TextColor)
  logo_img.SetBitmap(xui.LoadBitmapResize(File.DirAssets, Image, logo_img.Width, logo_img.Height, True))
  Return p
End Sub

''设置标签按钮状态
Sub SetColorStateList(Btn As Label,Pressed As Int,Enabled As Int)
  Dim States(2,1) As Int
  States(0,0) = 16842919    
  States(1,0) = 16842910   
  Dim CSL As JavaObject
  CSL.InitializeNewInstance("android.content.res.ColorStateList",Array(States,Array As Int(Pressed, Enabled)))
  Dim B1 As JavaObject = Btn
  B1.RunMethod("setTextColor",Array As Object(CSL))
End Sub


Sub L_view_Click
  
End Sub

Sub L_title_Click
  
End Sub

Sub L_subtitle_Click
  
End Sub

Sub L_share_Click
  
End Sub

Sub L_more_Click
  
End Sub

Sub L_good_Click
  
End Sub

Sub L_cont_Click
  
End Sub

Sub L_bbs_Click
  
End Sub

https://vbee.lanzous.com/iSHrOdo4fxe