Создание сетки 10x10 из массива изображений.

[FedX]

Я начинающий в программировании, вот, решил написать "морской бой". Для этого решил создать массив из 100 "image". Но почему-то, сетка отображается не равномерно, а как показано на рисунке во вложении. Не понимаю, почему VB так отображает сетку. Вот код:

Код: Выделить всё

   Размер_клетки = 200
   Отступ_слева = 200
   Отступ_сверху = 200
   a = 1
   For i = 1 To 10
       For j = 1 To 10
           Load imgКлеткаА(a)
           If j = 1 Then
               imgКлеткаА(a).Left = Отступ_слева
           Else
               imgКлеткаА(a).Left = imgКлеткаА(a - 1).Left + Размер_клетки
           End If
           If i = 1 Then
               imgКлеткаА(a).Top = Отступ_сверху
           Else
               imgКлеткаА(a).Top = imgКлеткаА(a - 10).Top + Размер_клетки
           End If
           imgКлеткаА(a).Visible = True
           imgКлеткаА(a).Height = Размер_клетки
           imgКлеткаА(a).Width = Размер_клетки
           a = a + 1
       Next j
   Next i

Не поможете ли вы мне указать на ошибку?

Безымянный.png (1.03 Кб) Просмотров: 496

[coderx]

Работай с пикселями, а то при конвертировании на пиксел, твипы могут быть с плавающей точкой.

[FedX]

Работай с пикселями, а то при конвертировании на пиксел, твипы могут быть с плавающей точкой.

Спасибо, помогло!