Глюки с BitBlt

[Oxygen]

Привет всем. Проблема такая - есть текст есть прога и есть в ней глюк. Пол-бессонной ночи в попытках его найти ни к чему не привели. Может кто поможет? При использовании API-функции BitBlt почему-то за место нормального перемещения шарика по PictureBox'у откуда-то берется черный квадрат.

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

'Picture1 - PictureBox с основным рисунком
'Picture2 - PictureBox с шариком на белом фоне
'Picture3 - PictureBox c маской
'Picture4 - PictureBox, в который копируется фон
'везде свойство autoredraw=true, измерение стоит в пикселах.
Public x, y As Integer


Private Sub Form_Load()
' установка начальных координат
x = 10
y = 10
' копирование фона который будет скрыт шариком
Call BitBlt(Picture4.hDC, 0, 0, 50, 50, Picture1.hDC, x, y, vbSrcCopy)
Picture4.Refresh
' включение таймера
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
' копирование фона, скрытого шариком на основную картинку
Call BitBlt(Picture1.hDC, x, y, 50, 50, Picture4.hDC, 0, 0, vbScrCopy)
Picture1.Refresh
' сдвижение шарика
x = x + 1
y = y + 1
' копирование фона который будет скрыт шариком
Call BitBlt(Picture4.hDC, 0, 0, 50, 50, Picture1.hDC, x, y, vbSrcCopy)
Picture4.Refresh
' копирование маски и шарика на основную картинку
Call BitBlt(Picture1.hDC, x, y, 50, 50, Picture3.hDC, 0, 0, vbMergePaint)
Call BitBlt(Picture1.hDC, x, y, 50, 50, Picture2.hDC, 0, 0, vbSrcAnd)
Picture1.Refresh
End Sub


[GSerg]

Сюда позырь...

[Oxygen]

Спасибо за сылку - посмотрела я этот пример. Он у меня глючит так же как и моя прога - заместо прозрачности я получаю черный квадрат с изображением. Может дело не в моей проге а в самой функции? Или в Windows - VB5, Windows2000Pro. Люди, подскажите что можно сделать. В архиве сам глюк, вернее его рисунок.

[Tauron]

Вместо Form_Load сделай Initialize или еще лучше Click. Во время загрузки у тебя может быть в PictureBox нифига нет.

[GSerg]

Поставь 32-битный цвет рабочего стола.

[GoGosha]

А вот мой вариант этой длл(только он чисто тестовый и использует картинки с моего диска)

[SHAN]

По поему опыту, первое изображение должно быть с черным фоном и рисоватться с помощью vbSrcPaint, а второе изображение - с белым фоном и рисуется с помощью vbSrcAnd. Я так всегда делал - всегда работало (и работает ).

[GoGosha]

У моей библы, да и у Alpha24 куча преимуществ перед BitBlt
Во первых чтоб рисовать необязательно помещать картинку в пикчебокс. Во-вторых там моно рисовать куда угодно, даже в переменную типа IPictureDisp в-третьих маска осуществляется простым вызовом функции с заданием прозрачного цвета(требуется одна картинка, а в BitBlt-две: маска и картинка, а следовательно два пикчабокса) и в третьих замечательная функция Alpha позволяющая зделать прозрачную картинку

[Oxygen]

А никто не подскажет, что быстрее работает при анимации (перемещении)? Если объектов много BitBlt немного тормозит.