前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >安卓开发之B4A(VB)自定义视图列表(仿QQ空间说说)

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

作者头像
一线编程
发布2020-06-18 16:31:35
2.3K0
发布2020-06-18 16:31:35
举报
文章被收录于专栏:办公魔盒

今天我们来一步步开发一个自定义列表视图(仿QQ空间说说).

一、首先,我们创建一个B4A应用,设置好相关的属性;

1.1.设置包名,随意即可

1.2.设置应用图标(先把文件放到应用目录files下),也是你喜欢咯

1.3.设置应用版本信息等属性(自己根据下图注释修改即可)

二、应用相关类库

代码语言:javascript
复制
xCustomListView  
XUI
JavaObject

三、主界面布局设置

3.1.添加上边引用的类库视图

3.2.把图纸拉到覆盖底部深灰色部分

3.3.设置视图的相关属性(看图)

3.4.保存布局(main)主布局

四、列表界面布局设置(仿QQ空间说说)

4.1.创建一个新的布局

4.2.新建变体类型(320x200),把原来的变体类型删除掉,然后保存

4.3.然后往新布局里面添加控件

五、书写代码

代码语言:javascript
复制
#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

六、demo下载

代码语言:javascript
复制
https://vbee.lanzous.com/iSHrOdo4fxe
本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2020-06-14,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 办公魔盒 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档