Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Создание сетки 10x10 из изображений. Где ошибка? Добавлено: 19.02.12 14:29  

Автор вопроса:  FedX | ICQ: 578776900 
Помогите найти ошибку! Не могу понять, почему на форме клетки рисуются как на картинке ниже, а не равномерно.
Вот код:
Размер_клетки = 200
    Отступ_слева = 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
            f.Show
        Next j
    Next i

Вот картинка:
<a target="_blank" href="http://imageban.ru/show/2012/02/19/305904ac2f13c5e00b23cceddbfdd28e/jpg"><img src="http://i3.imageban.ru/out/2012/02/19/305904ac2f13c5e00b23cceddbfdd28e.jpg" border="0" style='border: 1px solid #000000'></a>

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 FedX



ICQ: 578776900 

Вопросов: 4
Ответов: 10
 Профиль | | #1 Добавлено: 19.02.12 14:31
http://imageban.ru/show/2012/02/19/305904ac2f13c5e00b23cceddbfdd28e/jpg - вот картинка.
  1.  
  2.     Размер_клетки = 200
  3.     Отступ_слева = 200
  4.     Отступ_сверху = 200
  5.     Ширина_центра = 200
  6.     a = 1
  7.     For i = 1 To 10 'Рисуем первый квадрат
  8.         For j = 1 To 10
  9.             Load imgКлеткаА(a)
  10.             If j = 1 Then
  11.                 imgКлеткаА(a).Left = Отступ_слева
  12.             Else
  13.                 imgКлеткаА(a).Left = imgКлеткаА(a - 1).Left + Размер_клетки
  14.             End If
  15.             If i = 1 Then
  16.                 imgКлеткаА(a).Top = Отступ_сверху
  17.             Else
  18.                 imgКлеткаА(a).Top = imgКлеткаА(a - 10).Top + Размер_клетки
  19.             End If
  20.              
  21.             imgКлеткаА(a).Visible = True
  22.             imgКлеткаА(a).Height = Размер_клетки
  23.             imgКлеткаА(a).Width = Размер_клетки
  24.             a = a + 1
  25.             f.Show
  26.         Next j
  27.     Next i

Ответить

Номер ответа: 2
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
 Профиль | | #2 Добавлено: 21.02.12 00:27
Учли что координаты не в пикселах а в твипах задаются?

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам