Non funziona lo stesso!![]()
Mi dice un errore: "Etichetta non definita"
Mi riporta al codice e mi evidenzia:
Perchè?codice:On Error GoTo ErrHandler
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:
Perchè non va?Cosa sbaglio?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

Rispondi quotando