コード: 全て選択
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)
コード: 全て選択
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)