VBScriptについて必死に話し合うスレ [無断転載禁止]©2ch.net

[30 ピラフ ◆9Jro6YFwm650 2017/07/30(日) 00:23:29.73 ID:DLqAucgC]

>>26
プロトタイプ完全に理解した
Dim prototype
Set prototype = New ClassPrototype

Dim dog
Set dog = prototype.Dog.Create()
Call WScript.Echo(dog.Prototype.Bark(dog))

Class ClassPrototype
　Dim Dog
　Sub Class_Initialize
　　Set Dog = New ClassDogPrototype
　End Sub
End Class

Class ClassDogPrototype
　Function Create()
　　Dim dog
　　Set dog = New ClassDog
　　Set dog.Prototype = Me
　　Set Create = dog
　End Function

　Function Bark(ParamDog)
　　Bark = "わん"
　End Function
End Class

Class ClassDog
　Dim Prototype
End Class