by 高信期 » 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)にしてください」
とエラーメッセージが出ます。
[code]
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)
[/code]
上記ののように針引数がポインタ参照の関数ポインタを使用するコードをコンパイルしようとすると、
「配列ポインタを引渡すときは、値参照(ByVal)にしてください」
とエラーメッセージが出ます。