Elencare un Array di variabili in casella di riepilogo

di
antocuomo
il
6 risposte
A
antocuomo
Utente Attivo
Iscritto da
apr, 2013
Messaggi:
283

Elencare un Array di variabili in casella di riepilogo

Solo a scopo didattico, ma sono sicuro che a tanti è già accaduto di averne bisogno, mi viene di studiare la possibilità di scorrere una lista di note, documenti o più in particolare di file in una casella di riepilogo, e di effettuare una selezione cliccandoci sopra.
Parto dal codice che funziona per leggere e caricare in un array la lista dei file appartenenti ad una directory.

' Carica in un array tutti i file di una directory
Dim file(), successivo As String
Dim n As Integer
successivo = Dir(Tua_directory & “*.*")
Do While successivo <> ""
n = n + 1
ReDim file(n)
file(n) = successivo
‘ MsgBox file(n)
successivo = Dir
Loop

e quì mi fermo.

A chi ne sa più di me chiedo, a grandi blocchi o nel dettaglio, il metodo più diretto ed efficace per farlo:
1- crearsi da codice una tabella on fly con un solo campo e caricarci l'array con un loop e poi ?
2 - dalla Form aperta invocare una maschera pop-up con la tabella in seno e scorrerla ?

In alternativa, come si potrebbe assegnare l'array ad una casella combinata di una Form ?
Grazie a chi risponde
Antonio Cuomo

6 Risposte

  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8704

    Re: Elencare un Array di variabili in casella di riepilogo

    Perché devi popolare un array per poi popolare una listbox. .?
    Invece di aggiungere un elemento nell'array usa il metodo AddItem membro dell'oggetto listbox ed inserisci direttamente li...
    Ovviamente devi impostare ad elenco valori l'origine riga.
  • A
    antocuomo
    Utente Attivo
    Iscritto da
    apr, 2013
    Messaggi:
    283

    Re: Elencare un Array di variabili in casella di riepilogo

    Effettivamente Alex, come da te previsto si è tutto puntualmente verificato e ti ringrazio a nome di tutti coloro che troveranno lo studio interessante. Faccio un veloce riepilogo.

    Private Sub Form_Load() ' oppure altro evento
    ' allinterno di una maschera qualunque si crea un controllo, p.e. casella combinata e
    ' si aggancia l'origine riga a "Elenco Valori" (nient'altro)
    Dim nextFile As String
    Dim listaFile As ComboBox
    Set listaFile = Elenco14 ' ovvero il nome della tua CasellaCombinata

    nextFile = Dir(<variabilePercorso> & "*.*")
    Do While nextFile <> ""
    listaFile.AddItem Item:=nextFile
    nextFile = Dir
    Loop
    End Sub

    saluti antonio cuomo
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8704

    Re: Elencare un Array di variabili in casella di riepilogo

    4 Osservazioni:

    1° Usa i TAG per il codice... serve a chi legge.
    2° Perchè usi una variabile Oggetto per assegnare la Combo..., che vantaggio ha...?
    3° Perchè non indenti il Codice...?
    4° Perchè non dai un NOME sensato ai controlli invece che Elenco14...?

    Questo è il codice: 
    
Private Sub Form_Load() ' oppure altro evento
' allinterno di una maschera qualunque si crea un controllo, p.e. casella combinata e
' si aggancia l'origine riga a "Elenco Valori" (nient'altro)
Dim nextFile As String
nextFile = Dir(<variabilePercorso> & "*.*")
   Do While nextFile <> ""
        Elenco14.AddItem Item:=nextFile
        nextFile = Dir
    Loop
End Sub
  • A
    antocuomo
    Utente Attivo
    Iscritto da
    apr, 2013
    Messaggi:
    283

    Re: Elencare un Array di variabili in casella di riepilogo

    Arrossisco leggermente, ma mi fai un esempio di Tag su quanto avevo scritto io?
    Inoltre, io metto sempre il mio codice indentato, ma quando ""Invia", me lo ritrovo tutto allineato a sinistra.

    saluti antonio
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8704

    Re: Elencare un Array di variabili in casella di riepilogo

    Scusa ma quando scrivi un POST nella TextBox di inserimento, sopra hai una ToolBar con le formattazioni... se guardi hai ** CODE ** se la premi viene inserito nella TextBox un testo... scrivi all'interno di quello che vedi... fai una prova non mangia...
  • A
    antocuomo
    Utente Attivo
    Iscritto da
    apr, 2013
    Messaggi:
    283

    Re: Elencare un Array di variabili in casella di riepilogo

    Ok.
    tra le emoticon manca un "pollice alto", ce l'avrei inserito.
Devi accedere o registrarti per scrivere nel forum
6 risposte