Userform üzerinde görüntülenecek aynı isimli resimleri adlandırma

[kelkitli]

Değerli Dostlar Selamlar,

Private Sub TextBox2_Change()
On Error Resume Next
Image1.Picture = LoadPicture("c:\Kimlikler\" & TextBox2.Value & ".jpg")
Image2.Picture = LoadPicture("c:\Kimlikler\" & TextBox2.Value & ".jpg")
End Sub
şeklinde bu kodla Userform üzerinde resim görüntüledim. Ancak Image1 ve Image2 de kişiye ait ayrı resimleri görüntülemem gerekiyor.
Yapmak istediğim şu: TextBox2 de yazılan isme 1 ve 2 ibarelerini eklemek istiyorum. Resimleri ismlendirirken de bu kritere göre mesele resim_1 ve resim_2 diye adlandıracağım.

 

[kelkitli]

Birde resim yoksa Image1,2 boş olmalı

 

[Zeki Gürsoy]

Merhaba,

Daha pratik yöntemi bulunabilir. Ben Textbox2 değeri için "Dir" çekerek olabileceğini düşünüyorum.

İsimler örneğin, "kelkitli_1.jpg" ve "kelkitli_2.jpg" olsun. Bulmak için

dir ("c:\kimlikler\" & textbox2 & "_*")

Koşul uyduğunda bir veya iki dosya dönecektir ve

d =  dir ("c:\kimlikler\" & textbox2 & "_*")
while d <> ""
i=i+1
controls("image" & i).picture = loadpicture("c:\kimlik\" & d)
wend

şeklinde resim yüklenir.

Koşul uymadığında (resim yoksa)

if dir("c:\kimlik\"  & textbox2 & "_*") = "" then 
for i=1 to 2
 controls("image" & i).picture = nothing
 next

Test edebilmek için küçük bir örnek eklerseniz iyi olur.

 

[kelkitli]

Sayın Zeki Bey, Cevap verdiğiniz için teşekkür ederim. Dosyayı ve resimleri ekledim.

 

[Zeki Gürsoy]

Buyrun..

Private Sub TextBox2_Change()
On Error Resume Next
'Dir ("c:\kimlikler\" & TextBox2 & "_*")

d = Dir("c:\kimlikler\" & TextBox2 & "_*")
While d <> ""
    i = i + 1
    Controls("image" & i).Picture = LoadPicture("c:\kimlikler\" & d)
    d = Dir
Wend

    If Dir("c:\kimlikler\" & TextBox2 & "_*") = "" Then
        For i = 1 To 2
        Controls("image" & i).Picture = Nothing
        Next
    End If
End Sub

 

[kelkitli]

Zeki Bey teşekkürlerimi iletirim. İşlem tamam ve güzel de oldu. Sağolun, Varolun.