版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/fourSeasonBeans/article/details/82054606
系统:Windows 7
软件:Excel 2010 / Access 2010
- 这个系列介绍常用的控件
- 包括在界面端的设置及在代码端的实现
Part 1:本篇目标
- 本篇介绍的控件为:列表框。涉及功能为:后台获取用户的选择项
- UI界面存在大量与用户互动的部分,根据客户不同的选择展现不同的信息
功能动图
静图
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
代码截图
Part 3:部分代码解读
chooseRow = ctrl.ListIndex
,注意是否设置列标题选项,在计数时,是不包括列标题的ListBox.Column(Index, Row)
,列表框可以看成一个Excel表格,不同的是
- 行和列都是从0开始计数
- 与Excel中不同的是,先是列再是行,格式:(列,行)
* ListBox.Column官方解读*
- 本文为原创作品,如需转载,可加小编微信号learningBin
更多精彩,请关注微信公众号
扫描二维码,关注本公众号