hey im having a little trouble ,i have five blue tanks on the form and ive tried
to setup a dead or alive .state .im missing something because i keep getting errors .methed or data member not found on .state part .its probly simple
but i cant see it
thanks
Code:Option Explicit Private Enum bouncedir upLeft = 1 upright = 2 downLeft = 3 downright = 4 up = 5 down = 6 Left = 7 Right = 8 End Enum Private Const ALIVE As Integer = 10 Private Const DEAD As Integer = 20 Private Const max_tanks As Integer = 5 Private Const MAX_DISTANCE = 200 Dim Running As Boolean Public state As Integer Private xdir(0) As bouncedir '~~~~ using an array Private ydir(0) As bouncedir '~~~~ using an array Sub Inittanks() ' init variables for start-up Dim i As Integer For i = 0 To max_tanks With blue(i) .state = ALIVE End With Next i End Sub




Reply With Quote