CommonDialog

[ciucciatiilcalzino]

Autore: klomax ()
Data: 03-04-03 16:05

sto cercando di creare in Vb un bottone che mi apri una CommonDialog e dopo aver selezionato il file me lo scrive in una textbox

CommonDialog.ShowOpen
File = CommonDialog.FileName


tutto semplice se non che quando clicco su annulla invece che su apri mi va a scrivere comunque il file
probabilmente devo mettere un controllo tipo se hai cliccato su annnula non fare
CommonDialog.FileName
giusto? ma come faccio

[ciucciatiilcalzino]

io sto cercando di fare la stessa cosa...ma non ci riesco

[totti240282]

Private Sub Command1_Click()
CommonDialog1.ShowOpen
If CommonDialog1.filename <> vbNullString Then
MsgBox CommonDialog1.filename
Else
MsgBox "Operazione annullata", vbOKOnly + vbCritical, "Annullato!"
End If
End Sub


allora facendo cosi praticamente se la commondialog1.filename contiene qualcosa allora visualizza il suo contenuto se no apri un box di errore giusto??????il problema allora rimane solo quello di riazzerare nel caso di errore la commondialog1 ma come si fa ????????


grazie a tutti ciao

[Grunt]

Originariamente inviato da totti240282
Private Sub Command1_Click()
CommonDialog1.ShowOpen
If CommonDialog1.filename <> vbNullString Then
MsgBox CommonDialog1.filename
Else
MsgBox "Operazione annullata", vbOKOnly + vbCritical, "Annullato!"
End If
End Sub


allora facendo cosi praticamente se la commondialog1.filename contiene qualcosa allora visualizza il suo contenuto se no apri un box di errore giusto??????il problema allora rimane solo quello di riazzerare nel caso di errore la commondialog1 ma come si fa ????????


grazie a tutti ciao

basta aggiungere file="" nell'else!!!!

Private Sub Command1_Click() 
     CommonDialog1.ShowOpen 
     If CommonDialog1.filename <> vbNullString Then 
         MsgBox CommonDialog1.filename 
     Else 
         File=""
         MsgBox "Operazione annullata", vbOKOnly + vbCritical, "Annullato!" 
     End If 
End Sub

P.S. La prox volta posta direttamente nel Forum di VB!!! Molte persone non lo guardano neanche, quindi gli aiuti diventano davvero pochi!!!

[sebamix]

http://forum.html.it/forum/showthrea...hreadid=411630