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

172 - SavePicture y métodos gráficos

Contenido de la página

Guardar contenido de un PictureBox con savePicture
Otro ejemplo
Enlaces relacionados

Guardar contenido de un PictureBox con savePicture

Esta es una forma para poder generar un archivo BMP con el método SavePicture, el contenido de un PictureBox, en el cual que contiene un Mapa de Bits y también cualquier dibujo realizado en el mismo con los métodos gráficos de visual basic

Si hacemos esto por ejemplo

Picture1 = LoadPicture(imagen)

SavePicture Picture1, "C:\imagen.bmp"

Solo se grabará en disco el gráfico cargado en el control. Pero si el Picture tiene lineas, círculos o cualquier dibujo, no lo tomará.

Para solucionar esto, en el ejemplo, antes de llamar a savePicture, se asigna a una variable de tipo Picture, StdPicture o IpictureDisp, la propiedad Image del control , por ejemplo

Private Sub Form_Load() Dim Imagen As IPictureDisp 'carga el mapa de bits Pictuer1 = LoadPicture(Imagen) 'dibuja un circulo Picture1.Circle (200, 200), 100 'Le asigna a la variable la propiedad image. _ en este caso la propiedad image es diferente a la _ propiedad Picture, esta contiene el Mapa de bits y los dibujos Set Imagen = Picture1.Image 'graba la imagen SavePicture Imagen, "C:\imagen.bmp" Set Imagen = Nothing End Sub

Para el ejemplo colocar

Un PictureBox llamado Picture1
Tres CommandButton
Un CommonDialog

El Command1 Carga un gráfico en Picture1, el Command2 Dibuja un contorno, el Command3 salva en disco el archivo BMP con el contenido

Vista del ejemplo en visual basic para utilizar la propiedad image de un control Picture, y poder grabar mediante savepicture el archivo bmp incluyendo los dibujos realizados con los métodos gráficos

Código fuente en un formulario :

' Botón para cargar la imagen en Picture1 Private Sub Command1_Click() With CommonDialog1 .Filter = "BMP|*.bmp|JPG|*.JPG|GIF|*.GIF" .DialogTitle = " seleccionar el mapa de bits para cragr en el Picture " .ShowOpen If .FileName = "" Then Exit Sub 'Carga la imagen el control Picture Picture1.Picture = LoadPicture(.FileName) End With End Sub 'Botón para dibujar un contorno en el Picture1 Private Sub Command2_Click() With Picture1 'Dibuja un recuadro de contorno en el Picture Picture1.Line (0, .ScaleHeight)-(0, 0) Picture1.Line (.ScaleWidth, 0)-(0, 0) Picture1.Line (.ScaleWidth, .ScaleWidth)-(.ScaleWidth, 0) Picture1.Line (0, .ScaleHeight)-(.ScaleWidth, .ScaleHeight) End With End Sub 'botón para generar el BMP con savePicture Private Sub Command3_Click() 'Variable para cargar la imagen Dim La_Imagen As IPictureDisp 'Le asigna a la variable el Image del control Picture Set La_Imagen = Picture1.Image With CommonDialog1 .Filter = "BMP|*.bmp|JPG|*.JPG|GIF|*.GIF" .DialogTitle = " seleccionar directorio donde guardar el mapa de bits " ' Abre el CommonDialog .ShowSave If .FileName = "" Then Exit Sub 'Graba la imagen con todo, el picture y los dibujos con los metodos gráficos SavePicture La_Imagen, .FileName MsgBox " Archivo: " & .FileTitle & " Creado ", vbInformation End With 'Elimina el objeto IpictureDispip Set La_Imagen = Nothing End Sub Private Sub Form_Load() With Picture1 .DrawMode = 8 .BorderStyle = 0 .AutoSize = True .ScaleMode = 3 .DrawWidth = 10 .ForeColor = vbRed 'Autoredraw debe estar activo para poder _ utilizar los métodos gráficos .AutoRedraw = True End With Command1.Caption = " Cargar imagen " Command2.Caption = " Dibujar " Command3.Caption = " Guardar imagen " Me.Caption = " Ejemplo de como grabar El grafico y dibujos de un picture" End Sub

Ejemplo 2 - Propiedad Picture y propiedad Image

Este ejemplo es mas simple que el anterior, ya que le asigna a la propiedad Picture, directamente la propiedad Image del mismo, por ejemplo

Se carga un gráfico, luego se dibuja algo, luego se asigna:

ElPictureBox.Picture = ElPictureBox.Image

y luego se guarda:

SavePicture ....

Importante: La propiedad Autoredraw del control PictureBox debe estar en True.

'Cargar un gráfico en el Picture1 Private Sub Form_Load() With Picture1 .Font.Name = " Verdana" .Font.Size = 16 .ForeColor = vbRed .AutoRedraw = True Picture1.Print " Hola Mundo " .Picture = Picture1.Image End With SavePicture Picture1, "c:\ejemplo.bmp" MsgBox " Gráfico BMP salvado en c: ", vbInformation End Sub

Recursos Visual Basic 6.0 - Enlaces relacionados

Buscar en Recursos vb