Új hozzászólás Aktív témák

• #21972 Delila_1 veterán Attas #21971

  Új Válasz 2014-06-13 09:28:39 #21972

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Attas #21971 üzenetére

  Nálam a formon a két objektum ComboBox1, és Image1 névre hallgat.

  A ComboBox1 listáját megadod a RowSource tulajdonságánál, pl. Munka1!A1:A10, ez a tartomány tartalmazza a képfájlok nevét, kiterjesztés nélkül. A Style tulajdonság legyen fmStyleDropDownList, hogy csak a felajánlott nevekből lehessen választani, ne lehessen új tételt beírni.

  Az Image1 PictureSizeMode tulajdonsága legyen fmPictureSizeModeZoom, hogy bármelyik kép megjelenítése kitöltse az objektumot.

  A makró:

  Private Sub ComboBox1_Change()
  Dim Fname As String
  Fname = "F:\Jpg\Festmenyek\" & ComboBox1 & ".jpg"
  Image1.Picture = LoadPicture(Fname)
  End Sub

  Természetesen a saját útvonaladat, és a képeid kiterjesztését add meg az Fname változóban.

Új hozzászólás Aktív témák