栋栋的个人博客

Access-控件解析-列表框-03-向列表框录入信息

  • ~1.51K 字

目录

Part 1：本篇目标

  1. 本篇介绍的控件为：列表框。涉及功能为：向列表框中录入信息

功能动图

图片

静图

图片

目录

Part 2：代码

录入信息

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub btn_Click()
    arrTitle = Array("姓名", "性别", "年龄")
    arrContents1 = Array("张三", "男", 20)
    arrContents2 = Array("李四", "男")
    arrContents3 = Array(100)        
    Set ctrl = Me.Controls("List0")
    ctrl.RowSource = ""

    '加入标题
    inputContents = arrToStr(arrTitle)
    ctrl.AddItem inputContents    '加入内容
    inputContents = arrToStr(arrContents1)
    ctrl.AddItem inputContents

    inputContents = arrToStr(arrContents2)
    ctrl.AddItem inputContents

    inputContents = arrToStr(arrContents3)
    ctrl.AddItem inputContentsEnd Sub

代码截图

图片

数组转为字符串

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function arrToStr(arr)        '假设数组不为空
    op = ""
    If UBound(arr) = 0 Then
        op = arr(0)       
    Else
        For Each x In arr                        
            If op = "" Then
                op = x & ""
            Else
                op = op & ";" & x                       
            End If

        Next
    End If

    arrToStr = opEnd Function

代码截图

图片

清空列表框

1
2
3
4
Private Sub btn2_Click()        
    Set ctrl = Me.Controls("List0")
    ctrl.RowSource = ""
End Sub

代码截图

图片

目录

Part 3：部分代码解读

  1. ctrl.AddItem inputContents，向列表框一行一行加入信息，要求输入内容为字符串，不同列之间用**;**分开
  2. op = x & ""，将其它数据类型转为字符串，其实在本示例可以不使用，会自动转为字符串，可以手动测试一下

ListBox.AddItem官方解读

图片

本作品采用 知识共享署名-相同方式共享 4.0 国际许可协议 进行许可
, , , ,