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

微信公众号原文

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

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

Part 1:本篇目标

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

功能动图

Access-控件解析-列表框-02-获取选项_第1张图片
1.gif

静图

Access-控件解析-列表框-02-获取选项_第2张图片
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

代码截图

Access-控件解析-列表框-02-获取选项_第3张图片
2.png

Part 3:部分代码解读

  1. chooseRow = ctrl.ListIndex,注意是否设置列标题选项,在计数时,是不包括列标题的
  2. ListBox.Column(Index, Row),列表框可以看成一个Excel表格,不同的是
  • 行和列都是从0开始计数
  • 与Excel中不同的是,先是列再是行,格式:(列,行)

** ListBox.Column官方解读**


Access-控件解析-列表框-02-获取选项_第4张图片
1.png
  • 本文为原创作品,如需转载,可加小编微信号learningBin

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

Access-控件解析-列表框-02-获取选项_第5张图片
公众号底部二维码.jpg

你可能感兴趣的:(Access-控件解析-列表框-02-获取选项)