Accesste gif animasyonları
Tarih
01/11/2008 21:35
Konu Sahibi
cuneyt
Yorumlar
5
Okunma
3736
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



cuneyt

Kullanici Avatari
Onursal
321
29/10/2008
81
İstanbul
Ofis 2007
08/06/2016,10:56
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.


Ek Dosyalar
.rar   gif.rar (Dosya Boyutu: 547,57 KB / İndirme Sayısı: 431)
Cevapla


adnan
Aktif Üye
Kullanici Avatari
Aktif Üye
112
30/10/2008
0
Ankara
01/04/2011,21:55
Merhaba;

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

Selamlar.
Cevapla


kabak
Üye
Kullanici Avatari
Üye
7
0
12/11/2008
0
Ülke Dışı
Ofis 97
17/12/2010,12:55
Paylaşımın için çok teşekkür ederim.
Cevapla


abkpasa
Üye
Kullanici Avatari
Üye
3
0
25/11/2008
0
Giresun
Ofis 2003
26/12/2011,10:59
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ı
Cevapla


cuneyt

Kullanici Avatari
Onursal
321
29/10/2008
81
İstanbul
Ofis 2007
08/06/2016,10:56
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


Ek Dosyalar
.rar   gif.rar (Dosya Boyutu: 557,85 KB / İndirme Sayısı: 68)
Cevapla


ielmacilar
Üye
Kullanici Avatari
Üye
24
2
09/05/2010
0
Antalya
Belirtilmemiş
10/10/2011,12:46
Cüneyt hocam tekrar ellerine sağlık...
ielmacilar, 09-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Accesste Resimlerin Otomatik Geçişi (Slayt Şeklinde) Örnek Uygulama mehami 1 351 14/04/2016, 23:44 ozanakkaya
Smile Accesste Radyo Tv cuneyt 6 3.365 19/02/2012, 20:31 remixindir


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya