B4A ListView 控件加载本地图片及网页图片

Demo展示：


一、我们先运行 B4A 开发工具，保存名为 ListView.b4a 的项目文件，如图所示：





二、接着我们在 B4A 开发工具的菜单中点击“布局设计”——“打开布局设计”，弹出“可视化设计器”，保存名为“LayListView”的窗体布局文件，并在设计器中添加 ListView 控件并保存：





三、添加好 ListView 控件后我们可以开始编写代码了（这里可以用拖拉的方式，设置 ListView 控件的位置及大小，在这里我们代码实现）。
1.在“可视化设计器”中单击我们已经添加的 ListView 控件，鼠标右键“生成（目标：Main）”——“Dim ListView1 As ListView”，点击后会在默认 Main中的“Sub Globals” 过程中自动生成定义变量代码，其实可以不用这么麻烦，我在这打这么多字，或许你们早定义好了：

利用设计器在代码窗口中定义 ListView控件

定义变量的代码位置

2.接着我们在“Activity_Create”过程中编写代码，其实了解几个方法或属性的用途就不难了，具体看下面代码中的注释：

[Visual Basic] 纯文本查看 复制代码

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 类库，感觉没用

[Visual Basic] 纯文本查看 复制代码

'加载网络图片，必须添加 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 类库的地方还会祥细说明。