Common Dialog Vb6

[trentaluca]

Sto cercando di far funzionare la finestra command dialg di VB6 per aprire un file dall'interno di un applicativo.

Funziona tutto ma quando dalla finestra di dialogo seleziono il botton apri

la finestra di dialogo si chiude ma il file selezionato non si apre:

Certamente mi manca qualche riga di codice da inserire /associare al button apri...

Qualcuno ha qualche dritta??

[Luca Bettinelli]

Cosa intendi per aprire il file ??

La common dialog non apre nessun file, ti restituisce solo il nome del file che hai selezionato, qualsiasi altra funzione la devi scrivere tu.

Es.

ApriFileCMDL è il nome simbolico della common

ApriFileCMDL.FileName ti restituice il path completo del file che hai selezianto tutto il resto te lo devi scrivere !!

[dago_]

Prova cosi:

Private Sub Command1_Click()

Dim NomeFile as String

CommonDialog1.Action = 1

NomeFile = CommonDialog1.FileName

End Sub

[trentaluca]

Fino a qui tutto chiaro.....però per attivare l'evento open file il tasto apri della finestra di dialogo mi deve attivare un evento...

in poche parole come faccio ad intercettare la pressione del tasto apri??

oppure quando si chiude la finestra di dialogo(causata dalla pressione del button APRI )che evento si genera??

[Ivan Castellaro]

CommonDialog1.FileName = vbNullString 'Azzero risposta commondialog
CommonDialog1.Filter = "File di testo(*.txt)|*.txt|" 'Filtro tipi di file
CommonDialog1.ShowOpen 'Apro finestra di dialogo

If CommonDialog1.FileName <> vbNullString Then
   MsgBox "Ho selezionato " & CommonDialog1.FileName
Else
   MsgBox "Nonnon ho selezionato nessun file."
End if

Questo dovrebbe fare al caso tuo