Listeden Seçilen Resmi Form Içinde Gösterme

Merhabalar yardımlarınız için peşinen teşekkür ederim ekte koyduğun dosyayı arşivimi karıştırırken buldum . İstediğim  listeden seçilen dosya aynı form üzerinde gözüksün (amacım alt klasörlerdeki resimleri görüntülemek denedim ama mantığı anlayamadım) lblPath etiketindeki veri ile lbxFiles listesindeki seçilen veriyi birleştirip referans oluşturma ve resimin görünmesini sağlamak (etiket olduğu için veriyi alamadım)

Merhaba.. 

Form üzerindeki resim nesnesinin biçim özelliğinde bulunan resim türü özelliğini BAĞLI yaptıktan sonra sağdaki listenin çift tıklandığında olay yordamında bulunan prosedürü aşağıdaki gibi değiştirirseniz resim dosyalarını nesnede görüntüleyebilirsiniz.. 

Visual Basic

Dim varRet
Dim stPath     As String
 
    If mstPath = vbNullString Then
        stPath = Left$(Me!lbxFolders, Len(Me!lbxFolders) - 1)
    Else
        stPath = mstPath & "\" & Me!lbxFolders
    End If
    If Right(Me!lbxFiles, 3) = "jpg" Or Right(Me!lbxFiles, 3) = "png" Then
        Resim18.Picture = mstFilePath & "\" & Me!lbxFiles
    Else
        varRet = fHandleFile(stPath & "\" & Me!lbxFiles, WIN_NORMAL)
    End If

Teşekkür ederim işimi gördü. yalnız soldaki listeyi nasıl sabitlerim sadece o klasördeki resimler gözükmesi için

Başlangıç klasörünü sabitlemek istiyorsanız formun içindeki sFillRoot adlı prosedürü bu şekilde düzenleyebilirsiniz.. Düzenlediğim kısım masaüstünü başlangıç klasörü yapar; değiştirebilirsiniz..:

Visual Basic

Private Sub sFillRoot()
Dim strAllDrives As String
Dim strTmp As String, strOut As String
Dim loDir      As clsDir
 
    Set loDir = New clsDir
 
    '    strAllDrives = fGetDrives() Burayı pasif yaptım
 
    strOut = vbNullString
 
    mboolRoot = True
 
    Do
        ' strTmp = Mid$(strAllDrives, 1, InStr(strAllDrives, vbNullChar) - 1) 'eskisi
        strTmp = Environ("userprofile") & "\Desktop\"
        strAllDrives = Mid$(strAllDrives, InStr(strAllDrives, vbNullChar) + 1)
        strOut = strOut & strTmp & ";"
    Loop While strAllDrives <> ""
 
    'trim strOut
    strOut = Left$(strOut, Len(strOut) - 1)
 
    'populate the ListBox
    With Me!lbxFolders
        .RowSourceType = "Value List"
        .RowSource = strOut
    End With
 
    Me!cmdNavUp.Enabled = False
    Set loDir = Nothing
    mstPath = vbNullString
 
End Sub

Taruz hocam hakkını helal et
işyerinde senin tecrübelerinden çok yararlandım 
diğer yardımcı olan arkadaşlarda hakkını helal etsin
Hepinizden Allah razı olsun

Eksik olmayın.. Helal olsun..