Programación General > Visual Basic 6.0 e inferiores

 Pegar Foto Desde Cualquier Ubicacion

<< < (2/3) > >>

Stevenmn:
Mira yo use esta en un visor de imagenes que hice hace un tiempo


--- Citar ---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
--- Fin de la cita ---


Tenioendo en cuenta que tiene que estar el control comon dialog, un filelistbox y un picture, al esitlo explorador de archivos con  el dirvelisto y el dir y eso etc..., espero que sepas......


 :ph34r:  :ph34r:

cpmario:
Ahora si te capté la idea.
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: Text ---Picture1.Picture = LoadPicture(gstrFilename) Si aún insiste en que deseas cargarlo en un control de imagen entonces debes de hacer lo siguiente:

--- Código: Text ---        Picture1.Picture = LoadPicture(gstrFilename)        Image1.Picture = Picture1.Picture  Para que no se vea el control Picture le colocas la propiedad visible=False.

Como no tenía mucho que hacer, te elaboré un pequeño proyecto que adjunto para demostrarte lo anterior.

 :comp:

arley:

--- Cita de: "cpmario" --- Ahora si te capté la idea.
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: Text ---Picture1.Picture = LoadPicture(gstrFilename) Si aún insiste en que deseas cargarlo en un control de imagen entonces debes de hacer lo siguiente:

--- Código: Text ---        Picture1.Picture = LoadPicture(gstrFilename)        Image1.Picture = Picture1.Picture  Para que no se vea el control Picture le colocas la propiedad visible=False.

Como no tenía mucho que hacer, te elaboré un pequeño proyecto que adjunto para demostrarte lo anterior.

 :comp:
--- Fin de la cita ---
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:
Por ejemplo voy a mis documentos alli hay fotos entonces selecciono una y le doy edicion copiar y en el preciso momento ejecuto el programa echo en visual y el objeto picture esta vacio para darle pegar esa foto ya seleccionada anteriormente, entonces como seria el codigo para un boton de caption pegar ya mostrando esta foto n en el objeto picture

 :D Ayudenme y muchas Gracias por lo anterior Disculpen las molestias :D

cpmario:
Se dificulta entenderte. Lo que ahora mencionas no se puede hacer como lo deseas.
Cuando en Mi PC o en el Explorador de Archivos, efectúas el Copiar, solo puedes Pegar a otro Mi PC o Explorador de Archivos. En visual Basic el Clipboard (Objeto) no tiene método para pegar un archivo de esa manera, a un control PictureBox.
La alternativa que si puede hacerse es la siguiente: Se registra una aplicación para que cuando hagas un doble clic en Mi PC o en el Explorador de Archivos en forma automática cargue el archivo que tenga una extensión predeterminada, por ejemplo: .jpg, bmp, gif, etc. Como cuando haces un doble clic en un archivo con extensión .doc se abre el Word de Microsoft y carga el documento que señalaste.

 :comp:

cpmario:
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.
 :comp:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior