Перебор свойств класса в VBA

Question

Я создал этот класс,

Interval.cls 
public x as new collection 
public y as new collection 
public z as string 

Я хочу перебрать свойства, потому что я хочу, чтобы пользователю выбрать входной х, у, г в виде так на мой sub

sub test() 

dim inter as new Intervals 

inter.x.add "a" 
inter.x.add "a" 
inter.x.add "b" 
inter.x.add "b" 
inter.x.add "b" 

userString1 = x 
userString2 = a 

«Я хочу сделать его динамичным, чтобы независимо от того, что пользователь хочет, я могу предоставить результаты. «я просто хочу, чтобы сделать возможным сравнить UserString моих свойств

for each i in inter 

» поэтому я хочу, чтобы я в этом цикле быть мои свойства х, у, г, так что я могу сделать, если заявление если (я = userString1), то

end if 
next i 
end sub 

Я знаю, что я могу, возможно, сделать Твик в классе, чтобы сделать его итерацию, я не знаю, как сделать это

любая помощь ценится

Answer 1

'in class 
Public Property Get Item(i As Integer) As Variant 

    Select Case ndx 
     Case 1: Item = Me.x 
     Case 2: Item = Me.y 
     Case 3: Item = Me.z 
    End Select 

End Property 

'in sub 
Dim c as Collection 
Dim s as String 

For i = 1 to 3 
    if i < 3 then 
     set c = inter.Item(i) 
     'iterate through collection 
    else 
     s = inter.Item(i) 
    end if 
next i 

что-то, как это, вероятно, самый простой путь, я не испытали его, но мы надеемся, что, по крайней мере получает вы начали

Answer 2

Это та вещь, вы после?

'in class 
Public x As New Collection 
Public y As New Collection 
Public z As String 
Public Property Get Item(i As Integer) As Variant 

    Select Case i 
     Case 1: Item = Me.x 
     Case 2: Item = Me.y 
     Case 3: Item = Me.z 
    End Select 

End Property 

Sub try() 

Dim userString2 As String 
Dim userString1 As String 
Dim inter As Interval 
Dim i As Integer 

Set inter = New Interval 

inter.x.Add "a" 
inter.x.Add "a" 
inter.x.Add "b" 
inter.x.Add "b" 
inter.x.Add "b" 

userString2 = "aabbb" 

For i = 1 To inter.x.Count 

     userString1 = userString1 & inter.x.Item(i) 
Next i 

If userString1 = userString2 Then 
'<do whatever> 
End If 
End Sub 

OK как насчет забывания класса и использования массива? Массив строк может иметь любую длину, и вы можете динамически контролировать его размер по вызывающей процедуре.

Sub tryWithArray(ByRef StringArray() As String) 

Dim userString2 As String 
Dim i As Integer 

userString2 = "b" 


For i = 1 To UBound(StringArray()) 
    If userString2 = StringArray(i) Then 
     'do something 
    End If 
Next i 

End Sub