Проблемы с For ... Next в Vb. Сеть

Question

Пока это мой код

---

        For intArrayCheck = 0 To 16
            foo = sender.name
            If foo = strShipsLocationArray(intArrayCheck) Then
                MessageBox.Show("You got a ship down!")
                sender.backcolor = Color.Red
            End If
        Next

Я хочу, чтобы код выполнялся, если foo не равен ни одной из строк в strShipLocationsArray, тогда

---

        sender.backcolor = Color.Blue

Как мне это сделать?

Спасибо за любую помощь

Answer 1

Установите его в синий цвет перед входом в цикл. Так что если изменится If foo=strShipsLocationArray(intArrayCheck), в противном случае он останется синим

Answer 2

Всегда устанавливайте синий цвет перед циклом. Таким образом, если он никогда не будет установлен красным в течение цикла, он все равно будет синим после этого, поэтому конечный результат всегда будет таким, как требуется.

Если установка этого свойства имеет немедленный побочный эффект, используйте временную переменную и присвойте ее sender.backcolor после завершения цикла.