listbox项目选择

[Simon409]

listbox中有两个项目，如何实现选择第一个项目，在picturebox1中显示其对应的图形，选择第二个项目，在picturebox2中显示其对应的图形？
若listbox中有多项，其每一项均对应一图形，如何实现选择任一项时在picturebox中显示其对应的图形？

[yhliao1978]

3楼正解，改成单击 就更符合楼主的意思了
Private Sub List1_Click() '单击列表框
Picture1.Picture = LoadPicture(List1.List(List1.ListIndex))
End Sub

[迈克揉索芙特]

listbox中的项是什么？图像文件名？

Private Sub Form_Load()
List1.AddItem "aaa"
List1.AddItem "bbb"
List1.AddItem "ccc"
End Sub

Private Sub List1_Click()
MsgBox List1.List(List1.ListIndex)
End Sub

[Simon409]

谢谢你帮我解决了第二问，第一问具体应该怎么解决呢，还望指教！

[hongqi162]

在click事件里进行判断

[东方之珠]

Option Explicit

Private Sub Form_Load()
         List1.AddItem "c:\1.bmp"
         List1.AddItem "c:\2.bmp"
         List1.AddItem "d:\3.bmp"
         List1.AddItem "d:\4.bmp"
End Sub

Private Sub List1_DblClick() '双击列表框
        Picture1.Picture = LoadPicture(List1.List(List1.ListIndex))
End Sub

[东方之珠]

Picture1.Picture = LoadPicture(List1.List(0))
Picture2.Picture = LoadPicture(List1.List(1))