Superについて

[keiitta]

はじめまして。

ActiveBasic 5.0 Customer Preview 3で
Superを使用したところ、

＞SUPER_TEST.abp(25) - 参照するスーパークラスが存在しません
となってしまいます。
Ver4.2.4では問題なく動作しました。

初心者なので、勘違いであれば申し訳ありません。

以下、コードです

コード: 全て選択

#include "SUPER_TEST.idx"

#console

' ↓ ここからプログラムが実行されます

Class CSuperClass
Public
    Sub ShowMessage()
        MessageBox(0,"スーパークラスで定義されたメンバ関数です。","オーバーライドのテスト",MB_OK)
    End Sub

    Sub ShowMessageX()
        MessageBox(0,"スーパークラスで定義されたメンバ関数です。","オーバーライドのテスト",MB_OK)
    End Sub
End Class

Class CTest	
	Inherits  CSuperClass 
Public
    Sub ShowMessage()
        MessageBox(0,"サブクラスで定義されたメンバ関数です。","オーバーライドのテスト",MB_OK)
    End Sub
    Sub ShowOldMessage()
       Super.ShowMessage()
    End Sub
End Class

	'オブジェクトを生成
Dim obj As CTest

'オーバーライドされたメンバ関数を呼び出す
obj.ShowMessage()

'スーパークラスのメンバ関数を呼び出す
obj.ShowOldMessage()

obj.ShowMessageX()

[/code]

[山本]

ご報告ありがとうございます。
keiittaさんの仰るとおり、Superの指定が正常に行われない問題に関してのAB側のミスが確認できました。次回のバージョンアップで修正させていただきます。

[keiitta]

山本様

早速のご回答ありがとうございます。
期待しておりますので、がんばってください。

以上です。