listbox taki listede çift tıklama ile image1 e resim atama

[olymposss]

sn hocalarım, arkadaşlar
herkese iyi çalışmalar.

userform da listbox1,image1 var.bir buton ile gözat penceresinden listbox a jpg uzantılı dosyaların listesini alıyorum.listeden seçtiğim resmi çift tıkladığımda image1 e yüklemesini istiyorum.aşağıdaki kodu kullandım ama olmadı. yardımcı olabilirmisiniz?

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Image1 = ListBox1.Selected
End Sub

şimdiden çok teşekkür ederim. saygılar:yardim:

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Yalnız listboxta tüm path yazılı olmalıdır, sadece resmin adı varsa path kod içine ilave edilmelidir.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Image1 = loadpicture(ListBox1)
End Sub

 

[olymposss]

sn hocam

şu kodlar ile listbox a resim isimlerini listeliyorum.

With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
dizin = .SelectedItems(1)
End If
End With
dosya = Dir(dizin & Application.PathSeparator & _
"*.jpg", vbDirectory)
Do While dosya <> ""
If dosya = ThisWorkbook.Name Then GoTo ResumeSub:
i = i + 1
ListBox1.AddItem dosya
ResumeSub:
dosya = Dir
Loop
(sn zaferden alıntıdır.)

ancak sizin dediğiniz gibi tam dosya yolu olmadığı için yükleme yapmıyor, hata veriyor. peki yukarıdaki kodlar ile listboxa resimlerin tam yolu ile listelemesi yapılabilirmi?
teşekkürler saygılar:yardim:

 

[Levent Menteşoğlu]

A&#351;a&#287;&#305;daki gibi yolu belirtin.

[LEFT]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Image1 = loadpicture("c:\resimler\" & ListBox1 & ".jpg")
End Sub[/LEFT]

 

[olymposss]

sn leventm ilginize çok teşekkür ederim

yazdığınız kodları denedim ama method hatası veriyor. bu arada listbox tan çift tıklama ile veriyi yüklemek istediğimizde eğer yolun adını biz verirsek gözat kullanmamıza gerek kalmaz.
yapmaya çalıştığım gözat ile seçilen resimlerin image1 e yüklenmesi.
bu yüzden listbox a tam yolun adı ile liste yapılmasını istedim.böylece yolun adını "c:\resimler" şeklinde vermeden hangi klasöre gözat yapılmışsa onu yüklesin.veya direkt olarak gözattan seçilen resmin image1 e yüklenmesinide sağlayabiliriz.
sizleri çok yorduğumun farkındayım. çok özür dilerim.

yardımlarınız için teşekkür ederim. saygılar:yardim:

 

[olymposss]

galiba gerçekten çok yordum sizi

:yardim: :yardim:

 

[Levent Menteşoğlu]

&#214;ncelikle dizin ad&#305;n&#305; bir diziye aktarmal&#305;s&#305;n&#305;z ki bunu di&#287;er kodlarda da kullanabilesiniz. Kodlar&#305;n en &#252;st&#252;ne bir dim tan&#305;mlay&#305;n, dim dizin as integer &#351;eklinde, daha sonra dizin ad&#305;n&#305; a&#351;a&#287;&#305;daki gibi kod i&#231;inde bu diziye aktar&#305;n.

Daha sonrada listboxa a&#351;a&#287;&#305;daki kodu yaz&#305;n.

[LEFT]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Image1 = loadpicture(dizin & "\" & ListBox1 & ".jpg")
End Sub[/LEFT]

 

[olymposss]

sn hocam

ilk önce herkese hayırlı günler
sonra da affınıza sığınarak bu işi beceremediğimi söylemek istiyorum. diziyi kurmaya çalıştım ama hep hata veriyor. galiba size dosyayı yollamam daha doğru olacak. sizide sürekli meşgul ettiğim için kusura bakmayın.
sabrınız için çok teşekkürler saygılar.:yardim:

 

[olymposss]

sn hocalarım ilk defa soruma bir cevap bulamadım.

yardımcı olacak varmı?:yardim:

 

[olymposss]

listbox tan vazgeçtim.

sn hocalarım.insan bazen zorda kalınca kendi kendine cevap bulabiliyor.istediğim sonuca ulaşamasamda ilginize çok teşekkürler. bu forumdan çok ama çok şey öğrendiğimi söylemek isterim.

listbox taki resim listesinden resim almaktan vazgeçtim. ama bir tuş ile image1 e resim atmayı öğrendim. aşağıdaki kodları kullanıyorum.

Image1.Picture = LoadPicture("c:\resimler\1.jpg")
Image1.PictureSizeMode = fmPictureSizeModeStretch

ancak userformu tekrar açınca resim kayboluyor. tekrar yüklemem gerekiyor.bunu kalıcı hale getirebilirmiyiz?

çok teşekkürler saygılar:yardim: