Visual Basic - Problema con Imagenes

Life is soft - evento anual de software empresarial
   
Vista:

Problema con Imagenes

Publicado por Julio (2 intervenciones) el 17/06/2010 17:03:31
Hola amigos!!

Necesito coger una imagen de un PictureBox y copiarla en el portapapeles.
El problema que tengo es que el picturebox lo cargo en ejecución y al intentar copiar en el portapapeles me dice que este está vacio.

Os mando parte de mi código

Picture1.PaintPicture LoadPicture(sPathImgs & rst.Fields(6)), 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight

Clipboard.SetData Picture1.picture, vbCFBitmap

La historia es que Picture1.picture está vacio en ejecucion.

Dadme una solucion por favor.
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problema con Imagenes

Publicado por Julio (72 intervenciones) el 17/06/2010 21:15:24
Este procedimiento te devuelve el ancho y largo de una imagen y te carga el picture

Sub LoadImag(Path As String)
'*
Dim Imagen As IPictureDisp
Dim Alto As Integer
Dim Ancho As Integer
'*
On Error GoTo 1
'*
Set Imagen = LoadPicture(Path)
'*
Alto = Round(Me.ScaleY(Imagen.Height, vbHimetric, vbPixels))
'*
Ancho = Round(Me.ScaleX(Imagen.Width, vbHimetric, vbPixels))
'*
Picture1.Height = Alto
Picture1.ScaleHeight = Alto
Picture1.Width = Ancho
Picture1.ScaleWidth = Ancho
'*
Picture1.PaintPicture Imagen, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
'*
Exit Sub
1:
Call Error

PARA LLAMAR EL PROCEDIMIENTO ESTO DE QUI ABAJO
'*
Call LoadImag(Nombre) ' Nombre = al path o ruta donde se encuentra la imagen.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar