Hola a todos amigos taringueros, hoy les traigo un pequeñísimo post pero que a lo mejor pueda ser muy útil...
Les traigo el código para cargar una imagen en un pictureBox mostrar la imagen en dicho picturebox y a la vez guardar la imagen en un determinado directorio. Acá el código:
Les traigo el código para cargar una imagen en un pictureBox mostrar la imagen en dicho picturebox y a la vez guardar la imagen en un determinado directorio. Acá el código:
Private Sub picture1_Click()
Dim archivo As String, ruta As String
cmdlgfoto.Filter = "Imagenes|*.jpg|*.bmp|*.gif"
cmdlgfoto.ShowOpen
archivo = cmdlgfoto.FileName
picture1.Picture = LoadPicture(archivo)
ruta = "C
ocuments and SettingsUsuarioEscritorio" & cmdlgfoto.FileTitle
SavePicture picture1.Picture, ruta
End Sub
Dim archivo As String, ruta As String
cmdlgfoto.Filter = "Imagenes|*.jpg|*.bmp|*.gif"
cmdlgfoto.ShowOpen
archivo = cmdlgfoto.FileName
picture1.Picture = LoadPicture(archivo)
ruta = "C
ocuments and SettingsUsuarioEscritorio" & cmdlgfoto.FileTitle
SavePicture picture1.Picture, ruta
End Sub
es básico, pero espero que les sirva.
pásate por mi post
pásate por mi post