关于类模块中属性的问题

Question

在类模块中定义了一个属性 ipaddress代码如下
Public Property Let ipAddress(ByVal vnewvalue As String)
    ipAddress = vnewvalue
End Property
可是在程序中调用提示 “堆栈空间溢出”
跟踪显示在 ipaddress = vnewvalue 处出错

Answer 1

改一下：
在公用部分声明
private ipAdd as stringPublic Property Let ipAddress(ByVal vnewvalue As String)
    ipAdd = vnewvalue
End Property在类中使用变量ipAdd