complex numbers
On 1 abr, 16:21, "Jim Rech" wrote:
But I dont know where´s the flaw.
Besides some typos in the class module you never actually instantiated the
class.
Private m_rP As Double
Private m_iP As Double
Public Property Get rP() As Variant
* * rP = m_rP
End Property
Public Property Let rP(ByVal rPart As Variant)
* * m_rP = rPart
End Property
Public Property Get iP() As Variant
* * iP = m_iP
End Property
Public Property Let iP(ByVal iPart As Variant)
* * m_iP = iPart
End Property
Module:
Sub test()
* * Dim cNum1 As cNum
* * Set cNum1 = set_cnum(11, 3)
* * Debug.Print cNum1.rP
* * Debug.Print cNum1.iP
End Sub
Function set_cnum(rPart As Double, iPart As Double) As cNum
* * Dim x As New cNum
* * x.rP = rPart
* * x.iP = iPart
* * Set set_cnum = x
End Function
ooops
Thanks Jim for the correction.
Regards
|