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)
(使用 AB Ver4.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]
(使用 AB Ver4.24.00)