本范例是以一個stdPicture物件來存圖形，之後於PictureBox中以特殊效果來顯示。
    因為我們想顯示的只有一個圖，所以不想多用另一個PictureBox來存原始圖，而後再畫到另一個PictureBox上，那只有用StdPicture 物件來取代PictureBox(存來源圖)，但是BitBlt這個繪圖函式需來源與目的的hDc，而StdPicture物件沒有hDc，它只有一個Handle值，以本例來說，這Handle值便是圖形的hBitmap值。所以我們只好使用MemoryDC的方式來做，產(chǎn)生一MemoryDc後將BitMap圖放於其上，之後便可以使用BitBlt來繪圖了。´需求一個PictureBox( Named picture2)，一個Command按鍵)
    Option Explicit
    Private Declare Function BitBlt Lib "gdi32" (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 dwRop As Long) As Long
    Private Declare Function CreateCompatibleDC Lib "gdi32" _
    (ByVal hdc As Long) As Long
    Private Declare Function SelectObject Lib "gdi32" _
    (ByVal hdc As Long, ByVal hObject As Long) As Long
    Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
    Const SRCCOPY = &HCC0020
    Private Picture1 As New StdPicture
    Private Sub Command1_Click()
    Dim i As Long
    Dim j As Long
    Dim height5 As Long, width5 As Long
    Dim hMemDc As Long
    ´stdPicture物件的度量單位是Himetric所以要轉(zhuǎn)換成Pixel
    height5 = ScaleY(Picture1.Height, vbHimetric, vbPixels)
    If height5 > Picture2.ScaleHeight Then
    height5 = Picture2.ScaleHeight
    End If
    width5 = ScaleX(Picture1.Width, vbHimetric, vbPixels)
    If width5 > Picture2.ScaleWidth Then
    width5 = Picture2.ScaleWidth
    End If
    ´Create Memory DC
    hMemDc = CreateCompatibleDC(Picture2.hdc)
    ´將Picture1的BitMap圖指定給hMemDc
    Call SelectObject(hMemDc, Picture1.Handle)
    For i = height5 To 1 Step -1
    Call BitBlt(Picture2.hdc, 0, i, width5, 1, _
    hMemDc, 0, i, SRCCOPY)
    For j = i - 1 To 1 Step -1
    Call BitBlt(Picture2.hdc, 0, j, width5, 1, _
    hMemDc, 0, i, SRCCOPY)
    Next j
    Next
    Call DeleteDC(hMemDc)
    End Sub
    Private Sub Form_Load()
    Dim i As Long
    Picture2.ScaleMode = 3 ´設(shè)定成Pixel的度量單位
    ´設(shè)定待Display的圖
    Set Picture1 = LoadPicture("c:\windows\素還真.bmp")
    ´ ^^^^^^^^^^^^^^^^^^^^^^
    ´ Load the picture we want to show
    End Sub
    返回
    Shrinking Icons Down to Size
    Abstract
    You can use the Windows application programming interface (API)
    BitBlt function to modify the size of an icon. This article explains
    how to enlarge or shrink an icon.
    Modifying an Icon´s Size
    You can use the Windows application programming interface (API)
    BitBlt function to create an icon that is smaller or larger than the
    original icon. The BitBlt function copies a memory device context to
    another memory device context. (A memory device context is a block of
    memory that represents a display surface, such as an Image or Picture
    Box control. See Tip 31: "Creating the Windows Wallpaper Effect for a
    complete explanation of the BitBlt function.)
    In the example program below, we first load an icon into an Image
    control. Then we modify the Image control´s Height and Width
    properties so the icon becomes 75 percent smaller than its original
    size. The BitBlt function is then used to copy the icon stored in the
    Image control to the Picture Box control.