드롭 다운 및 그림 상자 통합

Question

드롭 다운 상자에 이름 목록이있는 간단한 양식이 있습니다. 위 그림 상자가 있습니다.

그 사람의 사진을 의 그림 상자에 자동으로 표시하는 이름을 선택할 때 어떻게 만들 수 있습니까?

Answer 1

그림 파일뿐만 아니라 이름을 모두 포함하는 사용자 정의 형식을 사용하고이 유형의 예를 들어

의 배열을 만들 : 당신은 세 가지 VB 방언을 넣었습니다

'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