C# と VB.NET の質問掲示板

■No47434 (tonton さん) に返信
> 下のサンプルの子関数内にて呼び出し元の値を変えたいのですが、
できればイメージコードでは無く、実際のコードに近い物を転記していただけると助かります。
　　Text1 でも TextBox1 でもなく、TEXTBOX というコントロール名。
　　Str関数と被るような STR という変数名。
　　引数の型を明示していない Function。
　　戻り値の型を明示していない Function。
　　戻り値が常に固定値 0 を返すだけの Function。
いずれも文法的には正しいですが…実コードもそうなっているのでしょうか?


> 下のサンプルのコーディングを変える事なく実現可能でしょうか？
「呼び出す側」と「呼び出される側」、そのどちらも変更したくないという事でしょうか?
それは流石に不可能だと思いますよ。

どちらか片方に手を加えても良いのだとすれば、こういうのは如何でしょうか。


Option Explicit

' MODE = 0  : 元の実装
' MODE = 1  : 修正案1
' MODE = 2  : 修正案2
#Const MODE = 1

Private Sub Command1_Click()
    Dim Ret As Integer
    Text1.Text = "Old Value"
    Ret = MOJISET(Text1)
    MsgBox CStr(Ret) & vbCrLf & Text1.Text
End Sub

Private Sub Command2_Click()
    Dim Ret As Integer
    Dim s As String
    s = "Old Value"
    Ret = MOJISET(s)
    MsgBox CStr(Ret) & vbCrLf & s
End Sub

Private Sub Command3_Click()
    Dim Ret As Integer
    Dim v As Variant
    v = "Old Value"
    Ret = MOJISET(v)
    MsgBox CStr(Ret) & vbCrLf & CStr(v)
End Sub


#If MODE = 1 Then

Function MOJISET(ByRef moji As Variant) As Variant
    If TypeOf moji Is TextBox Then
        moji.Text = "A"
    Else
        moji = "A"
    End If
    MOJISET = 0
End Function

#ElseIf MODE = 2 Then

Function MOJISET(ByRef moji As Variant) As Integer
    If TypeOf moji Is VB.Control Then
        Dim c As Control
        Set c = moji
        Let c = "A"
    ElseIf IsObject(moji) Then
        Dim o As Object
        Set o = moji
        Let o = "A"
    ElseIf VarType(moji) = vbString Then
        moji = "A"
    Else
        Err.Raise 5
    End If
    MOJISET = 0
End Function

#Else

Function MOJISET(moji)
    moji = "A"
    MOJISET = 0
End Function

#End If

■No47441 (tonton さん) に返信
> 「呼び出される側は変更したくない」が希望です。
VB.NET ならば良かったのですけれどね…。


> 型の明示はありません。しかも現在運用されてしまっています（汗）
ByVal/ByRef/As を明示するよう、開発ルールを定めておいた方が良いですよ。
VB6 による“新規の”開発案件があるのならば、ですけれども。


> 事情としては
(中略)
> 私もそれに近い修正を提案したところ子関数を修正すると
そういう事は最初に書いてください。。。(T_T)


> 事情としてはこの子関数を呼び出している箇所が100箇所あったとしてString型の変数を引数にしているところが
> 90箇所、残りの10箇所はTextBoxのTextプロパティを直接引数にしていて、これが値の変換がうまくいっていないのです。
Variant 型の変数を渡している所は無いのですね?


> 残りの90箇所にも影響が出る！という事でなんとか呼び出し側で対応できないか？という事なんです。
とはいえ、「確かに、何も影響が無かった」という事を確認するために、
100箇所すべてテスト対象に含めておいた方が良いかも知れません。
(実際のコードを見ていないので、影響度を読み切れません)


> 今３案で迷っている参考にしたかったのです。
もしも戻り値の判定が不要なら、呼び出し側が
　Text1.Text = Foo(Text1.Text)
となるように実装しておいた方が、「TextBox の内容を書き換えようとしている」という
コードの意図を読み取りやすいと思います；今回の案件に使えるかどうかは別ですが。


> 案３．子関数を修正する（これが本当は一番いい気がするのですが、今回は一番影響があるのでやりたくない上の意向）
具体的には、どのような影響が想定されていますか?
禁止されるだけの正当な理由があるのなら、これを修正案に含めるわけにはいかないと思います。


> 案１．既存の子関数をコピってTextBox用の子関数を別途作る。
それは「ByVal As TextBox」を受け取るプロシージャを作る、という意味でしょうか。
(この場合には、ByRef にする必要は無いでしょうから)

悪くは無いと思いますが、TextBox 以外(MaskEdBox など)を使っているところが出てくると、
さらに追加の処理が必要になってくるのが難点ですね。


> 案２．10箇所に私が考えたようなString型に一度セットしてから引数で渡し、戻った値をまたTextBoxにセットする。
それは、
　s = Text1.Text
　If MOJISET(s) = 0 Then
　　Text1.Text = s
　End If
のようなコードでしょうか。

プロシージャの実装に手を入れられないのであれば、その修正も已む無しですが、
呼び出し側の意図が分かりにくいため、プロジェクトの規模が大きい場合には、
数ヵ月後に、別の担当者が誤って「再修正」してしまう危険性もありそうです。