VBA Custom class Property Offer Selection 1

[Chance1234]

Been a long time since i ve written a class module , what i am trying to do is roughly the following

Private Card


Property get WhatCard()
Whatcard = card
End property

Property let whatcard(ByVal, Newvalue)
Card = newvalue
end property

What i want to happen in the code is , someone can go

whatcard = and a dropdown appears with hearts, diamonds, clubs, spades





Chance,

Filmmaker, gentlemen and read my blog at

http://www.20six.co.uk/Chance1234

 

[RoyVidar]

If the dropdown values are the only thing you want, are you sure you need a class?

Why not just

[tt]public enum WhatCard
hearts = 0
diamonds = 1
clubs = 2
spades = 3
end enum[/tt]

in a standard module, then see what happens when you type

[tt]dim mycard as WhatCard
mycard =[/tt]

Roy-Vidar

 

[RoyVidar]

Oh sorry, you meant the property (using the above enum)

[tt]property get ThisCard() as WhatCard
...
Property let ThisCard(ByVal Newvalue as WhatCard)[/tt]

Roy-Vidar

 

[Chance1234]

great thanks

Chance,

Filmmaker, gentlemen and read my blog at

http://www.20six.co.uk/Chance1234