Citiraj:
|
Autor BlackDwarf
Koji je kod da mogu birat slike iz ComboBox-a kako bi se one prikazale u PictureBox-u?
|
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Picture1.Picture = LoadPicture("D:\slika1.jpg")
Case 1
Picture1.Picture = LoadPicture("D:\slika2.jpg")
End Select
End Sub
--------------------------------------
Private Sub Command1_Click()
Combo1.AddItem "slika1"
Combo1.AddItem "slika2"
End Sub
za ovo gore moraš imati na formi picturebox, combobox i button. kad pokreneš program, stisneš gumb da ti se napuni combo i onda možeš birati između slike 1 ili 2...
combo možeš napuniti i u design time-u...