Classes in Add-Ins

[pp_17]

How can I embed this class in an XLAM Add-In.. and make it work?

Dize Class

Private pSides As IntegerPublic Property Let sides(value As Integer)
    pSides = value
End Property
Public Property Get sides() As Integer
    sides = pSides
End Property
Public Function throw() As Integer
    throw = Int(Rnd() * pSides) + 1
End Function

I've tried doing it, I even get the Dize.xlam in the VBA project inspector:

However, I don't have any intellisense option when typing:

Dim myDice as D... (Dize does not appear in the list)

And even if I write

Dim myDice as Dize

I get the error "User-defined type not defined"

What am I doing wrong?? Any help to get classes in Add-Ins going?

 

[wideboydixon]

- Change the name of the project from "VBAProject". Something like "DizeProject" for example.
- Make sure that the Instancing of the class is set to 2 - PublicNotCreatable
- Add a new module and create a function that will create a new instance of your class e.g.:

Public Function InstantiateDizeClass() As Dize

Set InstantiateDizeClass = New Dize

End Function

- Ensure that you are referencing your DizeProject in the Tools/References dialog in you new Book1 project.
- Use the public function to instantiate the class. I did this:

Sub Test()

Dim myDice As DizeProject.Dize

Set myDice = DizeProject.InstantiateDizeClass

Debug.Print myDice.throw
Debug.Print myDice.throw
Debug.Print myDice.throw

End Sub

I got it working like this. Hope that helps.

WBD

 

[wideboydixon]

Oops. Forgot to say I also changed your class to add a constructor:

Private pSides As Integer
Public Property Let sides(value As Integer)
    pSides = value
End Property
Public Property Get sides() As Integer
    sides = pSides
End Property
Public Function throw() As Integer
    throw = Int(Rnd() * pSides) + 1
End Function
Public Sub Class_Initialize()

pSides = 6

End Sub

 

[pp_17]

Wide Body Dixon.... you are some wise man.