como insertar una imagen en tiempo de ejecucion

"paiza-2011" escribió en el
mensaje news:

¡ Hola !
gracias de antemano quisiera saber como hacer para insertar una imagen en
un
picture box en visual basic 6.0 pero que la imagen no tenga una direccion
especifica osea que yo pueda buscar la imagen en cualquier sitio de la pc
y que
la imagen se carge al picture gracias por la atencion prestada

Hola,

Es algo tan sencillo como:

Set Picture1.Picture = LoadPicture("archivo.bmp")

Aunque cuando la intención es simplemente mostrar imagenes, prefiero el
control Image.

La propiedad "Stretch" del control Image te permite ajustar el tamaño de la
imagen al tamaño del control.

El método es el mismo:

Set Image1.Picture = LoadPicture("otroArchivo.jpg")

Para refrescar un poco la práctica con graficos en VB6 (es algo con lo que
nunca trabajo) me escribí un programita

Crea un formulario con un control Picture (Picture1) y un control Image
(Image1). Pon la propiedad Stretch de Image1 a True.

Mete un segundo control Picture (Picture2) dentro de Picture1.

Pega el siguiente código, y modifica la constante IMAGE_PATH para que haga
referencia a un archivo existente en tu equipo.

Basicamente lo que vas a tener es un formulario con un control Picture que
muestra un fragmento "ampliado" de la imagen. Al desplazar el mouse sobre
Image1, el fragmento ampliado seguirá el movimiento del mouse:


Const IMAGE_PATH = "E:\Mis Documentos\Mis Imágenes\Dibujo.jpg"

Private Sub Form_Load()
Dim pic As IPictureDisp
Set pic = LoadPicture(IMAGE_PATH)
Set Picture2.Picture = pic
Picture2.Width = pic.Width: Picture2.Height = pic.Height
Set Image1.Picture = pic
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Dim mouseX As Long, mouseY As Long
Dim vwpWidth As Long, vwpHeight As Long
Dim hCenter As Long, vCenter As Long
mouseX = X / Image1.Width / 2 * Picture2.Width
mouseY = Y / Image1.Height / 2 * Picture2.Height
Picture2.Left = -mouseX
Picture2.Top = -mouseY
Picture1.Refresh
Picture2.Refresh
End Sub