This topic has not yet been rated - Rate this topic

BoundObjectFrame.InSelection Property

Office 2007

You can use the InSelection property to determine or specify whether a control on a form in Design view is selected. Read/write Boolean.

Syntax

expression.InSelection

expression A variable that represents a BoundObjectFrame object.

Remarks

When a control is selected, its sizing handles are visible and it can be resized by the user. More than one control can be selected at a time.

Example

The following function uses the InSelection property to determine whether the strControlName control on a form is selected.

To test this code, paste the IsControlSelected function code in the Declarations section of a code module in the Northwind sample database, open the Customers form in Design view, and select the CompanyName control. Then enter the following line in the Debug window:

Visual Basic for Applications

Visual Basic for Applications
? IsControlSelected (Forms!Customers, "CompanyName") Function IsControlSelected(frm As Form, _ strControlName As String) As Boolean Dim intI As Integer, ctl As Control If frm.CurrentView <> 0 Then ' Form is not in Design view. Exit Function Else For intI = 0 To frm.Count - 1 Set ctl = frm(intI) If ctl.InSelection = True Then ' Is desired control selected? If UCase(ctl.Name) = UCase(strControlName) Then IsControlSelected = True Exit Function End If Else IsControlSelected = False End If Next intI End If End Function

? IsControlSelected (Forms!Customers, "CompanyName")

Function IsControlSelected(frm As Form, _
     strControlName As String) As Boolean
    Dim intI As Integer, ctl As Control
    If frm.CurrentView <> 0 Then
        ' Form is not in Design view.
        Exit Function
    Else
        For intI = 0 To frm.Count - 1
            Set ctl = frm(intI)
            If ctl.InSelection = True Then
                ' Is desired control selected?
                If UCase(ctl.Name) = UCase(strControlName) Then
                    IsControlSelected = True
                    Exit Function
                End If
            Else
                IsControlSelected = False
            End If
        Next intI
    End If
End Function

Did you find this helpful? Yes No

Not accurate

Not enough depth

Need more code examples

(1500 characters remaining)

Community Additions

ADD