怎么让combo下拉列表中的每个选项对应一张图片，并将图片显示在窗体上

凛冬1 发布于 2020-03-20 17:51， 1594 次点击

请问一下，怎么让combo下拉列表中的每个选项对应一张图片，并将图片显示在窗体上

只有本站会员才能查看附件，请登录

2 回复

kinger12192020-03-25 09:14

Private Sub Combo1_Click()
a = Combo1.Text & ".jpg"
Path = "W:\photo\PHOTO FB\" '图片存放路径图片名字要与列表中的选面名一样就可以了
Image1.Picture = LoadPicture((Path & a), vbLPLarge, vbLPColor)
End Sub

凛冬12020-03-25 16:37

谢谢大神！