ab.com コミュニティ

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

#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は奥が深いですね～！

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

ab.com コミュニティ

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

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