関数ポインタのバグ
Posted: 2005年7月06日(水) 21:58
コード: 全て選択
Function hogeFunc(ByRef A As Long) As Long
Print Str$(A)
hogeFunc = 1
End Function
Dim A As Long
Dim B As *Function(ByRef A As Long) As Long
B = AddressOf(hogeFunc)
B(A)
「配列ポインタを引渡すときは、値参照(ByVal)にしてください」
とエラーメッセージが出ます。