by kobu » 2006年5月07日(日) 22:31
以下のコードを実行すると、アクセス違反が起こるそうです。
コード: 全て選択
Sub Command(ByRef Pla As Com,mass As Byte)
Pla.Dama=Pla.Dama+mass
Pla.Dama+=mass'ここだけ引っかかる。
End Sub
Type Com
Dama As Integer
End Type
Dim i As Com
i.Dama+=1
Command(i,1)
（使用 ＡＢ Ｖｅｒ4.24.00）
以下のコードを実行すると、アクセス違反が起こるそうです。
[code]
Sub Command(ByRef Pla As Com,mass As Byte)
Pla.Dama=Pla.Dama+mass
Pla.Dama+=mass'ここだけ引っかかる。
End Sub
Type Com
Dama As Integer
End Type
Dim i As Com
i.Dama+=1
Command(i,1)
[/code]
（使用 ＡＢ Ｖｅｒ4.24.00）