Retroceder   Foros del Web > Temas generales de computación > Programación > Visual Basic

Respuesta
 
Herramientas Desplegado
Antiguo 19-abr-2008, 16:39   #1 (permalink)
jsc_222 ha deshabilitado el karma
 
Fecha de Ingreso: abril-2008
Mensajes: 5
Copiar Imagen a una Carpeta

Hola a todos.. tengo una duda.... Estoy realizando un Sistema contable para una empre"sita", en estos dias estuve programando la parte de Usuarios... y me pidieron que guardara la imagen del Usuario del Sistema..... se como cargar la ruta de la imagen a un textbox, pero lo que necesito es q copie la imagen y la pegue en una carpeta que yo cree, y ahi recien guardar la nueva ruta....y mostrarla en el picturebox, tambien deseo que al copiar la imagen en la nueva carpeta, deseo cambiar el nombre de la Imagen con el ID del Usuario osea 1.jpg 2.jpg para que asi se me facilite la consulta en el SQL. de antemano necesito su ayudaa!!!!!!
jsc_222 está desconectado   Responder Citando
Antiguo 20-abr-2008, 02:25   #2 (permalink)
Avellaneda está en el buen camino
 
Avatar de Avellaneda
 
Fecha de Ingreso: enero-2008
Ubicación: Madrid
Mensajes: 669
Re: Copiar Imagen a una Carpeta

Hola. Lo normal es guardar el nombre del archivo imagen en la propia tabla y desde ahí mostrarla.

Primero, suponemos que tienes abierto un recordset con el nombre "rs" y la tabla tiene un campo llamado "Foto" que es donde se guarda el nombre del archivo imagen.

Para copiar la imagen desde C: a una carpeta que se encuentra en la ruta de nuestra aplicación y se llama Imagenes:

FileCopy "c:\LaImagen.jpg", App.Path & "\Imagenes\" & rs!Id & ".jpg"

Para guardar el nombre del archivo imagen en la Tabla:
Código:
rs!Foto.Value =  rs!Id & ".jpg"
rs.Update
Para mostrar la imagen en un control Image:
Código:
Image1.Stretch = True
Image1.Picture = LoadPicture(App.Path & "\Imagenes\" & rs!Foto.Value)
Nota que puse un control Image y no un PictureBox, pues el control Image tiene la propiedad Stretch que ajusta la imagen al tamaño del control.

Un saludo
Avellaneda está desconectado   Responder Citando
Antiguo 21-abr-2008, 00:50   #3 (permalink)
skullsp ha deshabilitado el karma
 
Fecha de Ingreso: marzo-2005
Mensajes: 3
Re: Copiar Imagen a una Carpeta

hola, recomiendo que usen la api para copiar, porque muchas veces no funciona esa funcion... aca se las dejo

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Ej: CopyFile RutaDesde, RutaHasta, (y eso es para verificar si existe y reemplazarlo o renombrarlo)


saludos
skullsp está desconectado   Responder Citando
Respuesta
No hay votos aún.


Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

BB code is Activado
Caritas están Activado
[IMG] está Activado
Código HTML está Desactivado


La Zona horaria es GMT -6. Ahora son las 18:58.


Message Board Statistics

LinkBacks Enabled by vBSEO 3.1.0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93