Ejemplos usando el Api de windows para Visual basic

40 - Invertir un gráfico en forma horizontal o vertical con el Api StretchBit

Rutina de ejemplo que utiliza el Api StretchBit para invertir cualquier imagen de un control que posea la propiedad HDC, puede ser un formulario o PictureBox

vista del ejemplo con el gráfico invertido

Api StretchBit para invertir imágenes

Se puede invertir una imagen que esté dibujada con los métodos gráficos de visual basic o mediante el uso de funciones Api para dibujo, o un gráfico mediante PaintPicture o Apis similares, es decir no se puede colocar un Mapa de bits cargado con la propiedad Picture ya que no funcionará.

En el ejemplo primero se carga un gráfico en una variable de tipo IpictureDisp. Luego teniendo la imagen en la variable se usa el método PaintPicture para dibujar el archivo cargado en el Picture2. El Api StretchBit que invierte la imagen se le debe pasar en el primer parámetro el Hdc del control destino donde se dibujará la imagen invertida, el otro Hdc es el del Picture2 donde se dibujó anteriormente con PaintPicture.

Controles

2 controles Picture (Picture1 y Picture2)
3 CommandButton (Command1, Command2 y Command3)

Código en un formulario

Option Explicit 'Función Api StretchBit 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 dc As Long 'Para capturar el hdc del Picture donde dibujar con StretchBit Dim X As Long 'Ancho de pantalla en pixels Dim Y As Long 'Alto de pantalla en pixels Private Sub Command1_Click() 'horizontal StretchBlt Picture1.hdc, 0, 0, X, Y, dc, _ X, 0, -X, Y, vbSrcCopy End Sub Private Sub Command2_Click() 'horizontal StretchBlt Picture1.hdc, 0, 0, X, Y, dc, _ X, 0, -X, Y, vbSrcCopy End Sub Private Sub Command3_Click() 'vertical StretchBlt Picture1.hdc, 0, 0, X, Y, dc, _ 0, Y, X, -Y, vbSrcCopy End Sub Private Sub Form_Load() Dim imagen As IPictureDisp 'Cargamos una imagen en la variable Set imagen = LoadPicture("c:\windows\web\wallpaper\tulipanes.jpg") 'Dibujmos un mapa de bits en el Picture2 Picture2.PaintPicture imagen, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight 'Capturamos el Hdc del Picture2 dc = Picture2.hdc 'pasamos de twips a pixels X = Screen.Width / Screen.TwipsPerPixelX Y = Screen.Height / Screen.TwipsPerPixelY End Sub

Invertir gráfico sin el Api

Otra forma de poder invertir un gráfico o imagen para hacer un Flip, pero sin utilizar funciones Api, podria ser utilizando la función PaintPicture de vb

Ejemplo

Colocar dos controles picturebox ( Picture1 y Picture2 ), y también un CommandButton.

Al picture1 cargarle una imagen

Nota: a la función Invertir, se le pasa en el primer parámetro, el control Picture o Form que tiene la imagen. En el segundo parámetro, el control donde ver el resultado, también puede ser un PicBox o Form

Código fuente

Sub Invertir(PicOrigen As Object, _ Destino As Object) Destino.PaintPicture PicOrigen.Image, _ PicOrigen.ScaleWidth, _ 0, -1 * PicOrigen.ScaleWidth, _ PicOrigen.ScaleHeight End Sub Private Sub Command1_Click() Call Invertir(Picture1, Picture2) End Sub Private Sub Form_Load() Command1.Caption = "Invertir imagen " End Sub

Enlaces relacionados:

Buscar en Recursos vb