- 387 名前：デフォルトの名無しさん mailto:sage [2011/12/21(水) 22:17:31.77 ]
- >>375
クラスモジュール(Class1)
Function hogesum(ByRef hage As hogeType) As Integer
hogesum = hage.a + hage.b
hage.a = 0
hage.b = 0
End Function
標準モジュール
Public Type hogeType
a As Integer
b As Integer
End Type
Sub test()
Dim hoge As hogeType
Dim c As New Class1
hoge.a = 1
hoge.b = 2
MsgBox c.hogesum(hoge)
MsgBox hoge.a
End Sub
同じように3と0の表示
ためしたのは2007だから、それ以前のバージョンではどうかしらんが、問題なさそうだ
具体的にどういうエラーが出てたのか気になる
