VBS中类模块提供了一个Default方法,那么VB中怎么办?
Class MyClass
Public Default Function You(name)
You="My Name Is "&name&" Current Time Is "
End Function
Public Function Now
Now=Date&" "&Time
End Function
End Class
Set o = New MyClass
wsh.echo o("麦兜"),o.now
Class MyClass
Public Default Function You(name)
You="My Name Is "&name&" Current Time Is "
End Function
Public Function Now
Now=Date&" "&Time
End Function
End Class
Set o = New MyClass
wsh.echo o("麦兜"),o.now
oki
