Código:
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
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