Ejemplos usando el Api de windows para Visual basic

104 - PaintPicture, BitBlt y StretchBit

Volver al Listado Api - Anterior - Siguiente

El siguiente ejemplo muestra como utilizar estas funciones para copiar imágenes desde un control Picture hacia otro Picture

El código tiene 3 funciones que hacen exactamente lo mismo, es decir copian un gráfico cargado en un Picturebox en otro control Picturebox, utilizando en una de ellas la función StretchBit, en otra el Api BitBlt y la función de Visual basic PaintPicture

Controles

Colocar 3 Command. Luego un Picture llamado PicOrigen y cargarle un gráfico. También un Picture llamado PicDestino donde se copiará el gráfico:

Código en un formulario:

Option Explicit 'Declaración de las funciones Api StretchBlt y BitBlt '####################################################### 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 StretchBlt Lib "gdi32" (ByVal hDC 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 nSrcWidth As Long, ByVal nSrcHeight As Long, _ ByVal dwRop As Long) As Long Dim Ancho As Single, Alto As Single 'copia con StretchBlt Private Sub Command1_Click() Ancho = PicOrigen.ScaleWidth Alto = PicOrigen.ScaleHeight Call StretchBlt(PicDestino.hDC, 0, 0, Ancho, Alto, _ PicOrigen.hDC, 0, 0, Ancho, Alto, vbSrcCopy) End Sub 'copia con BitBlt Private Sub Command2_Click() Ancho = PicOrigen.ScaleWidth Alto = PicOrigen.ScaleHeight Call BitBlt(PicDestino.hDC, 0, 0, Ancho, Alto, PicOrigen.hDC, 0, 0, &HCC0020) End Sub 'copia con PaintPicture Private Sub Command3_Click() Ancho = PicOrigen.ScaleWidth Alto = PicOrigen.ScaleHeight PicDestino.PaintPicture PicOrigen.Picture, 0, 0 End Sub Private Sub Form_Load() PicDestino.Width = PicOrigen.Width PicDestino.Height = PicOrigen.Height Command1.Caption = " Copiar con StretchBit " Command2.Caption = " Copiar con BitBlt " Command3.Caption = " Copiar con PaintPicture " End Sub

Buscar en Recursos vb