Bildvisning i formulär

Visa bilder dynamiskt i formulär

Här visas ett sätt att dynamiskt presentera olika bilder i ett formulär.

Så här kan utfallet se ut när nedanstående procedurer är exekverade:

Lösningen ligger i att bildnamnen har löpnummer som reflekteras i comboboxrutans alternativ.

Option Explicit

'© 2003 Alla rättigheter XL-Dennis

Private Sub ComboBox1_Change()

   Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & ComboBox1.Value & ".gif")

End Sub

Private Sub CommandButton1_Click()

   Unload Me

End Sub

Private Sub UserForm_Initialize()

   Dim vaNumbers As Variant

   vaNumbers = VBA.Array("1", "2")

   With Me.ComboBox1

      .Clear

      .List = vaNumbers

      .ListIndex = -1

   End With

End Sub