Access-控件解析-列表框-04-双击效果

微信公众号原文

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

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

Part 1：本篇目标

1. 本篇介绍的控件为：列表框。涉及功能为：双击列表框显示所选行第1列信息

功能动图

1.gif

Part 2：代码

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.png

Part 3：事件设置

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

事件设置

2.png

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

---

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

公众号底部二维码.jpg