Реферат: Техника программирования сложных окон в Visual Basic

With pic

'подсчитаем размеры рисунка в Pixel

lHeight = .Height / Screen.TwipsPerPixelY

lWidth = .Width / Screen.TwipsPerPixelX

For lX = 0 To lHeight - 1

lY = 0

Do While lY < lWidth

'ищем нужный Pixel

Do While lY < lWidth And GetPixel(.hDC, lY, lX) = lBackColor

lY = lY + 1

Loop

If lY < lWidth Then

lStart = lY

Do While lY < lWidth And GetPixel(.hDC, lY, lX) <> lBackColor

lY = lY + 1

Loop

If lY > lWidth Then lY = lWidth

'нужный Pixel найден, добавим его в регион

lRgn = CreateRectRgn(lStart, lX, lY, lX + 1)

CombineRgn lSkinRgn, lSkinRgn, lRgn, RGN_OR

DeleteObject lRgn

End If

Loop

Next

End With

lGetRegion = lSkinRgn

End Function

Итак, для проверки на практике этого алгоритма загрузите пример pTestRgnSkin и внимательно изучите его код. В этом проекте нужный нам рисунок, для удобства, <зашит> в файле ресурсов, кроме того проект запускается процедурой Main, в которой и происходят все преобразования. Вначале загружается форма, затем в PictureBox из ресурсов загружается нужный нам рисунок, далее вызывается функция, которая создает регион и, наконец, завершающий этап - прикрепление региона к нужному нам окну. Для удобства здесь же вызывается функция, помещающая окно <поверх всех>, чтобы оно <не потерялось> у Вас на рабочем столе Windows. Кроме того, для нормальной работы программы необходимо, чтобы для PictureBox свойство AutoRedraw было установленно в True, иначе ничего не получится.

Sub Main()