上位クラスのメソッドが呼び出される場合があります。
コード: 全て選択
#prompt
Class CTest1
Protected
m_Name As String
Virtual Sub DoPrintMsg()
End Sub
Public
Sub CTest(AName As String)
m_Name = AName
End Sub
Sub PrintMsg()
DoPrintMsg()
End Sub
End Class
Class CInheritsTest
inherits CTest1
Protected
Override Sub DoPrintMsg()
Print m_Name
End Sub
Public
Sub CInheritsTest(AName As String)
CTest(AName)
End Sub
Sub PrintMsg2()
Print m_Name
End Sub
End Class
Dim A As CInheritsTest("hoge")
A.PrintMsg() '何も起きない
A.PrintMsg2()
引数にかかわらず、内部メソッドを呼び出そうとしているとコンパイラが認識してしまい、
「パラメータ指定が間違っています」とエラーメッセージが表示されます。
コード: 全て選択
#prompt
Sub AProc(Num As Long)
Print Str$(Num)
End Sub
Class CTest2
Private
Sub AProc()
Print "AProcメソッドの呼び出し"
End Sub
Public
Sub BProc()
AProc(10)
End Sub
End Class
Dim A As CTest2
A.BProc()
#strict宣言してもエラー表示がされないので、修正していただけるとありがたいです。
お手数だとは思いますが修正のほどよろしくお願いいたします。