Техника программирования сложных окон в Visual Basic
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: изложение лицей, курсовик
| Добавил(а) на сайт: Жутов.
Предыдущая страница реферата | 1 2 3 4 | Следующая страница реферата
Dim lY As Long
Dim lHeight As Long
Dim lWidth As Long
'создаем пустой регион, с которого начнем работу
lSkinRgn = CreateRectRgn(0, 0, 0, 0)
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
Рекомендуем скачать другие рефераты по теме: баллов, образец титульный реферата.
Категории:
Предыдущая страница реферата | 1 2 3 4 | Следующая страница реферата
Главная