Mi problema es el siguiente estoy creando un pequeño software en el cual estoy utilizando un objeto image para visualizar las fotos pero no quiero que una ventana de busqueda me proporcione esa foto para verla, sino que yo pueda ir a cualquier carpeta darle copiar y luego pegar sobre el objeto image estando este objeto limpio, o podria ser tambien si me ayudan con el objeto picturebox a hacer lo mismoHola no me funciono de esa manera no da pegar que tal si haces el gran favor y me ayudas con el objeto image para copiar la foto de cualquier carpeta del sistema y luego pegarla en este mismo.
Cualquiera de los dos me sirve muchas Gracias...
Alguien que mu ayude Gracias
Cita de: "arley"
Disculpame si no me supe exlicar pero no necesito copiarla del portapapeles sino de otra carpeta, como por ejemplo de la carpeta mis imagenes ¿Como puedo hacerlo?
:D Muchas gracias...
Private Sub Command1_Click()
If File1 = "" Then
MsgBox " No hay ningún archio seleccionado", vbInformation, "Error"
Else
cd.Filter = "Archivos GIF'S|*.gif|Archivos JPG|*.jpg|Archivos BMP|*.bmp|Archivos PNG|*.png"
cd.ShowSave
If cd.FileTitle = "" Then
Exit Sub
Else
FileCopy File1.Path & "\" & File1.FileName, cd.InitDir & "\" & cd.FileTitle
File1.Refresh
End If
End If
End Sub
Ahora si te capté la idea.Que pena incomodarlo tanto, pero precisamente eso es lo que no quiero que la foto la busque una ventana de exploracion si no que, lo que quiero es:
Pero te informo que no es posible cargar un archivo de imagen directamente en un control de imagen. En el control PictureBox si es posible hacer esto, por ejemplo:Código: TextSi aún insiste en que deseas cargarlo en un control de imagen entonces debes de hacer lo siguiente:
Picture1.Picture = LoadPicture(gstrFilename) Código: TextPara que no se vea el control Picture le colocas la propiedad visible=False.
Picture1.Picture = LoadPicture(gstrFilename) Image1.Picture = Picture1.Picture
Como no tenía mucho que hacer, te elaboré un pequeño proyecto que adjunto para demostrarte lo anterior.
:comp:
Otra alternativa a lo que te decía en la nota anterior y con el método de arrastrar y soltar. Seleccionas el archivo en Mi PC lo arrastras y sueltas sobre un programa en VB que previamente has abierto.Bien Gracias por la informacion.
:comp: