15/10/2010, 15:42
|
| | | Fecha de Ingreso: julio-2006 Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 3 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
|