Çağrılan resim dosyalarının isimlerini userformda gösterme?

[Gorarr]

Selamlar,
Necdet Yeşertener hocamızın yazdığı bir koddur. Kendisine tekrardan teşekkürlerimi sunarım.

Kodun amacı belirtilen klasördeki resimleri açıyor ve değiştirme imkanı sunuyor. Ben ek olarak userforma Label ekledim ve bu labelde açılan resim dosyalarının isimleri yazsın istiyordum. kodlara eklememde yardımcı olabilirseniz çok sevinirim.

Şimdiden teşekkür ederim.

 

[mustafaine1]

yanlis anlamadiysam

sayi(c) = dosya.Name

kodundan sonra

Label1.Caption = Left(sayi(c), Len(sayi(c)) - 4)

kodunu eklemek sanirim isinizi gorebilir..

 

[Gorarr]

Hocam malesef kod işe yaramadı. Her başlık altına yerleştirerek denedim.

 

[halit3]

Bunu denermisiniz.

Private Sub SpinButton1_Change()
Image1.Picture = LoadPicture(yol & sayi(SpinButton1))
Label1 = yol & sayi(SpinButton1)
End Sub

veya

Private Sub SpinButton1_Change()
Image1.Picture = LoadPicture(yol & sayi(SpinButton1))
Label1 = Dir(yol & sayi(SpinButton1))
End Sub

veya

Private Sub SpinButton1_Change()
Image1.Picture = LoadPicture(yol & sayi(SpinButton1))
Set dosya = CreateObject("Shell.Application").Namespace(yol).ParseName(Dir(yol & sayi(SpinButton1)))
Label1 = dosya
End Sub

 

[halit3]

Buda başka bir kod

Private Sub SpinButton1_Change()
Set nesne = CreateObject("Scripting.FileSystemObject")
yol = "D:\resim\"
Set klasor = nesne.GetFolder(yol)
say = klasor.Files.Count
If SpinButton1 <= 0 Then SpinButton1.Value = 0
If SpinButton1 <= say Then
c = 0
For Each dosya In klasor.Files
c = c + 1
If c = SpinButton1 Then
Image1.Picture = LoadPicture(yol & dosya.Name)
Set dosya2 = CreateObject("Shell.Application").Namespace(yol).ParseName(Dir(yol & dosya.Name))
Label1 = dosya2
Label2 = dosya.Name
Label3 = yol & dosya.Name
Exit For
End If
Next
Else
SpinButton1.Value = say
End If
End Sub

 

[Gorarr]

Halit hocam çok teşekkür ederim. Saygılar selamlar..

 

[halit3]

Halit hocam çok teşekkür ederim. Saygılar selamlar..

iyi çalışmalar

 

[rmznkc]

Halit hocam;
Çalışmanız için teşekkürler öncelikle.
Spinbutton' a her tıkladığımızda farklı resimleri görüyoruz. Peki bu resimleri görürken seçtiklerimizi excel dosyamıza atabilmek için nasıl bir kod yazabiliriz?
örn; Spinbutton' a tıkladığımızda birinci resmi gördük fakat onu kaydetmek istemiyoruz,daha sonra bir kez daha tıkladık ve ikinci resmi gördük ve ikinci resmi excel dosyamıza kaydetmek istiyoruz.

yardımcı olabilirseniz sevinirim..

 

[halit3]

Halit hocam;
Çalışmanız için teşekkürler öncelikle.
Spinbutton' a her tıkladığımızda farklı resimleri görüyoruz. Peki bu resimleri görürken seçtiklerimizi excel dosyamıza atabilmek için nasıl bir kod yazabiliriz?
örn; Spinbutton' a tıkladığımızda birinci resmi gördük fakat onu kaydetmek istemiyoruz,daha sonra bir kez daha tıkladık ve ikinci resmi gördük ve ikinci resmi excel dosyamıza kaydetmek istiyoruz.

yardımcı olabilirseniz sevinirim..

Bu konu farklı aşağıdaki linkdeki sayfa3 deki userformu inceleyin.

http://www.excel.web.tr/f48/resim-gosterme-secenekleri-t90172.html