vba sub는 클래스 객체 참조에 텍스트 문자열을 삽입합니다.

Question

저는이 말고 새롭기 때문에 어떤 용어라도 망치면 유감입니다. 아무도 도움이나 생각을 가져 주셔서 감사합니다.

나는 다음과 같은 잘못된 코드 한 : 나는 ExampleSub ("치즈")을 호출하는 경우

Sub ExampleSub(text As String) 
    ClassObject." & text & "_attribute = 1 
End Sub 

그래서, 나는 그것이 1.

어떤 생각이 동일 ClassObject.cheese_attribute를 설정 하시겠습니까? 나는 그것이 가능하다는 것을 확신하지 못한다.

감사합니다.

Answer 1

다음은 작동하는 다른 방법입니다. classobject의 Properties 중 하나로 스크립트 사전 개체를 사용하십시오. 키 문자열이며 값이 임의의 다른 타입 (객체 범위, 통합, 정수 변형/배열 등)

그래서 만약 사전을 사용할 수있을 수 키/값 쌍의 요소를 저장 The Dictionary Object is pretty neat, 이러한 모든 명명 된 특성을 포함하는 개체. 이미 존재하지 않는 경우 사전 키가 자동으로 항목을 추가 호출

Sub ExampleSub(text As String) 
    ClassObject.Attributes(text) = 1 
End Sub 

,하지만 :

Private pAttributes as Object 

Sub Class_Initialize() 
    '## Initialize this object to avoid a 91 error 
    Set pAttributes = CreateObject("Scripting.Dictionary") 
End Sub 

Public Property Get Attributes() As Object 
    Set Attributes = pAttributes 
End Property 
Public Property Let Attributes(lAttributes As Object) 
    Set pAttributes = lAttributes 
End Property 

그런 다음 코드에서 당신이 간단하게 수행 할 수 클래스 모듈에서 다음과 같은 코드를 추가 더 많은 제어가 필요하다면 다음을 할 수 있습니다 :

Sub AnotherExample(text as String) 
    If ClassObject.Attributes.Exists(text) Then 
     MsgBox text & " already exists!", vbInformation 
    Else: 
     ClassObject.Attributes(text) = 1 
    End If 
End Sub