VB6.0如何最简单的编写自定义属性和方法事件
这个问题应该比较基础吧
比如定义了一个变量people
现在要赋予它一个属性people.hair
还要赋予它一个方法就是people.growhair 效果使得hair值增加+1
请问，如何用最简单的方法实现。
[解决办法]
你说的是类，不是变量！
新建类模块，命名为People
Option Explicit
'保持属性值的局部变量
Private mvarhair As Long '局部复制
Public Sub growhair()
mvarhair = mvarhair + 1
End Sub
Public Property Let hair(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
mvarhair = vData
End Property
Public Property Get hair() As Long
'检索属性值时使用，位于赋值语句的右边。
hair = mvarhair
End Property
[解决办法]
楼主代码很经典了.
[解决办法]
应该是 "楼上代码很经典了 "
