栋栋的个人博客

Access-控件解析-列表框-02-获取选项

  • 1014 字

Part 1：本篇目标

  1. 本篇介绍的控件为：列表框。涉及功能为：后台获取用户的选择项
  2. UI界面存在大量与用户互动的部分，根据客户不同的选择展现不同的信息

功能动图

图片

静图

图片

Part 2：代码

控件关联代码

1
2
3
4
5
6
7
8
Private Sub 获取姓名信息_Click()
    frmName = Me.Name
    ctrlName = "List0"
    colNum = 1

    x = 获取列表框选项(frmName, ctrlName, colNum)
    MsgBox "选择姓名为：" & x
End Sub

核心函数：获取不同列，改变***colNum***值即可

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function 获取列表框选项(frmName, ctrlName, colNum)        Rem>>
    Dim frm        
    Dim ctrl        
    Dim chooseRow        
    Set frm = Forms(frmName)        
    Set ctrl = frm.Controls(ctrlName)
    chooseRow = ctrl.ListIndex 'listIndex 计数不包括标题行

    'ListBox.Column(Index, Row)，Index表示列信息，Row表示行信息，都是从0开始
    If chooseRow >= 0 Then
        获取列表框选项 = ctrl.Column(colNum - 1, chooseRow + 1)        
    Else
        获取列表框选项 = "未选中"
    End IfEnd Function

代码截图

图片

Part 3：部分代码解读

  1. chooseRow = ctrl.ListIndex，注意是否设置列标题选项，在计数时，是不包括列标题的

  2. ListBox.Column(Index, Row)，列表框可以看成一个Excel表格，不同的是

    • 行和列都是从0开始计数
    • 与Excel中不同的是，先是列再是行，格式：（列，行）

ListBox.Column官方解读

图片

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