下拉和圖片框集成

Question

我有一個簡單的表格，下拉框中有一個名稱列表 和上面的圖片框。

我該如何做到這一點當我選擇一個名字的人的圖片 自動出現在圖片框？

Answer 1

使用含有兩個名以及圖像文件一個用戶定義的類型，然後創建該類型

例如數組：

'1 form with : 
' 1 listbox : name=List1 
' 1 picturebox : name=Picture1 
Option Explicit 

Private Type PERSON 
    strName As String 
    strPicture As String 
End Type 

Private mperFriend(4) As PERSON 

Private Sub Form_Load() 
    Dim intIndex As Integer 
    mperFriend(0).strName = "Bob" 
    mperFriend(0).strPicture = "Bob.jpg" 
    mperFriend(1).strName = "Jane" 
    mperFriend(1).strPicture = "Jane.jpg" 
    mperFriend(2).strName = "Fred" 
    mperFriend(2).strPicture = "Fred.jpg" 
    mperFriend(3).strName = "Iris" 
    mperFriend(3).strPicture = "Iris.jpg" 
    mperFriend(4).strName = "John" 
    mperFriend(4).strPicture = "John.jpg" 
    List1.Clear 
    For intIndex = 0 To UBound(mperFriend) 
    List1.AddItem mperFriend(intIndex).strName 
    Next intIndex 
End Sub 

Private Sub List1_Click() 
    Caption = mperFriend(List1.ListIndex).strPicture 
    Picture1.Picture = LoadPicture(App.Path & "\" & mperFriend(List1.ListIndex).strPicture) 
End Sub