This is most annoying, I get this error on a compile, but the DLL is very simple..
Definitions of property procedures for the same property are inconsistent, or property procedure has an otpional parameter, a ParamArray, or an invalid Set final parameter..
THis is really holding me up, I can't go anywhere till this is fixed.
code:
Option Explicit
Private m_pFeature As esrigeodatabase.IFeature
Private m_LocationID As Long
Private m_Radius As Single
Public Property Set Feature(ByVal vData As esrigeodatabase.IFeature)
Set m_pFeature = vData
End Property
Public Property Get Feature() As esrigeodatabase.IFeature
Set Feature = m_pFeature
End Property
Public Property Set LocationID(ByVal vData As Long)
m_LocationID = vData
End Property
Public Property Get LocationID() As Long
LocationID = m_LocationID
End Property
Public Property Set Radius(ByVal vData As Single)
m_Radius = vData
End Property
Public Property Get Radius() As Single
Radius = m_Radius
End Property
Private Sub Class_Terminate()
Set m_pFeature = Nothing
End Sub
'''' Containing Class.....
Private mCol As Collection
Public Function Add(pFeature As esrigeodatabase.IFeature, lLocationID As Long, pRadius As Single)
'create a new object
Dim objNewMember As clsPolygonProp
Set objNewMember = New clsPolygonProp
Set objNewMember.Feature = pFeature
objNewMember.LocationID = lLocationID
objNewMember.Radius = pRadius
mCol.Add objNewMember
Set Add = objNewMember
'Set objNewMember = Nothing
End Function
Thanks for any input..
:ehh:
