access 获取列表框list选中项_Access控件解析——双击效果

功能动图

Private Sub List0_DblClick(Cancel As Integer) ctrlName = "List0" Set ctrl = Me.Controls(ctrlName) chooseRow = ctrl.ListIndex 'listIndex 计数不包括标题行  colNum = 1 If chooseRow >= 0 Then chooseContent = ctrl.Column(colNum - 1, chooseRow + 1) MsgBox "选中行第1列信息为：" & chooseContent Else chooseContent = "未选中" MsgBox chooseContent  End If End Sub

1. 获取选项内容在上一篇文章中已经讲过，核心函数ctrl.Column
2. 设置双击事件：设计视图下-右键列表框-选择属性-选择事件选项卡-设置双击事件
3. 对应双击事件Sub名称：List0_DblClick(Cancel As Integer)，DblClick，double click的缩写
4. 整个Sub名称是系统自动生成的，尽量不要自己看出规律后人为建立，有时候系统无法识别

事件设置