User Form resim çağırma

UserForm TextBox CommandButton
ComboBox ListBox CheckBox
OptionButton İmage Label
Frame ToggleButton MultiPage
VBE Penceresi ScrollBar SpinButton
TreeView ListView ToolBar
StatusBar ProgressBar SpreadSheet
MsgBox
Cevapla
bekirizci
Mesajlar: 1
Kayıt: Sal Tem 04, 2023 12:07 pm
Lokasyon: ANKARA
Meslek: İnsan Kaynakları Uzmanı/Personel Uzmanı
Adınız: BEKİR
Soyadınız: İZCİ

User Form resim çağırma

Mesaj gönderen 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
Mesajlar: 94
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: User Form resim çağırma

Mesaj gönderen 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
Mesajlar: 1
Kayıt: Cum Haz 23, 2023 6:09 pm
Lokasyon: İzmir
Adınız: Akif
Soyadınız: ÖZİZMİRLİ

Re: User Form resim çağırma

Mesaj gönderen 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
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj