Autor Tema: Dialogos Para Abrir, Guardar (Leído 1823 veces)

Fernando_P · « **en:** Viernes 14 de Mayo de 2004, 23:00 »

Hola a todos,
tengo una duda..resulta que estoy haciendo un menu donde uno de los comandos del menu debe llamar aun cuadro de dialogo para abrir un archivo y otro para salvar un archivo, como lo hago para declarar ese common dialog en codigo y despues hacer la llamada a traves del click del menu?

ESa es mji duda..espero puedan ayudarme...

Gracias y un Saludo

Fernando

Brroz

Hola Fernando_P.

Échale un vistazo a este tema http://foros.solocodigo.com/index.php?showtopic=4339 al final del mismo tienes un ejemplo de función para abrir un cuadro de diálogo para guardar un archivo. El ejemplo se puede utilizar para un diálogo para abrir cambiando la fn api GetSaveFileName por [/b]GetOpenFilename[/b].

También podrías usar un control CommonDialog pero a mi no me va mucho...

Suerte.

cpmario

Estas son rutinas para CommonDialog

Código: Text

 
'Abrir archivo
gstrDialogTitle = &#34;Abriendo documento...&#34;
gstrFilter = &#34;Todos los archivos (*.*)|*.*|Archivos de texto (*.txt)|*.txt|RTF arch. (*.rtf)|*.rtf|&#34;
gintFilterIndex = 1
gstrFilename = &#34;*.*&#34;
gintDlgAction = 1
Call FileSelecter
 
 

Código: Text

 
'Guardar archivo
gstrDialogTitle = &#34;Guardando documento como&#34;
gstrFilter = &#34;Todos los archivos (*.*)|*.*|Docs. de texto (*.txt)|*.txt|RTF arch. (*.rtf)|*.rtf|&#34;
gintDlgAction = 2
gintFilterIndex = 2
gstrFilename = LCase&#036;(gstrFilename)
Call FileSelecter
 
 

Código: Text

 
'Seleccionar archivo
Sub FileSelecter()
    On Error GoTo ErrorFileSelecter
    gstrFullFilename = &#34;&#34;
    frmMainMDI.cdlgMain.CancelError = True
    frmMainMDI.cdlgMain.Filter = gstrFilter
    frmMainMDI.cdlgMain.DialogTitle = gstrDialogTitle
    frmMainMDI.cdlgMain.FilterIndex = gintFilterIndex
    frmMainMDI.cdlgMain.FileName = gstrFilename
    frmMainMDI.cdlgMain.InitDir = gstrWorkDir
    frmMainMDI.cdlgMain.DefaultExt = &#34;txt&#34;
    frmMainMDI.cdlgMain.Action = gintDlgAction
  
    gstrFullFilename = frmMainMDI.cdlgMain.FileName
    gstrCurrentPath = CurDir
    gstrFilename = ExtractFilename(gstrFullFilename)
    Exit Sub
ErrorFileSelecter:
    If Err &#60;&#62; cdlCancel Then
        GenErrorHandler &#34;modFile/FileSelecter() &#34;, Err.Number, Err.Description
    End If
    Exit Sub
End Sub
 
 

Cambia las variables con las que tienes.

SoloCodigo

Autor Tema: Dialogos Para Abrir, Guardar (Leído 1823 veces)

Fernando_P

Dialogos Para Abrir, Guardar

Brroz

Re: Dialogos Para Abrir, Guardar

cpmario

Re: Dialogos Para Abrir, Guardar