VB6.0类参数的问题

[yanghuanji]

背景：1，VB.60实现不了重载。
2，利用一个函数进行重载
3，就是实现一个object1=object2（在c++中是这样来表述）的意思

代码：
Dim OldItem As Item
Private Sub Command1_Click()
Dim NewItem As Item
Set NewItem = New Item
NewItem.Evaluate (OldItem)
OldItem.cName = "TwoItem"
MsgBox "Name of NewItem is" & NewItem.cName
MsgBox "Name of OldItem is" & OldItem.cName
End Sub

Private Sub Form_Load()
Set OldItem = New Item
OldItem.cName = "OneItem"
End Sub

DEFINE CLASS Item
public mvarcName As String

Public Function Evaluate(oItem As Item) As Boolean
Me.cName = oItem.cName
End Function
ENDDEFINE
现象：1，系统显示“NewItem.Evaluate (OldItem)”错误
问题：1，问题在哪？
2，怎么样用vb6.0实现重载？

[pigpag]

Overloads?

应该是不能实现的。一个模块里函数名一样是不可能的。

你这里是 OldItem没有实例化。OldItem没有被New过。

[zyl910]

试一试：
NewItem.Evaluate OldItem

[david1981]

在VB中本身就不支持重载方法