Propiedad ListBox.InSelection (Access)

Utilice la propiedad InSelection para determinar o especificar si está seleccionado un control de un formulario en la vista Diseño. Boolean de lectura y escritura.

Sintaxis

expresión. InSelection

Expresión Variable que representa un objeto ListBox .

Comentarios

Cuando se selecciona un control, sus controladores de tamaño son visibles y el usuario puede cambiar su tamaño. Puede haber más de un control seleccionado al mismo tiempo.

Ejemplo:

En la siguiente función se utiliza la propiedad InSelection para determinar si está seleccionado el control strControlName de un formulario.

Para probar este código, pegue el código de función IsControlSelected en la sección Declaraciones de un módulo de código de la base de datos de ejemplo Northwind, abra el formulario Clientes en la vista Diseño y seleccione el control CompanyName . Escriba la siguiente línea en la ventana Depurar.

? 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.