Executa um método de um objeto ou define ou retorna uma propriedade de um objeto.
Sintaxe
CallByName(object , procname, calltype [, args()])
A sintaxe da função ChamarPorNome tem estes argumentos:
| Argumento | Descrição |
|---|---|
| objeto | Obrigatório. Variant (Object). O nome do objeto no qual a função será executada. |
| procname | Obrigatório. Variant (String). Uma expressão de cadeia que contém o nome de uma propriedade ou método do objeto. |
| tipo de chamada | Obrigatório. Constante. Uma constante do tipo vbCallType que representa o tipo de procedimento que está sendo chamado. |
| args() | Opcional. Variante (matriz). |
Observações
A função CallByName é usada para obter ou definir uma propriedade ou para invocar um método em tempo de execução usando um nome de cadeia de caracteres.
No exemplo a seguir, a primeira linha usa CallByName para definir a propriedade MousePointer de uma caixa de texto, a segunda linha obtém o valor da propriedade MousePointer e a terceira linha invoca o método Move para mover a caixa de texto:
CallByName Text1, "MousePointer", vbLet, vbCrosshair
Result = CallByName (Text1, "MousePointer", vbGet)
CallByName Text1, "Move", vbMethod, 100, 100
Exemplo
Nota
Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.
Este exemplo usa a função CallByName para invocar o método Move de um botão de comando.
O exemplo também utiliza um formulário (Form1) com um botão (Command1) e uma etiqueta (Label1). Quando o formulário é carregado, a propriedade Caption do rótulo é definida como o nome do método a ser invocado, neste caso, "Move". Quando você clica no botão, a função CallByName invoca o método para alterar o local do botão.
Option Explicit
Private Sub Form_Load()
Label1.Caption = "Move"' Name of Move method.
End Sub
Private Sub Command1_Click()
If Command1.Left <> 0 Then
CallByName Command1, Label1.Caption, vbMethod, 0, 0
Else
CallByName Command1, Label1.Caption, vbMethod, 500, 500
End If