Função FindPropertyObject

Habilita que objetos sejam endereçados em tempo de execução como um parâmetro string usando o nome do objeto.

Por exemplo, o seguinte comando:

MyObj.Prop1.Command = 5

corresponde ao bloco de comandos:

Dim ObjVar as Object

Dim ObjProp as Object

ObjName As String = "MyObj"

ObjVar = FindObject( ObjName As String )

PropName As String = "Prop1"

ObjProp = FindPropertyObject( ObjVar, PropName As String )

ObjProp.Command = 5

Essas instruções permitem que os nomes sejam criados dinamicamente em tempo de execução. Por exemplo:

«TextEdit1 to TextEdit5» em uma repetição para criar cinco nomes de controle.

Consulte também: FindObject

Sintaxe:

FindPropertyObject( ObjVar, PropName As String )

Parâmetros:

ObjVar: variável de objeto que você deseja definir dinamicamente em tempo de execução.

PropName: cadeia de caracteres que especifica o nome da propriedade à qual você deseja fazer referência em tempo de execução.

Códigos de erro:

5 Chamada de procedimento inválida

12 Variável não definida

14 Parâmetro inválido

52 Nome ou número de arquivo incorreto

57 Erro de E/S do dispositivo