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)