VPF::Выравнивание Image по сетке - Форум программистов

VisualProg

Дата 9.7.2008, 15:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 9.7.2008

Репутация: нет
Всего: нет

Как выравнивать Image (их много-много!) по сетке 735X735 с отступом по X с права 225 и по Y с верху на 615?

Akina

Дата 9.7.2008, 15:41 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Код


for i=0 to M
for j = 0 to N
Image(i*N+j).Left = 735*j+225
Image(i*N+j).Top = 735*i+615
next j
next i

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

VisualProg

Дата 12.7.2008, 08:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 9.7.2008

Репутация: нет
Всего: нет

Akina - вообщето это немного не то что мне надо, попытаюсь обьяснить иначе:
У меня форма -
Height = 15360
Width = 19200
На форме, размещаются бесконечное число Image (Heigth = 735 Width = 735), как сделать так, что бы облегчить следующий код:

Код


If (Image1(0).Left >= 240) and  (Image1(0).Left <= 975) Then
Image1(0).Left = 240
End if

Так же и с Top-ом, в программе 416 клеток, а это 416*6 строчек такого кода, возможно ли упростить такой код, и чтобы он действовал на все Image?

Это сообщение отредактировал(а) VisualProg - 12.7.2008, 08:51

Akina

Дата 12.7.2008, 09:11 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Код


for i = 0 to 415
   If (Image1(i).Left > 240) and  (Image1(i).Left <= 975) Then
      Image1(i).Left = 240
   End if
next i

Дальше упрощать имхо некуда.

--------------------

VisualProg

Дата 12.7.2008, 09:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 9.7.2008

Репутация: нет
Всего: нет

Вот, хоть немного упрощяет, спасибо Akina!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »