by keiitta » 2006年10月29日(日) 23:15
はじめまして。
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]
はじめまして。
ActiveBasic 5.0 Customer Preview 3で
Superを使用したところ、
>SUPER_TEST.abp(25) - 参照するスーパークラスが存在しません
となってしまいます。
Ver4.2.4では問題なく動作しました。
初心者なので、勘違いであれば申し訳ありません。
以下、コードです
[code]
#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][/code]