Access VBA教程:Selected属性

使用 Visual Basic 中的 Selected属性可以确定列表框中的项目是否已选定。Long 型,可读写。

expression.Selected(lRow)

expression   必需。返回“Applies To”列表中的一个对象的表达式。

lRow   必需,Long 型。列表框中的项目。第一项用零 (0) 表示,第二项用一 (1) 表示,依此类推。

说明

Selected属性是一个从零开始的数组,该数组包含了列表框中每个项目的选择状态。

设置 说明
True 选定列表框项目。
False   未选定列表框项目。

使用Visual Basic 可以获得或设置 Selected属性。

该属性只在程序运行时可用。

当列表框控件的MultiSelect属性设为“无”时,只有一个项目的 Selected属性能够设为 True。当列表框控件的 MultiSelect属性设为“简单”或“展开的”时,任何项目的 Selected属性都可以设为 True。一个与字段绑定的多重选择列表框将有一个始终等于Null 的Value属性。可以使用 Selected属性或ItemsSelected集合来检索关于项目选择情况的信息。

在 Visual Basic 中使用 Selected属性,可以从列表框中选择项目。例如,下面的表达式将选择列表中的第五项。


Me!Listbox.Selected(4) = True

VBA示例

下面的示例使用 Selected属性将所选项目从 lstSource 列表框移到 lstDestination 列表框。其中 lstDestination 列表框的“行来源类型”属性设置为“值列表”,控件的“行来源”属性由在 lstSource 控件中选定的所有项目决定。lstSource 列表框的“多重选择”属性设置为“展开的”。CopySelected () 过程由 cmdCopyItem 命令按钮调用。


Private Sub cmdCopyItem_Click()
    CopySelected Me
End Sub
Public Sub CopySelected(ByRef frm As Form)
    Dim ctlSource As Control
    Dim ctlDest As Control
    Dim strItems As String
    Dim intCurrentRow As Integer
     Set ctlSource = frm!lstSource
    Set ctlDest = frm!lstDestination
     For intCurrentRow = 0 To ctlSource.ListCount - 1
        If ctlSource.Selected(intCurrentRow) Then
            strItems = strItems & ctlSource.Column(0, _
                 intCurrentRow) & ";"
        End If
    Next intCurrentRow
     ' Reset destination control's RowSource property.
    ctlDest.RowSource = ""
    ctlDest.RowSource = strItems
     Set ctlSource = Nothing
    Set ctlDest = Nothing
End Sub

上页:Access VBA教程:Section属性 下页:Access VBA教程:SelectionChange属性

Access VBA教程:Selected属性

Access VBA教程:SelectionChange属性 Access VBA教程:SelHeight属性
Access VBA教程:SelLeft属性 Access VBA教程:SelLength属性
Access VBA教程:SelStart属性 Access VBA教程:SelText属性
Access VBA教程:SelTop属性 Access VBA教程:SelWidth属性
Access VBA教程:ServerFilter属性 Access VBA教程:ServerFilterByForm属性
Access VBA教程:Shape属性 Access VBA教程:ShortcutMenuBar属性
Access VBA教程:ShortcutMenu属性 Access VBA教程:ShowNavigationButtons属性(快照查看器)
Access VBA教程:SizeMode属性 Access VBA教程:SnapshotPath属性(快照查看器)
Access VBA教程:SortOrder属性 Access VBA教程:Source属性
Access VBA教程:SourceConnectStr、SourceDatabase属性 Access VBA教程:SourceDoc属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号