ByRef引数を持つ関数のオーバーロードができない

[k.kiyo]

引数にByRefが指定されている関数のオーバーロードができません。
ポインタ引数の場合は正常にオーバーロードできます。

コード: 全て選択

Sub Test()
End Sub

Sub Test(p As *Long)
End Sub

Sub Test(ByRef p As Long)
End Sub

Dim a As Long, b As *Long
b = VarPtr(a)
Test()        'OK
Test(b)       'OK
Test(ByVal b) '"Test" オーバーロードを解決できません

[yu0627]

　あまりオーバーロードに詳しくありませんが、元々無理だと思います。
なぜなら、同じ名前の関数が３つもあるからです。

コード: 全て選択

Sub Test() 
End Sub 

Sub Test2(p As *Long) 
End Sub 

Sub Test3(ByRef p As Long) 
End Sub 

Dim a As Long, b As *Long 
b = VarPtr(a) 
Test()        'OK 
Test2(b)       'OK 
Test3(ByVal b) 

こうだとうまくいくと思いますが...。
ほんと関数のオーバーロードは知らないので、間違っていたらすみません...。

[7]

> 引数にByRefが指定されている関数のオーバーロードができません。
> ポインタ引数の場合は正常にオーバーロードできます。
たぶんですけど、すでにLong型変数へのポインタを引数とする関数が同じ名前で定義されてるからじゃないでしょうか。

コード: 全て選択

Class CTest
Public
	' Long型変数へのポインタ p を引数とする
	Sub Test(ByVal p As *Long)
	End Sub

	' Long型変数へのポインタ p を引数とする
	Sub Test(ByRef p As Long)
	End Sub
End Class

あ。普通の関数でオーバーロード(ライド？)できるようになってたんですね。気付かなかった。

[イグトランス]

Test(b[0])とすればコンパイルできオーバーロードも正しく解決されます。
配列でないものに添え字演算子を使うのが気持ち悪いですが，
このバグが修正されるまではとりあえずこれで我慢してはどうでしょう。

個人的には間接参照演算子(C/C++の単項 * )のようなものがあればいいのにと思います。（しかも後置演算子として）

[k.kiyo]

> 配列でないものに添え字演算子を使うのが気持ち悪いですが，
> このバグが修正されるまではとりあえずこれで我慢してはどうでしょう。
はい、そうします。