B4A ListView 控件加载本地图片及网页图片
Demo展示：一、我们先运行 B4A 开发工具，保存名为 ListView.b4a 的项目文件，如图所示：
二、接着我们在 B4A 开发工具的菜单中点击“布局设计”——“打开布局设计”，弹出“可视化设计器”，保存名为“LayListView”的窗体布局文件，并在设计器中添加 ListView 控件并保存：
三、添加好 ListView 控件后我们可以开始编写代码了（这里可以用拖拉的方式，设置 ListView 控件的位置及大小，在这里我们代码实现）。
1.在“可视化设计器”中单击我们已经添加的 ListView 控件，鼠标右键“生成（目标：Main）”——“Dim ListView1 As ListView”，点击后会在默认 Main中的“Sub Globals” 过程中自动生成定义变量代码，其实可以不用这么麻烦，我在这打这么多字，或许你们早定义好了：
2.接着我们在“Activity_Create”过程中编写代码，其实了解几个方法或属性的用途就不难了，具体看下面代码中的注释：
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
'加载布局
Activity.LoadLayout("LayListView")
'设置ListView1控件的属性
'默认方式
ListView1.Left = 0
ListView1.Top= 0
ListView1.Width = 100%x '宽设置为屏幕宽
ListView1.Height = 200dip
ListView1.AddSingleLine("ListView 单行文字演示")
'ListView1.Color = Colors.Blue
ListView1.AddSingleLine2("ListView 单行文字演示二",1)
ListView1.AddTwoLines("ListView 两行文字演示第一行","ListView 两行文字演示第二行")
ListView1.Height = 360dip
ListView1.AddTwoLines2("ListView 两行文字演示二第一行","ListView 两行文字演示二第二行",2)
ListView1.AddTwoLinesAndBitmap("ListView 控件使用例程第一行","ListView 两行文字带图片第二行默认一",LoadBitmap(File.DirAssets, "BFSoft.png"))
ListView1.AddTwoLinesAndBitmap2("ListView 控件使用例程第一行","ListView 两行文字带图片第二行默认二",LoadBitmap(File.DirAssets, "BFSoft.png"),3)
End Sub
上面代码中有个地方要注意，我们怎么添加本地图片文件，我们先点开“文件管理器”，直接点击“文件管理器”左下角“添加文件”直接添加或鼠标右键“添加文件”，当点击后就可以添加喜欢的图片了，添加后“文件管理器”会自动加进来，此图片文件同时会在项目文件夹的"Files"文件夹生成同名称的片：
3.现在我们来看看如何实现 ListView 控件加载网页图片，我们先把网页操作类库 OkHttpUtils2 添加进来：
提醒：经测试 OkHttp 类库，感觉没用
'加载网络图片，必须添加 OkHttpUtils2 类库
Dim job As HttpJob '定义局部变量
Dim Url As String = "https://www.wgbcw.com/data/attachment/common/e3/common_34_icon.png"
job.Initialize("",Me)
job.Download(Url)
Wait For (job) JobDone(job As HttpJob)
If job.Success Then
'ListView1.SetBackgroundImage(job.GetBitmap)
ListView1.Height = 420dip
ListView1.AddTwoLinesAndBitmap("ListView 加载网络图片演示","第二行",job.GetBitmap)
End If
job.Release
上面加载网页图片是固定模式，没啥好说的，记住怎么用就好！以后碰到用到 OkHttpUtils2 类库的地方还会祥细说明。
页:
[1]