hacer programa Programa para almacenar fotos

[Frikimaster]

Buenas, creo que esto te podra ser de utilidad.

Código [Seleccionar] Expandir

Private Sub mnuAbrir_Click()
Dim nf As New Form1
On Error GoTo errores
CD.DialogTitle = "Abrir Imagen"
CD.InitDir = "C:\Archivos de programa"
CD.Filter = "Todos los archivos |*.*|Imagenes|*.jpg|mapa de bits|*.bmp|"
CD.ShowOpen

nf.imgImagen.Picture = LoadPicture(CD.FileName)
nf.Caption = CD.FileName
nf.Show
errores:
End Sub

Private Sub cmdGuardarC_Click()
On Error GoTo errors:
If Forms.Count > 1 Then
  On Error GoTo errors
  CD.DialogTitle = "Guardar Com"
  CD.InitDir = "C:\"
  CD.ShowSave
  SavePicture ActiveForm.imgImagen.picutre, CD.FileName
  ActiveForm.Caption = CD.FileName
End If
errors:
End Sub


Cualquier cosita pregunta

Frikimaster

[ssccaann43 ©]

Toda BD permite que almacenes una imagen en un campo sin necesidad de tenerla fisicamente en disco. Hay mucha información en la web. Revisa, sino usa los ejemplos que allí postean.