Ayuda para guardar la dirección completa o nombre de una foto al seleccionarla en un formulario
Hola
Para empezar tengo un formulario que al entrar en un campo me abre el explorer en una carpeta que contiene fotos, lo que quería saber era si se puede hacer es que al seleccionar una foto en el mismo campo u otro (eso me da igual) guarde la dirección completa o, por lo menos, el nombre de la foto.
Muchas gracias por adelantado.
Para empezar tengo un formulario que al entrar en un campo me abre el explorer en una carpeta que contiene fotos, lo que quería saber era si se puede hacer es que al seleccionar una foto en el mismo campo u otro (eso me da igual) guarde la dirección completa o, por lo menos, el nombre de la foto.
Muchas gracias por adelantado.
1 respuesta
Respuesta de vbgopher
1
'*-*-*-*-*-*
Esto te puede ser de ayuda y gran utilidad
En un Formulario Agrega:
1-Botón de Comando ponle el nombre ' Examinar '
Hola!
1- Cuadro de texto con el nombre ' TxtDireccionFotografia '
1- Control ActiveX llamado Microsoft Common Dialog Control ponle el nombre ' CuadroDialogo '
Y en el evento al hacer click del botón ( Examinar)
Coloca [Procedimiento de evento]
Y en el código coloca:
'************* CODIGO *****************************
Private Sub Examinar_Click()
Abrir
End Sub
Sub Abrir()
Dim Archivo As String
With Me.CuadroDialogo
.DialogTitle = "Fotografias..." '<-- Titulo del cuadro de dialogo
.DefaultExt = "*.jpg" '<--- Extencion Predeterminada
.CancelError = False '<--- Marcar/No marcar error si se presiona Cancelar
.Filter = "TodoExpertos(vbGopher)|*.bmp|Fotografias|*.jpg|Todos los Archivo(*.*)|*.*" ' Filtros permitidos Alt+124= "|"
.ShowOpen '<--- Mostrar el cuadro de dialogo
Archivo = .filename '<---Tomar el Ruta y nombre del Archivo
End With
If (Len(Archivo) > 0) Then '<--- Si se selecciono un archivo tomamos la ruta
TxtDireccionFotografia=Archivo '<---Asignamos la ruta al textbox o control donde la queremos
DoEvents
End If
End Sub
'***********************************************************
Esto te puede ser de ayuda y gran utilidad
En un Formulario Agrega:
1-Botón de Comando ponle el nombre ' Examinar '
Hola!
1- Cuadro de texto con el nombre ' TxtDireccionFotografia '
1- Control ActiveX llamado Microsoft Common Dialog Control ponle el nombre ' CuadroDialogo '
Y en el evento al hacer click del botón ( Examinar)
Coloca [Procedimiento de evento]
Y en el código coloca:
'************* CODIGO *****************************
Private Sub Examinar_Click()
Abrir
End Sub
Sub Abrir()
Dim Archivo As String
With Me.CuadroDialogo
.DialogTitle = "Fotografias..." '<-- Titulo del cuadro de dialogo
.DefaultExt = "*.jpg" '<--- Extencion Predeterminada
.CancelError = False '<--- Marcar/No marcar error si se presiona Cancelar
.Filter = "TodoExpertos(vbGopher)|*.bmp|Fotografias|*.jpg|Todos los Archivo(*.*)|*.*" ' Filtros permitidos Alt+124= "|"
.ShowOpen '<--- Mostrar el cuadro de dialogo
Archivo = .filename '<---Tomar el Ruta y nombre del Archivo
End With
If (Len(Archivo) > 0) Then '<--- Si se selecciono un archivo tomamos la ruta
TxtDireccionFotografia=Archivo '<---Asignamos la ruta al textbox o control donde la queremos
DoEvents
End If
End Sub
'***********************************************************
