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）
ユーザー登録
ログイン
FAQ
検索