ab.com コミュニティ

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

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　これはエラーになる

普通に定義するとエラーになる抽象クラスが、クラスのコンポジションの位置で定義するとコンパイルエラーが出ません。
ActiveBasic CP3です。
[code]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　これはエラーになる[/code]
ちなみに、このまま実行しますと、抽象クラスのメソッドを呼び出したところでアクセス違反になります。