Table of contents
TOC
Recolher sumário
Expandir sumário

Propriedade OptionGroup.InSelection (Access)OptionGroup.InSelection Property (Access)

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

Você pode usar a propriedade InSelection para determinar ou especificar se um controle em um formulário no modo de Design está selecionado. Leitura/gravação booleano.You can use the InSelection property to determine or specify whether a control on a form in Design view is selected. Read/write Boolean.

SintaxeSyntax

expressão. NaSeleçãoexpression. InSelection

expressão Uma variável que representa um objeto OptionGroup .expression A variable that represents an OptionGroup object.

ComentáriosRemarks

Quando um controle está selecionado, suas alças de dimensionamento estão visíveis e o controle pode ser redimensionado pelo usuário. Mais de um controle pode estar selecionado ao mesmo tempo.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.

ExemploExample

A função a seguir utiliza a propriedade InSelection para determinar se o strControlName um controle em um formulário está selecionado.The following function uses the InSelection property to determine whether the strControlName control on a form is selected.

Para testar esse código, cole o código da função IsControlSelected na seção Declarações de um módulo de código no banco de dados de exemplo Northwind, abra o formulário Clientes no modo Design e selecione o controle CompanyName. Em seguida, insira a linha a seguir na janela Depurar: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:

? 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

Ver tambémSee also

ConceitosConcepts

Objeto OptionGroupOptionGroup Object

© 2018 Microsoft