2009-07-06 10 views

risposta

15

C'è qualche codice di esempio in this question. Citando:

In VB6, aggiungere il componente:

  • Progetto> Componenti
  • Nella scheda controlli, selezionare Microsoft Common Dialog Control 6.0 (SP6)

Ora sul modulo, aggiungi il nuovo controllo Common Dialog dalla casella degli strumenti

Nel codice, è necessario:

CommonDialog1.Filter = "Apps (*.txt)|*.txt|All files (*.*)|*.*" 
CommonDialog1.DefaultExt = "txt" 
CommonDialog1.DialogTitle = "Select File" 
CommonDialog1.ShowOpen 

'The FileName property gives you the variable you need to use 
MsgBox CommonDialog1.FileName 
1

di cui aveva bisogno il "1", ma funziona alla grande grazie

CommonDialog1.Filter = "Apps (*.txt)|*.txt|All files (*.*)|*.*" 
CommonDialog1.DefaultExt = "txt" 
CommonDialog1.DialogTitle = "Select File" 
CommonDialog1.ShowOpen 

'La proprietà FileName ti dà la variabile è necessario utilizzare MsgBox CommonDialog1.FileName

+0

Ho modificato la risposta da @Ant – Rob

Problemi correlati