栋栋的个人博客

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

  • 769 字

Part 1：本篇目标

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

功能动图

图片

Part 2：代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

代码截图

图片

Part 3：事件设置

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

事件设置

图片

本作品采用 知识共享署名-相同方式共享 4.0 国际许可协议 进行许可
, , , ,