Un saluto a tutti i membri del forum!
Vi chiedo un aiuto, perché proprio non riesco ad andare avanti.
Ho provato diverse soluzioni, ma ovviamente, tutte sbagliate.
Non me ne vogliano a male coloro che hanno formulato le regole,
ma non sono un esperto programmatore, e quindi una solution più
a portata di mano, mi servirebbe proprio!
Dunque, il mio problema è questo:
Ho bisogno di associare ad un "selettore" una listbox...
o meglio:
creo una (My)ListBox (virtuale) alla quale devo passare i valori di 4 ListBox
realmente presenti sul Form!
Poiché devo caricare i dati da altrettanti File, volevo fare così:
------------------------------------CODICE-------------------------------------------
Private Sub EsaminaListbox()
Dim NumListBox As Integer 'Numero della ListBox da selezionare
Dim LBDaCaricare As String 'File associato ad una ListBox
Dim AssociaListBox As ListBox 'questo SERVIREBBE ad associare un controllo ad una listbox...
For NumListBox = 1 To 4 'Selezione
Select Case NumListBox
Case 1
LBDaCaricare = "ListB1.txt" 'File ListB1.txt associato a ListBox1 sul Form (ListB1)
AssociaListBox (ListB1) 'Questo è ciò che vorrei fare: passare ListB1
'ad AssociaListBox
Case 2
LBDaCaricare = "ListB2.txt"
AssociaListBox As ListB2 'ho fatto anche così...
Case 3
LBDaCaricare = "ListB3.txt"
AssociaListBox ListB3 'oppure ho fatto così...
Case 4
LBDaCaricare = "ListB4.txt"
AssociaListBox ' ... non ne ho idea!
...
... ControllaListBox = 1 'azzera il controllo per eventuale verifica
End Select
Open App.Path & "\(cartella dei dati listbox)\" & LBDaCaricare For Append As #1
Do Until EOF(1) 'per inserire da file in ListBox
Line Input #1, variabile
AssociaListBox.AddItem variabile '''QUI vorrei che AssociaListBox diventasse
'a seconda dei casi, la rispettiva ListBox (1, 2 etc.)
Loop
Close #1
Next NumListBox
End Sub
---------------------------------------------------------------------------------------
Non so se sono stato chiaro, ma in questo momento, proprio non ci riesco
Un saluto a tutti... e grazie per le eventuali risposte!