コンポジションで定義した抽象クラスがエラーにならない

[OverTaker]

普通に定義するとエラーになる抽象クラスが、クラスのコンポジションの位置で定義するとコンパイルエラーが出ません。
ActiveBasic CP3です。

コード: 全て選択

Interface MyInterface
	Function MyFunction() As Long
End Interface

Class MyClass
	myInstance As MyInterface  'エラーにならない
Public
	Sub MyClass()
		myInstance.MyFunction()
	End Sub

	Sub ~MyClass()
	End Sub
End Class

Dim MyInstance_1 As MyClass

'Dim MyInstance_2 As MyInterface　これはエラーになる

ちなみに、このまま実行しますと、抽象クラスのメソッドを呼び出したところでアクセス違反になります。

[山本]

ご報告ありがとうございます。次回のバージョンアップで修正しますので、今しばらくお待ちください。