Ver Mensaje Individual
  #2 (permalink)  
Antiguo 15/10/2010, 15:42
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 17 años, 9 meses
Puntos: 29
Respuesta: declara una variable tipo picturebox

Un picture lo propio es agregarlo como objeto en tiempo de diseño y te evitas complicaciones.

Si tienes necesidad de hacerlo desde código creo que este es el modo:

' declaras el picture como PicTemp1
Dim PicTemp1 As VB.PictureBox
Set PicTemp1 = Form1.Controls.Add("VB.PictureBox", "PicTemp1", Form1)

' Y a partir de aquí lo tienes que mostrar, redimensionar y colocar donde deba ir, (aparte de cargarle la imagen).
PicTemp1.Picture = LoadPicture("foto.jpg")
PicTemp1.Visible = True
PicTemp1.Top = 0
PicTemp1.Left = 0
PicTemp1.Height = 500
PicTemp1.Width = 500
' como no se redimensiona solo tienes que buscarte la vida para darle el tamaño adecuado al picture.

' Para eliminar el picture se usa esto
Form1.Controls.Remove "PicTemp1"

Puede que te interese mejor usar un control image que puede redimensionar la imagen al tamaño del objeto de modo que solo tienes que darle el tamaño que desees.

Dim Image1 As VB.Image
Set Image1 = Form1.Controls.Add("VB.Image", "Image1", Form1)

' para que se ajuste la imagen al tamaño del control
Image1.Stretch = True

Image1.Picture = LoadPicture("foto.jpg")

Image1.Visible = True
Image1.Top = 0
Image1.Left = 0
Image1.Height = 1000
Image1.Width = 1000

' cuando quieras eliminarla:
Form1.Controls.Remove "Image1"

Saludos
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!

Última edición por pkj; 15/10/2010 a las 15:47 Razón: despiste