Jag håller på med att skapa en ActiveX kontroll som skall ha ett antal property. Propertyna heter Aktiv1, Aktiv2, Aktiv3 osv. Jag skulle bara vilja ha ett property som heter typ Aktiv(Index). Finns det ngn som har en bra ide på hur jag skall lösa detta i VB6?

//UJ

<code>
Dim m_localcopy() as string

property let active(index as integer, item as string)
if index > -1 and index < 4
m_localcopy(index) = item
End if

End property

property get active(index as integer) as string
if index > -1 and index < 4
active = m_localcopy(index)
End if
End property
</code>

-- Should do the trick

Tack för svaret.

Jag har dock en följdfråga. Hur får jag propertyt att synas i Property fönstret? Jag skulle vilja att mitt property fungerade på samma sätt som List propertyt i en ComboBox.

//UJ

Det får du inte :-(

Använd en Property Page istället.


~ beezo

Synd, men tack iallafall!

//UJ