構造体ポインタと関数ポインタ

[高信期]

構造体のメンバとした関数ポインタを構造体ポインタから呼び出そうとすると、
「文法が間違っています」とエラー表示が出ます。

コード: 全て選択

#prompt
TypeDef EventProc = *Sub(Index As Long)
Type EVENTSTRUCT
  Event As EventProc
End Type

Sub TestProc(Index As Long)
  Print Str$(Index)
End Sub

Sub Test()
  Dim A As EVENTSTRUCT, C As *EVENTSTRUCT
  A.Event = AddressOf(TestProc)
  C = VarPtr(A)
  C->Event(1)
End Sub
Test()

[マティ]

ポインターにするとコンパイル出来ないようですね！
下記のように書き換えると動作するので、コンパイラ側のエラーチェックミスと思われます。
山本様いかがでしょうか？

コード: 全て選択

Sub Test()
  Dim A As EVENTSTRUCT, C As *EVENTSTRUCT
  C = VarPtr(A)
  C->Event = AddressOf(TestProc)
  A.Event(1)
End Sub

PS.こんな使い方が存在したなんて、ActiveBasicは奥が深いですね～！

[山本]

ご報告ありがとうございます。
原因を突き止めることが出来ましたので、次回のバージョンアップで修正します。