AccessTr.neT

Tam Versiyon: Accesste gif animasyonları
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhaba,
gif uzantalı hareketli resimlerinizi accesstede aynı şekilde kullanabilirsiniz.
bunun için yapılacak olay ilişikteki gif89.dll dosyasını windows/system32 klasörüne kopyalamak. ve daha sonra başlat/çalıştır 'a gelip regsvr32 gif89.dll çalıştırmak. farklı şekillerde de register işlemleri yapılabilir.
Access alt +f11 vb ortamında references'te gif89 1.0 kutusunu işeretleyip Ok tıklayarak çıkılır. daha sonra activex denetimlerden gif89 class seçilerek formunuza "gif control" diye nesne eklenir. formunuza indirilen bu nesnenin özellikler/diğer sekmesinden filename alanına gif hareketli resim dosyanızın bulundu yolu tam olarak yazıyoruz. örnek: c:/resim/resmim.gif
yukardaki açıklamaların tümü ilişikteki örneğe uygulanmıştır.
(ilişikteki gif örnek programındaki hareketli gif resimlerinin çalışması için, yine ilişikte resim klasörünü C sürücüsüne koymanız gerekmektedir.)

saygılar.
Merhaba;

Cüneyt eline sağlık çok güzel örnek. Teşekkürederim.

Selamlar.
Paylaşımın için çok teşekkür ederim.
hocam başka bir bilgisayar dosyayı kopyaladığımızda yine resim dosyalarını c: kopyalamak zorunda kalmamamız için yapılacak bir şey varmı
Merhaba,
bu dediğiniz ancak ole nesnesi ile gerçekleşebilir yani resmi programımız içindeki ole olarak belirlediğimiz bir alana seçip daim orada tutmak ve istediğimizde görüntülenmesini sağlamak; ancak gif animasyonunu oleden seçmek gibi bir activex geliştirilmedi veya varsa sanırım ücretli olur. ben türlü şekillerde denediysemde başaramadım. bu nedenle göndermiş olduğum activex denetimde sadece adreslerden seçim var. ancak bir kolay yolunu dialog penceresi ile yapabiliriz.
formumuza bir list List box koyuyoruz. birde komut düğmesi,
list box ismi: FileList
Satır kaynak türü : Değer Listesi (list box özelliklerinden, veri sekmesinde)

komut düğmesinin tıklandığında olayına aşağıdaki kodu yapıştırıyoruz; (kodların detayı ile ilgili açıklamaları yanına yazıyorum. aynen kodlama bölümüne yapıştırabilirsizin, bu arada dialog penceresi örneğini de vermiş oluyoruz. aslında ayrı bir konu olarak verebilirdik. ilgili örneği ilişikte..)
Saygılarımla,



Private Sub Komut1_Click()

'Referanslardan Microsoft Office 10.0 Object Library. seçmeniz gerekiyor

Dim fDialog As Office.FileDialog
Dim varFile As Variant

'burda list box kutusun boşaltır temizler.
Me.filelist.RowSource = ""

'burada dialog penceremizi açar
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog

.AllowMultiSelect = True 'burada toplu seçim olayına izin veriyoruz. yani seçimi toplu yapabilecez.


.Title = "Lütfen dosya veya doslayarı seçiniz." 'burada dialog penceresinde yazmış olduğumuz not görünür.

.Filters.Clear 'standart tüm filtereleri kaldırır. bizim belirleyeceğimizi eklemek için.
.Filters.Add "Gif Animasyonu", "*.Gif"

.Filters.Add "All Files", "*.*"


If .Show = True Then 'eğer başarılı devam ederse

For Each varFile In .SelectedItems 'seçili dosyaları
Me.filelist.AddItem varFile 'filelist adındaki listbox'a ekle
Next
Else
MsgBox "İşlemi İptal Ettiniz." 'başarısız ise büyük ihtimalle kendi çıkmış olacağından kafadan bir iptal mesajı verdiriyoruz.
End If
End With

End Sub
Cüneyt hocam tekrar ellerine sağlık...