Anasayfa | Akademik Forum | Sizden Gelenler | Sipariş
Menü Açıklamaları
Sorular - Cevaplar
Makaleler
Makrolar
Yerleşik İşlevler
Animasyonlar
Yumurtalar
Fonksiyonlar
MTK Programlar
ExcelCE
Dosya İndir
Neler Yaptık?
İletişim
Sorular - Cevaplar
Soru-Cevap: 4 - M. Temel Korkmaz - 28.04.2004

Resim Dosyaya Eklensin
Soru 4:
Yazmış olduğum bir makroda UserForm üzerindeki Image1’e

Image1.Picture = LoadPicture("C:\Belgelerim\Ali.jpg")

satırı ile resim alıyorum. Fakat resmin bilgisayarımdaki adı ya da yolu değişince resim görünmüyor. Resmi dosyaya eklemenin bir yolu yok mu? Yani yukarıdaki ilgili adresten almayıp dosyaya eklesin.

Cevap 4:

Bu şekilde eklediğiniz bir resim HDD'de yeri değişince normal olarak Image nesnesi içersinde görüntülenmez. Yani teşhis doğru.

Şimdi sorunuzun cevabına gelelim.

Eğer Image nesnesi içerisine tek bir resim alacaksanız sorun olmayacaktır bunu dosyanızdaki Image nesnesine gömebilirsiniz. Bunun için yapmanız gereken yöntem VBE'deki Properties penceresinde bulunan Picture özelliğini kullanmaktır.

1. Image nesnesini seçin.
2. Properties penceresindeki Picture özelliğine tıklayın.
3. Ekrana gelen pencereden istediğiniz resmi seçin. Yolu önemli değil.
4. Tamam düğmesine tıklayın.

Resmin Image nesnesine aktarıldığını göreceksiniz. Artık bu resim image nesnesine gömülü hale geldi. Yani HDD'de bulunan resimle herhangi bir ilişkisi kalmadı. Unutmayın bu sadece tek bir resim için geçerlidir. Siz de sorunuzda aksini belirtmemişsiniz.

Soru 4 (Devam):

Sayın Korkmaz,
Öncelikle açıklamanıza teşekkür ederim. Yazımda Belirtmeyi unuttum. Resim birden fazla. Acaba böyle olunca mümkün mü?

Cevap 4 (Devam):
Sizin için en uygun yöntemi aşağıya adım adım yazıyorum. Ancak bunun için bilgisayarınızda C:\Windows\System\mscomctl.ocx dosyası bulunmalı. Bu dosyanın Additional Controls menüsündeki tam adı Microsoft ImageList Control 6.0

1. Bir UserForm oluşturun.
2. UserForm'un üzerine İmageList, İmage, ListBox nesneleri ekleyin.
3. ImageList1 nesnesin seçin.
4. Properties penceresinden Custom Özelliğine tıklayın. Property Pages penceresi açılacaktır.
5. Images sayfa sekmesine geçin.
6. Insert Picture Düğmesine tıklayın ve resimlerinizi bularak bu kutuya aktarın.

Resimleriniz ImageList1 nesnesine aktarıldığı anda HDD ile işiniz kalmadı demektir. O resimlerin yeri değişse de ImageList1 deki resimler kalıcıdır.

Yukarıdaki işlemleri tamamladıktan sonra şuna dikkat edin ImageList1 nesnesindeki her resmin üzerine tıkladığınızda Index numarasının 1’den başlayarak arttığını göreceksiniz. Ben bu örneği 4 adet resime göre verdim. Aşağıdaki kodları UserFormun kod sayfasına yazın

Private Sub ListBox1_Click()
  Image1.Picture = _
    ImageList1.ListImages(ListBox1.ListIndex + 1).Picture
End Sub

Private Sub UserForm_Initialize()
  ListBox1.AddItem "Resim1"
  ListBox1.AddItem "Resim2"
  ListBox1.AddItem "Resim3"
  ListBox1.AddItem "Resim4"
End Sub


Resimlerin yerlerini değiştirseniz de programınızda bir değişiklik olmayacak. Lütfen yukarıda bahsettiğim ocx dosyasını bulun. Herhangi bir Visual Basic 6.0 cd si içerisinde bulunan bir dosyadır. Bulun ve Tools menüsünden References'den dosyanızı programa tanıtın. Bu tanıtım hakkında forumda yazı bulunmaktadır (http://www.office.gen.tr/forum/viewtopic.php?t=202) . Eğer bilgisayarınızda VB 6 kurulu ise ya da bu dosya varsa sorun yok demektir. Ben bilgisayarınızda olmaması üzerine ihtimalleri yazdım.
Destek
M.ÖZTÜRK - Y.KARAMAN
Bu siteyi, "Hayatını çocuklarının Ahlâklı ve Dürüst yetişmesi için harcamış olan Cefakar ve Fedakar, Canım ANNEM'e adadım."
Copyright © 1998-2011 M. Temel Korkmaz - Tüm hakları saklıdır.