Personel Programı (VBA Resim çağıramıyorum)

[unutamadim]

Selam arkadaşlar
Forum sayesinde bir çok bilgiye sahip oldum ama bir konuyu beceremedim. Yardım ederseniz sevinirim.Geliştirmekte olduğum personel programı ekte gönderdim. Fakat userform üzerinde bulunan textboxt1 deki isme göre image1' e resimlerin çağrılmasını beceremedim. yani bilgisayarımdaki d:\resimlerim\ dosyasında bulunan resimleri textbox1 deki isimlere göre image1 e gelmesini istiyrum. yardımlarınız için şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki linkteki çalışmayı incelemenizi öneririm.

http://www.excel.web.tr/f136/personel-bilgileri-resimli-3-rnek-dosya-t22790.html

 

[halit3]

Selam arkadaşlar
Forum sayesinde bir çok bilgiye sahip oldum ama bir konuyu beceremedim. Yardım ederseniz sevinirim.Geliştirmekte olduğum personel programı ekte gönderdim. Fakat userform üzerinde bulunan textboxt1 deki isme göre image1' e resimlerin çağrılmasını beceremedim. yani bilgisayarımdaki d:\resimlerim\ dosyasında bulunan resimleri textbox1 deki isimlere göre image1 e gelmesini istiyrum. yardımlarınız için şimdiden teşekkürler.

bu kodu ListBox1_Click içine

TextBox71.Text = Cells(satır, 49) den sonra koy

Image1.Picture = LoadPicture(None)
If CreateObject("Scripting.FileSystemObject").FileExists("D:\resimlerim\" & TextBox1 & ".Jpg") = True Then
Image1.Picture = LoadPicture("D:\resimlerim\" & TextBox1 & ".Jpg")
End If