Ciao, se non ho capito male il tuo quesito puoi provare così:
1. Listbox: nella proprietà List(elenco) digita i nomi dei files bmp che sono nella
tua cartella "C:\Immagini\"; ad es. nella prima riga:01.bmp, nella riga
sottostante:02.bmp, ecc.
2. PictureBox: eventualmente metti Autosize = True
3. Poi aggiungi il seguente semplice codice:
Option Explicit
Private Sub List1_Click()
Dim i As Integer
i = List1.ListIndex
Picture1.Picture = LoadPicture("C:\Immagini\" & List1.List(i))
End Sub
In alternativa al punto 1. puoi aggiungere nel codice:
Private Sub Form_Load()
List1.AddItem "01.BMP"
List1.AddItem "02.BMP"
List1.AddItem "03.bmp"
End Sub
Ho provato e funziona.
Saluti
Sal47
|