VBA Indsæt et billede i en listbox.
I min database har jeg en kolonne med navnet Eventtype. I denne står enten et 1-tal eller et 2-tal. Når jeg loader informationen ind i min listbox, har jeg følgende kode:Do While Not .EOF
Ark4.ListBox1.AddItem
intTemp = Ark4.ListBox1.ListCount
If !Eventtype = "1" Then
Ark4.ListBox1.List(intTemp - 1, 0) = Billede1.jpg
ElseIf !Eventtype = "2" Then
Ark4.ListBox1.List(intTemp - 1, 0) = Billede2.jpg
End If
......
i stedet for billede1.jpg, vil jeg gerne have en kode der indsætter et billede i stedet for tallet 1. Det samme gør sig selvfølgelig gældende ved billede2.jpg.
Nogen der har en ide om hvordan det gøres?
På forhånd tak for hjælpen.