Jak vytvo�it pr�hledn� bitmapy jazyka Visual Basic

1. Ulo�te oblast nebo pozad�, kam sm��uje rastr se stanov�.
2. Vytvo�it masku monochromatick� bitov� mapy, kter� identifikuje pr�hledn� oblasti bitmapy pomoc� b�l� obrazov� body ozna�uj� pr�hledn� oblasti a �ern� obrazov� bod ozna�uj�c� nepr�hledn� oblasti bitmapy.
3. Kombinovat obrazov� body monochromatick� masky s rastrov� obr�zek na pozad� Pou�it� bin�rn�ho oper�toru. Oblast pozad�, kde Zobraz� nepr�hledn�ch ��st bitmapy je provedeno v �ern�.
4. Kombinovat se zdrojem obr�cen� kopie monochromatick� masky (krok 2) rastrov� obr�zek pomoc� bin�rn�ho oper�toru. Pr�hledn� oblasti zdrojov� bitmapa bude k �ern�.
5. Kombinovat s upravenou zdrojov� bitmapa upraven� pozad� (krok 3) (krok 4) pomoc� bin�rn� oper�tor Xor. Pozad� bude prosv�tat. pr�hledn� ��sti bitmapy.
6. Zkop�rujte v�sledn� rastrov� obr�zek na pozad�

P��klad k�du

1. Spus�te aplikaci Visual Basic nebo z nab�dky Soubor zvolte nov� projekt (ALT, F, N) Pokud aplikace Visual Basic je ji� spu�t�na. Ve v�choz�m nastaven� je vytvo�en formul�� Form1.
2. P�idejte n�sleduj�c� ovl�dac� prvky do formul��e Form1 s hodnotami vlastnost�:
   

      Control          Name (or CtlName)  Property Settings
      -----------------------------------------------------------------
      Picture          pictSource         Picture ="WINDOWS\THATCH.BMP"
      Picture          pictDest           Picture ="WINDOWS\ARCHES.BMP"
      Command button   cmdCopy            Caption ="Copy"
   
   						

3. Z nab�dky Soubor zvolte nov� modul (ALT, F, M). Modul 1 je vytvo�en.
4. N�sleduj�c� k�d p�idejte do ud�lostn� procedury cmdCopy_Click Formul��1. Tento k�d vol� funkci TransparentBlt() zkop�rovat zdrojov� rastrov� obr�zek ovl�dac� prvek Obr�zek c�l (pozad�). B�l� (QBColor(15)) plochy bitmapy jsou neviditeln� proti rastrov� obr�zek na pozad�.
   

      Sub cmdCopy_Click ()
        Call TransparentBlt(pictDest, pictSource.Picture, 10, 10, QBColor(15))
      End Sub
   
   						

5. P�idejte n�sleduj�c� k�d obecn� deklara�n� sekce modul 1. Zadejte ka�d� p��kaz Declare jako jeden, jeden ��dek:
   

      Type bitmap
         bmType As Integer
         bmWidth As Integer
         bmHeight As Integer
         bmWidthBytes As Integer
         bmPlanes As String * 1
         bmBitsPixel As String * 1
         bmBits As Long
      End Type
   
      Declare Function BitBlt Lib "GDI" (ByVal srchDC As Integer, ByVal srcX
         As Integer, ByVal srcY As Integer, ByVal srcW As Integer, ByVal srcH
         As Integer, ByVal desthDC As Integer, ByVal destX As Integer, ByVal
         destY As Integer, ByVal op As Long) As Integer
      Declare Function SetBkColor Lib "GDI" (ByVal hDC As Integer, ByVal
         cColor As Long) As Long
      Declare Function CreateCompatibleDC Lib "GDI" (ByVal hDC As Integer)
         As Integer
      Declare Function DeleteDC Lib "GDI" (ByVal hDC As Integer) As Integer
      Declare Function CreateBitmap Lib "GDI" (ByVal nWidth As Integer, ByVal
         nHeight As Integer, ByVal cbPlanes As Integer, ByVal cbBits As
         Integer, lpvBits As Any) As Integer
      Declare Function CreateCompatibleBitmap Lib "GDI" (ByVal hDC As Integer,
         ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer
      Declare Function SelectObject Lib "GDI" (ByVal hDC As Integer, ByVal
         hObject As Integer) As Integer
      Declare Function DeleteObject Lib "GDI" (ByVal hObject As Integer) As
         Integer
      Declare Function GetObj Lib "GDI" Alias "GetObject" (ByVal hObject As
         Integer, ByVal nCount As Integer, bmp As Any) As Integer
      Const SRCCOPY = &HCC0020
      Const SRCAND = &H8800C6
      Const SRCPAINT = &HEE0086
      Const NOTSRCCOPY = &H330008
   
   						

6. V ��sti Obecn� prohl�en� p�idejte n�sleduj�c� proceduru typu Sub Modul 1. TransparentBlt() p�ij�m� �est parametr�: c�lov� obr�zek ovl�dac� prvek (dest) zdrojov� bitmapa se pr�hledn� (srcBmp), X, Y sou�adnice v pixelech, kam chcete um�stit zdrojov� bitmapa c�l (destX a destY) a hodnota RGB pro po�adovanou barvu b�t pr�hledn�. TransparentBlt() zkop�ruje zdrojov� bitmapa x, Y um�st�n� na pozad� a pr�hledn� oblasti.
   

      Sub TransparentBlt (dest As Control, ByVal srcBmp As Integer, ByVal
         destX As Integer, ByVal destY As Integer, ByVal TransColor As Long)
         Const PIXEL = 3
         Dim destScale As Integer
         Dim srcDC As Integer  'source bitmap (color)
         Dim saveDC As Integer 'backup copy of source bitmap
         Dim maskDC As Integer 'mask bitmap (monochrome)
         Dim invDC As Integer  'inverse of mask bitmap (monochrome)
         Dim resultDC As Integer 'combination of source bitmap & background
         Dim bmp As bitmap 'description of the source bitmap
         Dim hResultBmp As Integer 'Bitmap combination of source & background
         Dim hSaveBmp As Integer 'Bitmap stores backup copy of source bitmap
         Dim hMaskBmp As Integer 'Bitmap stores mask (monochrome)
         Dim hInvBmp As Integer  'Bitmap holds inverse of mask (monochrome)
         Dim hPrevBmp As Integer 'Bitmap holds previous bitmap selected in DC
         Dim hSrcPrevBmp As Integer  'Holds previous bitmap in source DC
         Dim hSavePrevBmp As Integer 'Holds previous bitmap in saved DC
         Dim hDestPrevBmp As Integer 'Holds previous bitmap in destination DC
         Dim hMaskPrevBmp As Integer 'Holds previous bitmap in the mask DC
         Dim hInvPrevBmp As Integer 'Holds previous bitmap in inverted mask DC
         Dim OrigColor As Long 'Holds original background color from source DC
         Dim Success As Integer 'Stores result of call to Windows API
         If TypeOf dest Is PictureBox Then 'Ensure objects are picture boxes
           destScale = dest.ScaleMode 'Store ScaleMode to restore later
           dest.ScaleMode = PIXEL 'Set ScaleMode to pixels for Windows GDI
           'Retrieve bitmap to get width (bmp.bmWidth) & height (bmp.bmHeight)
           Success = GetObj(srcBmp, Len(bmp), bmp)
           srcDC = CreateCompatibleDC(dest.hDC)    'Create DC to hold stage
           saveDC = CreateCompatibleDC(dest.hDC)   'Create DC to hold stage
           maskDC = CreateCompatibleDC(dest.hDC)   'Create DC to hold stage
           invDC = CreateCompatibleDC(dest.hDC)    'Create DC to hold stage
           resultDC = CreateCompatibleDC(dest.hDC) 'Create DC to hold stage
           'Create monochrome bitmaps for the mask-related bitmaps:
           hMaskBmp = CreateBitmap(bmp.bmWidth, bmp.bmHeight, 1, 1, ByVal 0&)
           hInvBmp = CreateBitmap(bmp.bmWidth, bmp.bmHeight, 1, 1, ByVal 0&)
           'Create color bitmaps for final result & stored copy of source
           hResultBmp = CreateCompatibleBitmap(dest.hDC, bmp.bmWidth,
              bmp.bmHeight)
           hSaveBmp = CreateCompatibleBitmap(dest.hDC, bmp.bmWidth,
              bmp.bmHeight)
           hSrcPrevBmp = SelectObject(srcDC, srcBmp)     'Select bitmap in DC
           hSavePrevBmp = SelectObject(saveDC, hSaveBmp) 'Select bitmap in DC
           hMaskPrevBmp = SelectObject(maskDC, hMaskBmp) 'Select bitmap in DC
           hInvPrevBmp = SelectObject(invDC, hInvBmp)    'Select bitmap in DC
           hDestPrevBmp = SelectObject(resultDC, hResultBmp) 'Select bitmap
           Success = BitBlt(saveDC, 0, 0, bmp.bmWidth, bmp.bmHeight, srcDC,
              0, 0, SRCCOPY) 'Make backup of source bitmap to restore later
           'Create mask: set background color of source to transparent color.
           OrigColor = SetBkColor(srcDC, TransColor)
           Success = BitBlt(maskDC, 0, 0, bmp.bmWidth, bmp.bmHeight, srcDC,
              0, 0, SRCCOPY)
           TransColor = SetBkColor(srcDC, OrigColor)
           'Create inverse of mask to AND w/ source & combine w/ background.
           Success = BitBlt(invDC, 0, 0, bmp.bmWidth, bmp.bmHeight, maskDC,
             0, 0, NOTSRCCOPY)
           'Copy background bitmap to result & create final transparent bitmap
           Success = BitBlt(resultDC, 0, 0, bmp.bmWidth, bmp.bmHeight,
              dest.hDC, destX, destY, SRCCOPY)
           'AND mask bitmap w/ result DC to punch hole in the background by
           'painting black area for non-transparent portion of source bitmap.
           Success = BitBlt(resultDC, 0, 0, bmp.bmWidth, bmp.bmHeight,
              maskDC, 0, 0, SRCAND)
           'AND inverse mask w/ source bitmap to turn off bits associated
           'with transparent area of source bitmap by making it black.
           Success = BitBlt(srcDC, 0, 0, bmp.bmWidth, bmp.bmHeight, invDC,
              0, 0, SRCAND)
           'XOR result w/ source bitmap to make background show through.
           Success = BitBlt(resultDC, 0, 0, bmp.bmWidth, bmp.bmHeight,
              srcDC, 0, 0, SRCPAINT)
           Success = BitBlt(dest.hDC, destX, destY, bmp.bmWidth, bmp.bmHeight,
              resultDC, 0, 0, SRCCOPY) 'Display transparent bitmap on backgrnd
           Success = BitBlt(srcDC, 0, 0, bmp.bmWidth, bmp.bmHeight, saveDC,
              0, 0, SRCCOPY) 'Restore backup of bitmap.
           hPrevBmp = SelectObject(srcDC, hSrcPrevBmp) 'Select orig object
           hPrevBmp = SelectObject(saveDC, hSavePrevBmp) 'Select orig object
           hPrevBmp = SelectObject(resultDC, hDestPrevBmp) 'Select orig object
           hPrevBmp = SelectObject(maskDC, hMaskPrevBmp) 'Select orig object
           hPrevBmp = SelectObject(invDC, hInvPrevBmp) 'Select orig object
           Success = DeleteObject(hSaveBmp)   'Deallocate system resources.
           Success = DeleteObject(hMaskBmp)   'Deallocate system resources.
           Success = DeleteObject(hInvBmp)    'Deallocate system resources.
           Success = DeleteObject(hResultBmp) 'Deallocate system resources.
           Success = DeleteDC(srcDC)          'Deallocate system resources.
           Success = DeleteDC(saveDC)         'Deallocate system resources.
           Success = DeleteDC(invDC)          'Deallocate system resources.
           Success = DeleteDC(maskDC)         'Deallocate system resources.
           Success = DeleteDC(resultDC)       'Deallocate system resources.
           dest.ScaleMode = destScale 'Restore ScaleMode of destination.
         End If
      End Sub
   
   						

7. Z nab�dky Spustit klepn�te na tla��tko Start (ALT, R, S), spus�te program.
8. Klepn�te na tla��tko Kop�rovat. Thatched vzorek na prvn�m obr�zku je zkop�rovat do druh�ho obr�zku (obr�zek arches) proveden� podb�z�ch zobrazit prost�ednictv�m oblast� d��ve b�l� thatched vzorku.

Zp�t nahoru | Dejte n�m zp�tnou vazbu