OpenFileDialog, ma come? VB6

[gta3!]

Ciao ragazzi, riapro la discussione che mi hanno gia chiuso perchè avevo sbagliato dove inserirla.

Ho un problme con visual basic 6.Non riesco a fare aparire la filenestra "OpenFileDialog".

Ho letto in un libro e ho capito che bisogna inserire un controllo e una volta cliccato su quel controllo inserendo del codice apre la finestra.Ma a questo punto dove lo trovo questo controllo?

In un altro libro invece mi dice che devo inserire nel codice al comando dove intendo fare a apparire la finestra OpenFileDialog. Ma che codic edevo mettere?

Questa finestra mi servirebbe per fare aprire una immagine e visualizzare in una PictureBox.

Spero che mi potete aiutare, un ringraziamento anticipato.

[LMondi]

Ciao gta3!
Per rendere disponibile la CommonDialog fai clic Progetto(barra degli strumenti)> Componenti ... poi seleziona Microsoft Common Dialog Control 6 > clic su OK.
Dopo porti il controllo sulla Form che deve utilizzare la ComDial.
Per quanto riguarda il codice dipende da quello che devi fare, ricordati che il predetto controllo fa apparire solo la finestra di dialogo per selezionare un file, dopo tramite codice devi fare tu ... Comunque queste righe aprono la ComDialog:

With FrmSP.CommonDialogSPP
        .CancelError = True             'Imposta CancelError su True
    On Error GoTo ErrHandler
        .Filter = "File di programma (*.csv)|*.csv|Documenti di Testo (*.Txt)|"
        .FilterIndex = 1
        .DefaultExt = "csv"
        .Flags = cdlOFNNoChangeDir Or cdlOFNHideReadOnly Or cdlOFNFileMustExist Or cdlOFNNoReadOnlyReturn
        .DialogTitle = "Selezionare il file da aprire"
        .FileName = FrmAA.TxtNuovoFile  'Imposta il Nome del file
        .InitDir = App.Path & "\....."
        .ShowOpen
... ... ...

Potresti anche non usare la commDialog per aprire un'immagine, ad esempio:

'Carica l'immagine nella PictureBox:
      Pic1.Picture = LoadPicture("D:\...\Printer2.ico")
'e la salva nei formati BMP e JPG:
      SavePicture Pic1.Image, ("D:\...\Printer2.bmp")

In questo caso si apre un'icona in un controllo PictureBox (di nome Pic1) posto sulla Frm e poi la si salva con formato .bmp .

[gta3!]

Non funziona lo stesso!

Mi dice un errore: "Etichetta non definita"

Mi riporta al codice e mi evidenzia:

On Error GoTo ErrHandler

Perchè?

Ho inserito il controllo "Microsoft Common Dialog Control 6" e nel from mi è apparso una figura di colore grigio.

Sotto ho inserito un pulsante con questo codice:

Private Sub Command1_Click()
With FrmSP.CommonDialogSPP
        .CancelError = True             'Imposta CancelError su True
    On Error GoTo ErrHandler
        .Filter = "File di programma (*.csv)|*.csv|Documenti di Testo (*.Txt)|"
        .FilterIndex = 1
        .DefaultExt = "csv"
        .Flags = cdlOFNNoChangeDir Or cdlOFNHideReadOnly Or cdlOFNFileMustExist Or cdlOFNNoReadOnlyReturn
        .DialogTitle = "Selezionare il file da aprire"
        .FileName = FrmAA.TxtNuovoFile  'Imposta il Nome del file
        .InitDir = App.Path & "\....."
        .ShowOpen
End With
End Sub

Perchè non va?Cosa sbaglio?

[Brainjar]

Perchè ti manca la sezione della gestione errore

Private Sub Command1_Click()
With FrmSP.CommonDialogSPP
        .CancelError = True             'Imposta CancelError su True
    On Error GoTo ErrHandler
        .Filter = "File di programma (*.csv)|*.csv|Documenti di Testo (*.Txt)|"
        .FilterIndex = 1
        .DefaultExt = "csv"
        .Flags = cdlOFNNoChangeDir Or cdlOFNHideReadOnly Or cdlOFNFileMustExist Or cdlOFNNoReadOnlyReturn
        .DialogTitle = "Selezionare il file da aprire"
        .FileName = FrmAA.TxtNuovoFile  'Imposta il Nome del file
        .InitDir = App.Path & "\....."
        .ShowOpen
End With
' ---------------------------------------------------------
' Ti manca questa parte di codice !
Exit Sub
ErrHandler:
 ' Fai qualcosa per gestire l'errore
' ---------------------------------------------------------

End Sub

Ciao,

[LMondi]

gta3! devi acquisire un pò di pratica prima di usare la ComDial, vedo anche che non hai messo il nome del file (.InitDir = App.Path & "\....."), ti consiglio di vedere degli esempi con una ricerca nel Web, non perchè non ti voglio aiutare ma la questione é un pò lunga.
Poi ti renderai conto.
Ciao.

[gta3!]

Ok ho provato a modificare l'errore...Adesso che cosa sbaglio?

Private Sub Command1_Click()

With FrmSP.CommonDialogSPP
        .CancelError = True             'Imposta CancelError su True
    On Error GoTo ErrHandler
        .Filter = "File di programma (*.csv)|*.csv|Documenti di Testo (*.Txt)|"
        .FilterIndex = 1
        .DefaultExt = "csv"
        .Flags = cdlOFNNoChangeDir Or cdlOFNHideReadOnly Or cdlOFNFileMustExist Or cdlOFNNoReadOnlyReturn
        .DialogTitle = "Selezionare il file da aprire"
        .FileName = FrmAA.TxtNuovoFile  'Imposta il Nome del file
        .InitDir = App.Path & "\testo.txt"
        .ShowOpen
End With
' ---------------------------------------------------------
' Ti manca questa parte di codice !
Exit Sub
ErrHandler:
    MsgBox "Spiacenti errore interno", , "Operazione Fallita"
 ' Fai qualcosa per gestire l'errore
' ---------------------------------------------------------

End Sub

PS: LMondi, ho provato a fare una ricerca ma non ho trovato niente!
Ma posso essere cosi sfigato??

[cassano]

ti mancano anche gli attributi da impostare per la visualizzazione della cdg,cmq la guida di vb6 contiene tutto.

[gta3!]

Uffi, io non ho la guida!!

Vi chiedo troppo se mi scrivete il codice x farla funzionare correttamente?

Aspetto risposte, grazie ciao!

[Tera_Kyo]

Non sò se ho capito benissimo la tua domanda, ma forse posso comunque aiutarti. Devi andare sul menù, sotto la voce "Progetto" clicca su "componenti" e segna la voce "Microsoft Common Dialog". Apparirà un nuovo oggetto sulla barra degli strumenti, inseriscilo nel form e chiamalo tipo "common1".
Per aprire la finestra che ti serve scrivi:
common1.ShowOpen
Questo è quanto.

[gta3!]

Originariamente inviato da Tera_Kyo
Non sò se ho capito benissimo la tua domanda, ma forse posso comunque aiutarti. Devi andare sul menù, sotto la voce "Progetto" clicca su "componenti" e segna la voce "Microsoft Common Dialog". Apparirà un nuovo oggetto sulla barra degli strumenti, inseriscilo nel form e chiamalo tipo "common1".
Per aprire la finestra che ti serve scrivi:
common1.ShowOpen
Questo è quanto.

Ok adesso funziona, grazie!

Adesso come faccio a fare aparire in una PictureBox la immagine che voglio caricare?

Scusate se vi sto stressando!