Como declarar uma variedade de tipos definidos pelo usuário no VB6 [fechado

Question

Type ABFator
    a As Single
    b As Sinlge
End Type

Dim ABFactorArr(8) As ABFactor

'Basicamente, quero declarar uma variedade de oito abactores que posso acessar

Eu faço isso e o complier dá erro ao usuário do usuário não definido

Obrigado

Answer 1

Erro de soletração? Faltando c?

• Você definiu o tipo como ABFator sem c
• E você colocou a matriz como ABFactor com ac

Você também enevoou Single Na sua definição de tipo

Alternativamente, talvez você precise fazer o tipo Public, caso você esteja definindo em um módulo e usando -o em outro?

(Copie e coloque o código em suas perguntas no futuro, pois você soletra três maneiras diferentes da sua pergunta!)

Answer 2

Coloque isso no código por trás do Form1 no topo da página:

Private Type ABFactor
    a As Single
    b As Single
End Type


Private Sub Form_Load()

Dim ABFactorArr(8) As ABFactor
Dim i As Byte
For i = 0 To UBound(ABFactorArr)
    ABFactorArr(i).a = i
    ABFactorArr(i).b = i + 10
Next i
'quick test
Debug.Print ABFactorArr(6).b

End Sub