Como descobrir informações das bibliotecas

#1

Existe alguma forma de descobrir qual objeto pertence uma instancia?
Por exemplo eu tenho dois objetos na biblioteca XO_01 e XO_02. Na aplicação eu possuo uma instancia que passo para um XControl por referencia e gostaria de no momento de linkar o xcontrol com o xobject eu testasse pra saber se era o XO_01ou o XO_02.

E se eu consigo acessar a o tipo de objeto conseguiria também acessar o tipo do parâmetro do XObjetc?

O primeiro problema eu consegue resolver “contornando”, Sempre que instancia um objeto, existe uma propriedade que carrega o tipo da mesma.

Att

#2

Descobrir a classe do XObject é possível pela função TypeName.

Sub XControl_OnFonteChanged()
	Select Case UCase(TypeName(Me.Fonte))
		Case "XO_01"
			' Do stuffs...
		Case "XO_02"
			' Do other stuffs...
		Case Else
			' ...
	End Select
End Sub

Sobre essa questão, você se refere a acessar as Propriedades do XObject? Se sim, é possível com o ActiveX PropEnum.

1 Like
#3

Testei aqui e resolveu.
Obrigado.