Access VBA教程:InSelection属性

使用 InSelection属性可以判定或指定“设计”视图中的窗体上的控件是否被选定。Boolean 型,可读/写。

expression.InSelection

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

说明

InSelection属性使用以下设置。

设置 说明
True  控件已选定。
False 控件未选定。

只有在Visual Basic 中才能使用该属性。

在控件被选定时,它的调整柄可见,所以可以调整大小。而且一次可选定多个控件。

VBA示例

下列函数使用 InSelection属性来确定strControlName 控件是否被选定。

如果要试验下列代码,可将 IsControlSelected函数代码粘贴到“罗斯文”示例数据库某一代码模块中的声明节,在“设计”视图中打开“客户”窗体,然后选取“公司名称”控件。在“调试”窗口中输入以下代码行:


? IsControlSelected (Forms!客户, "公司名称")
Function IsControlSelected(frm As Form, _
     strControlName As String) As Integer
    Dim intI As Integer, ctl As Control
    If frm.CurrentView <> 0 Then
        ' 窗体未在“设计”视图中。
        Exit Function
    Else
        For intI = 0 To frm.Count - 1
            Set ctl = frm(intI)
            If ctl.InSelection = True Then
                ' 所需控件是否选定?
                If UCase(ctl.Name) = UCase(strControlName) Then
                    IsControlSelected = True
                    Exit Function
                End If
            Else
                IsControlSelected = False
            End If
        Next intI
    End If
End Function

上页:Access VBA教程:InputParameters属性 下页:Access VBA教程:InsideHeight属性

Access VBA教程:InSelection属性

Access VBA教程:InsideHeight属性 Access VBA教程:InsideWidth属性
Access VBA教程:IsBroken属性 Access VBA教程:IsCompiled属性
Access VBA教程:IsConnected属性 Access VBA教程:IsHyperlink属性
Access VBA教程:IsLoaded属性 Access VBA教程:IsVisible属性
Access VBA教程:Item属性 Access VBA教程:ItemData属性
Access VBA教程:ItemLayout属性 Access VBA教程:ItemsAcross属性
Access VBA教程:ItemSizeHeight属性 Access VBA教程:ItemSizeWidth属性
Access VBA教程:ItemsSelected属性 Access VBA教程:KeepTogether属性
Access VBA教程:KeepTogether属性 - 组 Access VBA教程:KeepTogether属性 - 节
Access VBA教程:KeyboardLanguage属性 Access VBA教程:KeyPreview属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号