Предыдущая страница реферата | 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 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки