Программное создание маски для спрайта

[CORBA]

Ищу пример как программно создать маску на VB. Подскажите как это сделать. Заранее благодарен.

PS
Что-то похожее нашёл для Делфи. Но в Vb я не могу найти аналог object.Mask

var
Sprite,Mask:TBitmap;
begin
Sprite:=TBitmap.Create;
Sprite.LoadFromFile('G0100219.bmp');
Mask:=TBitmap.Create;
Mask.LoadFromFile('G0100219.bmp');
Mask.Mask(clBlack); // Создание маски
// Преобразование в маску, после этого получится Bitmap, представленный
// на Рис 2
MaskBlt(Form1.Canvas.Handle, 10,10, Sprite.Width, Sprite.Height,
Sprite.Canvas.Handle,0,0,Mask.MaskHandle,0,0,SRCPAINT);
// После вызова этой функции, экран выглядит как на рисунке 3.
BitBlt(Form1.Canvas.Handle, 10, 10, Sprite.Width, Sprite.Height,
Sprite.Canvas.Handle,0,0, SRCPAINT);
end;

[Demonx]

Но в Vb я не могу найти аналог object.Mask

ИМХО. По моему и не надо, просто используй MaskBlt

[CORBA]

Попробывал. VB вылетел с критической ошибкой.

[Jenizix]

А тег [code]! использовать не забыл????

[ism]

Если я правильно понял вопрос, то вот http://www.vbnet.ru/faq/showtopic.asp?id=367.

[CORBA]

Поковырявшись побольше с MaskBlt всё же кое-что получилось.
Груба говоря получилась копия работы функции BitBlt но желаемоего результата так и не получилось. Одна из главных проблем я не знаю принципов работы с этой функцией и приходится всё вычислять методом научного тыка. Гуру, помогите разобраться.

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

Private Declare Function MaskBlt Lib "gdi32" (ByVal hdcDest As Long, ByVal nXDest As Long, ByVal nYDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal hbmMask As Long, ByVal xMask As Long, ByVal yMask As Long, ByVal dwRop As Long) As Long


Private Sub Command1_Click()
MaskBlt Picture2.hdc, 0, 0, 96, 112, Picture1.hdc, 0, 0, vbBlack, 96, 112, vbSrcCopy
End Sub
' в первом пиктаре находится картинка с чёрным фоном


[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?p=72122#72122

А конкретно,

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

'Маска накладываемой картинки -> maskDC
  prevBkColor = SetBkColor(hSrcDC, crTransparent)
  BitBlt tmpMaskDC, 0, 0, nWidth, nHeight, hSrcDC, xSrc, ySrc, vbNotSrcCopy
  SetBkColor hSrcDC, prevBkColor

[CORBA]

После выполнения этого кода у меня получилась не маска, а инвертированое изображение. Маска - это вроде бы монохромный контур обьекта (например, чёрный на белом фоне).

[GSerg]

Я тебе не законченный кусок кода указал, а суть действий.

Если ты посмотришь выше, то увидишь, что tmpMaskDC содержит монохромный битмап.

[CORBA]

Извините, если надоел уже с этими масками. Итак маску вывести у меня получилось попытался её сохранить :

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

SavePicture Picture2.Picture,"d:\2.bmp"

а она не сохраняется выдаёт ошибку 380 Invalid property value, как быть.

[hCORe]

Попробуй вот так:

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

SavePicture Picture2.Image, "d:\2.bmp"

[CORBA]

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