自作クラス型を別の型にキャストの仕方

たてまえ 2008-11-01 07:00:12 No: 101249

いつもお世話になっております。

表題のとおり、VB6にて自作クラス型を別の型にキャストしたいのですが、
どのように実現すればよろしいのでしょうか。

VB.NETのCType、VC++のQueryInterface と同じことをVB6.0で実装させたいです。

やじゅ 2008-11-01 07:58:20 No: 101250

今どき VisualBasic6
http://kurusugawa.jp/blog/archives/46/

Java：
ConcreteType tConcreteInstance = (ConcreteType)tAbstractInstance;
↓
VB6：
Dim tConcreteInstance As ConcreteType
Set tConcreteInstance = tAbstractInstance