Sección de códigos, trucos y ejemplos para visual basic

 

 

116 - Imprimir imagen con Zoom

<Volver> - Anterior - Siguiente

 

 

 

---

 

El siguiente ejemplo muestra como imprimir un gráfico y especificar el valor o factor de Zoom.

 

En el código hay una Sub llamada Imprimir_Imagen, a la cual se le debe enviar como parámetro el control PictureBox que contiene la imagen a imprimir, y en el segundo parámetro el valor del Zoom.

 

Ejemplo

• Colocar Un control PictureBox
• un Command1
• un Hscrollbar como se ve en la imagen:

 

 

 

Código en un formulario

Option Explicit Private Sub Form_Load() Command1.Caption = " Imprimir imagen " 'Valores del Scroll para el factor de Zoom HScroll1.Min = 1 HScroll1.Max = 10 End Sub Private Sub Command1_Click() 'Le enviamos el Gráfico cargado en el Picture1 y en el segundo _ parámetro el Factor de ZOOM Call Imprimir_Imagen(Picture1.Picture, HScroll1.Value * 0.5) End Sub Private Sub HScroll1_Change() 'Mostramos el Valor del ZOOM en el caption del form Me.Caption = " Valor del ZOOM: " & HScroll1.Value * 0.5 End Sub Private Sub HScroll1_Scroll() Me.Caption = " Valor del ZOOM: " & HScroll1.Value * 0.5 End Sub Private Sub Imprimir_Imagen(Pic As StdPicture, ZOOM As Double) Printer.Print 'Dibujamos la imagen multiplicando el ancho y alto por el valor del ZOOM Printer.PaintPicture Pic, 0, 0, Pic.Width * ZOOM, _ Pic.Height * ZOOM, 0, 0, Pic.Width, _ Pic.Height 'Mandamos a imprimir la imagen Printer.EndDoc End Sub

 

Recursos visual basic 6.0 - Enlaces relacionados

• Hacer zoom a una imagen
• Ocx para hacer Zoom de la pantalla

 

Recursos vb.net - Relacionados

• Zoom en pictureBox mediante la propiedad sizeMode

 

Buscar en Recursos vb

---

Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2008 - www.recursosvisualbasic.com.ar