Деление Picture на фрагменты

[DmB]

В PictureBox ну скажем 400*400 пикселей загружается *bmp, есть массив из 400 Image 20*20 пикселей, как разделить PictureBox на 400 фрагментов соответственно 20*20 пикселей и как эти фрагменты перекинуть в массив Image?

[Ennor]

Поищи по форуму BitBlt...

[DmB]

Искал и по форумам и на www.pscode.com, ничего похожего, помогите очень надо!

[A.A.Z.]

Вот тут было...
http://bbs.vbstreets.ru/viewtopic.php?t=9568
Точнее, тут:
http://bbs.vbstreets.ru/viewtopic.php?p=59375#59375

[DmB]

Уважаемый A.A.Z. огромное спасибо!
Я искал по форуму BitBlt, а всё оказалось проще...
Не сочтите за наглость, но для совсем тупых не могли бы Вы подсказать, как загрузить эти фрагментики в массив Image, желательно конечно не сохраняя все эти катринки на диск...

[DmB]

Sorry, с сохранением разобрался, но возникла другая проблема из-за которой не работает весь проект:

If Image(i).Picture = fon.Picture Then
тут происходит некое действие, вернее не происходит т.к.
эти картинки выходит не равны...
fon.Picture - рисунок образец(такой же, какой загружен в Image(i)
Что не так?

[Mleha]

Давай проект, разберемся!

[DmB]

Ну где же все зубры VB?

[GM]

Самый легкий способ
Создаеш дополнительный PictureBox, называеш его picTemp, далее:
pictemp.autoredraw = true

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

dim i as integer, j as integer,k as integer
for i = 0 to 19
for j = 0 to 19
k = k +1
call pictemp.PaintPicture(picMain,0,0,20,20,i * 20,j* 20,20,20)
set img(k).picture = pictemp.image
next
next


Незнаю, не тестировал возможно не работает.

[DmB]

Самый легкий способ
Создаеш дополнительный PictureBox, называеш его picTemp, далее:
pictemp.autoredraw = true

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

dim i as integer, j as integer,k as integer
for i = 0 to 19
for j = 0 to 19
k = k +1
call pictemp.PaintPicture(picMain,0,0,20,20,i * 20,j* 20,20,20)
set img(k).picture = pictemp.image
next
next


Незнаю, не тестировал возможно не работает.

Спасибо большое, всё работает, проблема в другом, возможно сама идея неверна:
из *bmp-ки, а это уровень игры передать информацию в текстовой массив, после загрузки в img(k) выполняется проверка и если img(k).picture = образец.picture то в текстовую строку пишется буква, но это как раз и не работает...