Enum

[Avtopic]

Здравствуйте!

Код: Выделить всё

Public Enum opName
    opNOP = 0
    opINC = -1
    opSAL = 3
    opMOV = 1
    opRET = -2
    opPAY = 11
End Enum

Имеется или нет возможность в VB, пройтись в цикле по opName

Спасибо!

[Хакер]

Нет. Энуме не для этого.

[alibek]

Для ActiveX ты можешь подключить TLBInfo и получить информацию через нее.
Вот пример для Excel:

Код: Выделить всё

Sub RetrieveTLI()
Dim tli As TypeLibInfo, I As Long, C As Long, res As String, S As String
Set tli = TypeLibInfoFromFile("C:\Program Files\Microsoft Office\Office10\EXCEL.EXE")
For I = 1 To tli.Constants.Count
  res = res & "Enum " & tli.Constants.Item(I).Name & vbNewLine
  For C = 1 To tli.Constants.Item(I).Members.Count
    With tli.Constants.Item(I).Members.Item(C)
      S = "  " & .Name & " = " & .Value
      If Len(S) < 40 Then S = S & Space$(40 - Len(S)) Else S = S & " "
      S = S & "' &h" & Right$("00000000" & Hex$(.Value), 8) & "&"
    End With
    res = res & S & vbNewLine
  Next C
  res = res & "End Enum" & vbNewLine
  res = res & vbNewLine
Next I
Clipboard.Clear
Clipboard.SetText res
End Sub

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