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

微信公众号原文

系统：Windows 7
软件：Excel 2010 / Access 2010

• 这个系列介绍常用的控件
• 包括在界面端的设置及在代码端的实现

Part 1：本篇目标

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

功能动图

1.gif

静图

3.png

Part 2：代码

控件关联代码

Private Sub 获取姓名信息_Click()
    frmName = Me.Name
    ctrlName = "List0"
    colNum = 1
    
    x = 获取列表框选项(frmName, ctrlName, colNum)
    MsgBox "选择姓名为：" & x

End Sub

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

Function 获取列表框选项(frmName, ctrlName, colNum)
    Rem>>单选识别
    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 If

End Function

代码截图

2.png

Part 3：部分代码解读

1. chooseRow = ctrl.ListIndex，注意是否设置列标题选项，在计数时，是不包括列标题的
2. ListBox.Column(Index, Row)，列表框可以看成一个Excel表格，不同的是

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

** ListBox.Column官方解读**

1.png

• 本文为原创作品，如需转载，可加小编微信号learningBin

---

更多精彩，请关注微信公众号
扫描二维码，关注本公众号

公众号底部二维码.jpg