用VB實現兩幅圖片半透明疊加

    代碼很簡單，就不解釋了，示範VB如何?兩幅圖片半透明疊加的效果。

Option Explicit</p><p>Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long<br />Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long<br />Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long<br />Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long<br />Private Declare Function AlphaBlend Lib "msimg32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal widthSrc As Long, ByVal heightSrc As Long, ByVal blendFunct As Long) As Boolean</p><p>Private Sub Form_Load()<br /> Dim w As Long, h As Long<br /> Dim Pic1 As StdPicture, Pic2 As StdPicture<br /> Dim hMemDc1 As Long, hMemDc2 As Long<br /> Dim hOldBmp1 As Long, hOldBmp2 As Long</p><p> Set Pic1 = LoadPicture("c:/pic1.jpg")<br /> hMemDc1 = CreateCompatibleDC(Me.hdc)<br /> hOldBmp1 = SelectObject(hMemDc1, Pic1.Handle)</p><p> Set Pic2 = LoadPicture("c:/pic2.jpg")<br /> w = Me.ScaleX(Pic2.Width, vbHimetric, vbPixels)<br /> h = Me.ScaleY(Pic2.Height, vbHimetric, vbPixels)<br /> hMemDc2 = CreateCompatibleDC(Me.hdc)<br /> hOldBmp2 = SelectObject(hMemDc2, Pic2.Handle)<br /> AlphaBlend hMemDc1, 0, 0, w, h, hMemDc2, 0, 0, w, h, 100 * &H10000</p><p> DeleteObject SelectObject(hMemDc2, hOldBmp2)<br /> DeleteDC hMemDc2<br /> Set Pic2 = Nothing</p><p> SelectObject hMemDc1, hOldBmp1<br /> DeleteDC hMemDc1<br /> Set Me.Picture = Pic1<br /> Set Pic1 = Nothing<br />End Sub<br />