Картинки, маски и задние планы...

[Winitar]

Вопрос - Вопрос краток: "Как убирать на нарисованной, например в Paint'е, картинке задний план?"
Поясняю - "Рисую для игры, опять же в Paint'е человечка. Вставляю готовую картинку в Basic... Но вот проблема человечек вставляется, даже двигать можно, а заним двигаетя и белый(черный, красный... и т.д.) квадратик!"
Итог - Как сделать, что б человечек ходил один, без всяких квадратиков сзади?


Может вопрос и туп , но всё уже перепробовал! Help!

[dr.MIG]

Задний план убрать не проблема. Но как я понял, картинка выводится или в PictureBox или в Image... Не серьёзно это как-то:) Я бы посоветовал, если интересует создание игр, сразу использовать DirectX, в частности для данного случая DirectDraw.

[tyomitch]

Про работу с маской без DX см. http://bbs.vbstreets.ru/viewtopic.php?t=29140

[JohnK]

Задний план убрать не проблема. Но как я понял, картинка выводится или в PictureBox или в Image... Не серьёзно это как-то:) Я бы посоветовал, если интересует создание игр, сразу использовать DirectX, в частности для данного случая DirectDraw.

Гм... В paint.exe рисовать, уже не серьезно
PhotoShop рулит!

[tyomitch]

Устное предупреждение за бессодержательный флейм-бейт.

[Winitar]

tyomitch, извини, опять же повторяюсь - я новичёк...
А кому предупреждение то?
И что есть бессодержательный флейм-бейт?
---------------------------------------------------------------------
А за советы пасиб! Действительно у вас классный форум!!!

[zan]

Я бы посоветовал, если интересует создание игр, сразу использовать DirectX, в частности для данного случая DirectDraw.

Ну почему всегда так сложно? Человеку может проще начинать с чего-либо простого... С bitblt, tile’ми там, алгоритмы и т.п.

Гм... В paint.exe рисовать, уже не серьезно
PhotoShop рулит!

Чем же рулит фотошоп в отличие от paint’а? Pixel’ной графикой то хоть занимались? Иногда проще, и правильнее по цветопередаче нарисовать спрайт 16x16 именно в paint’е...

[tyomitch]

tyomitch, извини, опять же повторяюсь - я новичёк...
А кому предупреждение то?
И что есть бессодержательный флейм-бейт?

Предупреждение было JohnK, и оно уже не устное.

Гм... В paint.exe рисовать, уже не серьезно
PhotoShop рулит!

Чем же рулит фотошоп в отличие от paint’а? Pixel’ной графикой то хоть занимались? Иногда проще, и правильнее по цветопередаче нарисовать спрайт 16x16 именно в paint’е...

Предлагаю на этом дискуссию и завершить. Не кормите троллей.

[Winitar]

Ну почему всегда так сложно? Человеку может проще начинать с чего-либо простого... С bitblt, tile’ми там, алгоритмы и т.п.

Не знаешь, где можно найти статейку по всяким там bitblt...?
Я с этим встречался пару раз, но мало чё понял...!!

[Mikle]

Winitar
Может это поможет:
http://bbs.vbstreets.ru/viewtopic.php?t=24007

[Wolfie]

Да, кстати - чтобы не возится - может проще тогда рисовать не пэинтом а в GIF сохранять како-либо программой, уже без фона - тогда вообще не понадобится дополнительных алгоритмов для очистки фона.
Еще ico неплохой формат для подобного дела - если нет желания ковырять функции и спец. алгоритмы - советую для ico-спрайтов MicroAngelo - удобно и ico любого размера делает (от 8х8 до 128х128))

[AstSV]

Я для этих целей сделал контрол, который имеет форму картинки, которую ты в него помещаешь (цвет фона картинки обрезается). Далее ты двигаешь объект не заботясь о том, что под ним окажется.
Вобщем-то сам я использую его для сооздания кнопок и окон произвольной формы.
Но можно использовать и PaintPicture, тогда вот так:
'На форме размести три объекта Picture: Picture1,Picture2,Picture3
'и установи для них свойство AutoRedraw = True и свойство Visible = False
'Для Picture2,Picture3 установи свойство AutoSize = True
'Помести в Picture2 желаемую картинку, например яблоко на белом фоне.
'Помести в Picture3 чёрное яблоко на белом фоне - это маска.
'Желательно, чтобы картинки были bmp или gif.
'
'Запиши и выполни следующий код:
Option Explicit
'
Dim wP As Long 'Ширина картинки и маски
Dim hP As Long 'Высота картинки и маски
'
Dim xT As Long 'Координата-x мышки на форме
Dim yT As Long 'Координата-y мышки на форме
'
Dim wF As Long 'Размеры картинки, которую ты будешь "двигать"
Dim hF As Long
'
Private Sub Form_Load()
'Размеры исходной картинки
wP = Picture2.ScaleWidth
hP = Picture2.ScaleWidth
'Определи размеры картинки, которую ты будешь "двигать",
'например в 2 раза меньше исходной.
wF = wP / 2
hF = hP / 2
'Picture1 служит для временного хранения фона.
Picture1.Width = wF
Picture1.Height = hF
'Скопируем фон в Picture1
'При загрузке xt=0, yt=0
Picture1.PaintPicture Form1.Image, 0, 0, wF, hF, xT, yT, wF, hF, vbSrcCopy
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Восстановим фон
Form1.PaintPicture Picture1.Image, xT, yT, wF, hF, 0, 0, wF, hF, vbSrcCopy
'Скопируем фон
xT = X
yT = Y
Picture1.PaintPicture Form1.Image, 0, 0, wF, hF, X, Y, wF, hF, vbSrcCopy
'Поместим на это место картинку.
Form1.PaintPicture Form1.Picture3.Image, xT, yT, wF, hF, 0, 0, wP, hP, vbMergePaint
Form1.PaintPicture Form1.Picture2.Image, xT, yT, wF, hF, 0, 0, wP, hP, vbSrcAnd
End Sub
'Кликай на форме левой кнопкой мыши.