[Çözüldü]  İmage nesnesine hem Jpg hem de Png fotoğraf alabilme

Resim nesnesi

İmage nesnesine hem Jpg hem de Png fotoğraf alabilme

İleti#1)  ayhan518 » 21 May 2020 09:02

Merhaba,
Aşağıdaki kod yardımı ile listboxa tıkladığımda ilgili kişinin yalnızca jpg formatındaki fotoğraflarını image nesnesine alabiliyorum. Fakat albümümde çok sayıda png formatlı fotoğraf bulunuyor. Bu kodu hem Jpg hem de Png formatlı fotoğrafları çalıştıracak şekilde nasıl güncelleyebiliriz? Cevaplarınız ve yardımlarınız için şimdiden teşekkür ederim.
resimYol = ThisWorkbook.Path & "\personel\"

resimler = Dir(resimYol & "*.*")
resim = 0
TextBox3.Value = LabelA2 & " " & LabelA3 & " " & LabelA1 & "_1"
TextBox4.Value = LabelA2 & " " & LabelA3 & " " & LabelA1 & "_2"
TextBox5.Value = LabelA2 & " " & LabelA3 & " " & LabelA1 & "_3"
TextBox6.Value = LabelA2 & " " & LabelA3 & " " & LabelA1 & "_4"
TextBox7.Value = LabelA2 & " " & LabelA3 & " " & LabelA1 & "_5"
While resimler <> ""
DoEvents
resimlerAd = Mid(resimler, 1, Len(resimler) - 4)
If resimlerAd = Me.TextBox3.Text Then
Me.Image1.Picture = LoadPicture(resimYol & resimler)
resim = 1
End If

If resimlerAd = Me.TextBox4.Text Then
Me.Image2.Picture = LoadPicture(resimYol & resimler)
resim = 1
End If

If resimlerAd = Me.TextBox5.Text Then
Me.Image3.Picture = LoadPicture(resimYol & resimler)
resim = 1
End If

If resimlerAd = Me.TextBox6.Text Then
Me.Image4.Picture = LoadPicture(resimYol & resimler)
resim = 1
End If

If resimlerAd = Me.TextBox7.Text Then
Me.Image5.Picture = LoadPicture(resimYol & resimler)
resim = 1
End If

resimler = Dir
Wend
If resim = 0 Then Me.Image1.Picture = LoadPicture(resimYol & "resimYok.jpg")
If resim = 0 Then Me.Image2.Picture = LoadPicture(resimYol & "resimYok.jpg")
If resim = 0 Then Me.Image3.Picture = LoadPicture(resimYol & "resimYok.jpg")
If resim = 0 Then Me.Image4.Picture = LoadPicture(resimYol & "resimYok.jpg")
If resim = 0 Then Me.Image5.Picture = LoadPicture(resimYol & "resimYok.jpg")
Kullanıcı avatarı
ayhan518
Yeni Başlamış
 
Kayıt: 06 Şub 2019 16:15
Meslek: serbest
Yaş: 35
İleti: 21
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/ nilüfer

Cevap: İmage nesnesine hem Jpg hem de Png fotoğraf alabilme

İleti#2)  Tarkan VURAL » 21 May 2020 10:09

Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27311
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: İmage nesnesine hem Jpg hem de Png fotoğraf al

İleti#3)  ayhan518 » 24 May 2020 15:46




Tarkan Bey merhaba,
ilettiğiniz konuları inceledim fakat aklıma takılan bir soruyu sormak istiyorum. kendi bilgisayarım 32 bit, fakat kurumumdaki bilgisayarım 64 bit ve ben hazırladığım bu uygulamayı kurumumda kullanacağım,

Kod: Tümünü seç
Public Declare Function OleCreatePictureIndirect Lib "olepro32.dll" ( _

bu satır 64 bit olan kurum bilgisayarımda hata almama sebep olacak mıdır sizce?
Kullanıcı avatarı
ayhan518
Yeni Başlamış
 
Kayıt: 06 Şub 2019 16:15
Meslek: serbest
Yaş: 35
İleti: 21
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/ nilüfer

Cevap: İmage nesnesine hem Jpg hem de Png fotoğraf alabilme

İleti#4)  ayhan518 » 25 May 2020 10:07

Merhaba,
png formatlı fotoğraf görüntüleme fikrinden vazgeçtim ve bir defaya mahsus elimdeki tüm png fotoğrafları "image convert and resize" programı ile toplu olarak jpg formatına çevirdim. iyi günler.
Kullanıcı avatarı
ayhan518
Yeni Başlamış
 
Kayıt: 06 Şub 2019 16:15
Meslek: serbest
Yaş: 35
İleti: 21
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/ nilüfer

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum İmage

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe