Visual Basic - COMMON DIALOG - IMAGENES

Life is soft - evento anual de software empresarial
 
Vista:

COMMON DIALOG - IMAGENES

Publicado por LULU (36 intervenciones) el 01/03/2007 11:11:52
Hola amigos,

tengo una base de datos en ACCESS. Se llama ARCHIVO FOTOGRAFICO, el tema es que en un formulario va mostrando una serie de album de fotografías, registro a registro. Cada registro lleva una imagen que muestro en un picture box, en realidad es un campo de texto con el path de la imagen.

El problema es que no sé como hacer cuando creo un archivo nuevo para que me salga la ventanita del common dialog, ni como manejarlo. Alguien puede ayudarme???? también me suena que alguien me recomendó usar la API de windows pero no tengo ni idea de cómo hacerlo.

Agradecería vuestra ayuda, un saludo para todos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:COMMON DIALOG - IMAGENES

Publicado por CSO (28 intervenciones) el 01/03/2007 20:43:23
Esto abre la ventana para buscar archivos de TXT, solo tienes q cambiarlo por JPG.
-----------------------
Dim CarTxt As String 'Var. nombre y ruta del archivo TXT
Dim NumFic As Integer
On Error GoTo cargatxt
Cmd3.DefaultExt = "txt" ' Cmd3 es el control COMMON DIALOG
Cmd3.DialogTitle = "Abrir archivo"
Cmd3.Filter = "(*.txt)|*.txt|(*.*)|*.*"
Cmd3.FileName = ""
Cmd3.CancelError = True
Cmd3.ShowOpen
CarTxt = Cmd3.FileName
If Len(Cmd3.FileName) <> 0 Then
NumFic = FreeFile
Open CarTxt For Input As NumFic
Lmuestra = Input$(LOF(NumFic), NumFic) ' abre el archivo y coloca el texto en el label Lmuestra.
Close NumFic
txclave.SetFocus
End If
cargatxt:
Exit Sub
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar