User Form resim çağırma

[bekirizci]

Değerli Forum üyeleri
Excel de user form üzerinde 1 adet picture nesnesi bulunmakta, personel sicil numarasına göre adlandırılmış bir klasör içinde fotoğraflar bulunuyor.
personel sicil numarasına göre resim çağırmak istiyorum. bu konuda yardımcı olur musunuz. Sicil numarası "textbox15" de bulunuyor
Teşekkürler.

[erseldemirel]

Merhaba aşağıda bir örnek var deneyin;

Private Sub textbox15_Change()
Dim sicilNumarasi As String
Dim imagePath As String
sicilNumarasi = textbox15.Text
imagePath = "D:\TEST\" & sicilNumarasi & ".jpg"
If Dir(imagePath) <> "" Then
picturePersonel.Picture = LoadPicture(imagePath)
Else
picturePersonel.Picture = Nothing
End If
End Sub

[byfika]

Hard diskin D bölümüne PERSONELRESİMLERİ isimli bir klasör açın ve resimleri bu klasörün içine atın. Personel resmine, personelin sicil numarasını yazın. Textbox15 e hangi personelin sicil numarasını girerseniz o personelin resmi image1 nesnesine gelecektir.

Kod: Tümünü seç

Private Sub TextBox15_Change()
resimYol = "d:\PERSONELRESİMLERİ\"
         resimler = Dir(resimYol & "*.*")
   Resim = 0
 While resimler <> ""
          DoEvents
          resimlerAd = Mid(resimler, 1, Len(resimler) - 4)
          If resimlerAd = Me.TextBox15.Text Then
            Me.Image1.Picture = LoadPicture(resimYol & resimler)
            Resim = 1
          End If
         resimler = Dir
 Wend
 If TextBox15= "" Then Me.Image1.Picture = Nothing
 Image1.PictureSizeMode = fmPictureSizeModeZoom
End Sub