by まけイヌ » 2005年7月06日(水) 01:04
> ただ,「返り値に構造体そのものを取れる」ようにするのであれば,
> どうせだから「引数に構造体そのものを取れる」という方も
> やってほしいと思ったので書いたのです(^^;
構造体については同感です。
受け取った構造体をローカルスコープで扱い、
戻り値で変更の加わった構造体を返す事が出来れば、
開発の上で余分なコードも減ってすっきりしますしね。
=============
= 現行ソース
=============
Type Hoge
num1 As Long
num2 As Long
End Type
Dim a As Hoge
Dim b As Hoge
'この情報はどこかしらで入手します。
'今は例なので直接入力しています。
a.num1 = 10
a.num2 = 10
b.num1 = a.num1
b.num2 = a.num2
StructMaintenance(a)
End
Sub StructMaintenance( ByRef a As Hoge)
'構造体の内容を変更
End Sub
=============
=============
= 希望ソース
=============
Type Hoge
num1 As Long
num2 As Long
End Type
Dim a As Hoge
Dim b As Hoge
'この情報はどこかしらで入手します。
'今は例なので直接入力しています。
a.num1 = 10
a.num2 = 10
b = StructMaintenance(a)
End
Function StructMaintenance( ByVal a As Hoge) As Hoge
'構造体の内容を変更
StructMaintenance.num1 = a.num1
StructMaintenance.num2 = a.num2
End Function
=============
まぁ、こういう面倒なコードを黒い箱に隠したいという思考自体は、
C言語から来ているのかもしれませんが..(^^;;;
> ただ,「返り値に構造体そのものを取れる」ようにするのであれば,
> どうせだから「引数に構造体そのものを取れる」という方も
> やってほしいと思ったので書いたのです(^^;
構造体については同感です。
受け取った構造体をローカルスコープで扱い、
戻り値で変更の加わった構造体を返す事が出来れば、
開発の上で余分なコードも減ってすっきりしますしね。
=============
= 現行ソース
=============
Type Hoge
num1 As Long
num2 As Long
End Type
Dim a As Hoge
Dim b As Hoge
'この情報はどこかしらで入手します。
'今は例なので直接入力しています。
a.num1 = 10
a.num2 = 10
b.num1 = a.num1
b.num2 = a.num2
StructMaintenance(a)
End
Sub StructMaintenance( ByRef a As Hoge)
'構造体の内容を変更
End Sub
=============
=============
= 希望ソース
=============
Type Hoge
num1 As Long
num2 As Long
End Type
Dim a As Hoge
Dim b As Hoge
'この情報はどこかしらで入手します。
'今は例なので直接入力しています。
a.num1 = 10
a.num2 = 10
b = StructMaintenance(a)
End
Function StructMaintenance( ByVal a As Hoge) As Hoge
'構造体の内容を変更
StructMaintenance.num1 = a.num1
StructMaintenance.num2 = a.num2
End Function
=============
まぁ、こういう面倒なコードを黒い箱に隠したいという思考自体は、
C言語から来ているのかもしれませんが..(^^;;;