VB初心者友の会 - 超初心者専用Q&A掲示板過去ログ

> SubプロシージャをCallした際に
> ByRefの引数が返っていない現象が発生しました。
> 調査した結果、
> SubプロシージャをCallする際に以下の形をとると
> ByRefで値が返ってこないようです。
> VB初めて半年というのに初歩的な事で良く躓きます（^^;
> 
> 　ProcSub (lHikisuu)
> 
> 原因はわかったのですが、
> 何故上記Call方法で問題の現象が発生するのかがわかりません
> ()が演算子である事と、参照渡しで或る事が起因しての事と思うのですが
Call ProcSub(lHikisuu) としても同じでしょうか？

> SubプロシージャをCallした際に
> ByRefの引数が返っていない現象が発生しました。
> 調査した結果、
> SubプロシージャをCallする際に以下の形をとると
> ByRefで値が返ってこないようです。
> 　ProcSub (lHikisuu)
> 何故上記Call方法で問題の現象が発生するのかがわかりません
> ()が演算子である事と、参照渡しで或る事が起因しての事と思うのですが
ヘルプより
 プロシージャを呼び出すとき、キーワード Call は省略できます。
 キーワード Call を使って、引数が必要なプロシージャを呼び出す場合は、引数リスト (引数 argumentlist) をかっこで囲む必要があります。
 キーワード Call を省略するときは、引数リストを囲むかっこも省略しなければなりません。

> 原因はわかったのですが、
> 何故上記Call方法で問題の現象が発生するのかがわかりません
> ()が演算子である事と、参照渡しで或る事が起因しての事と思うのですが
> 
> どなたか理由をご存知でしたら
> 教えてくださると幸いです

ここが参考になると思います。
http://www.microsoft.com/JAPAN/developer/library/VBCon98/vbconpassingargumentstoprocedures.htm

> 何故上記Call方法で問題の現象が発生するのかがわかりません
> ()が演算子である事と、参照渡しで或る事が起因しての事と思うのですが

皆さんのご助力のおかげで理解する事ができました。
どうもありがとうございました。

一応報告までに

Public Sub Main()
    Dim lTemp As Long
    
    '通常のCall
    Call ProcSub(lTemp)
    MsgBox "Main:" & CStr(lTemp)
    
    '通常のCall
    ProcSub lTemp
    MsgBox "Main:" & CStr(lTemp)
    
    '式を渡す
    ProcSub (lTemp + 3)
    MsgBox "Main:" & CStr(lTemp)
    
    '式として渡す
    ProcSub (lTemp)
    MsgBox "Main:" & CStr(lTemp)

End Sub
Public Sub ProcSub(ByRef lArg As Long)
    lArg = lArg + 1
    MsgBox "ProcSub:" & CStr(lArg)
End Sub