Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
01/11/2008 21:35
Konu Sahibi
cuneyt
Yorumlar
5
Okunma
4512
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

cuneyt

Aktif Üye
Aktif Üye
CÜ.... AY....
 44
 321
 23
 29/10/2008
91
 İstanbul
 muhasebe
 Ofis 2016 64 Bit
 06/09/2018,10:36
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ı: 450)

Kullanici Avatari

adnan

Aktif Üye
Aktif Üye
 55
 112
 11
 30/10/2008
0
 Ankara
 
 
 03/02/2018,13:18
Merhaba;

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

Selamlar.



Kullanici Avatari

kabak

Üye
Üye
 67
 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.



Kullanici Avatari

abkpasa

Üye
Üye
 43
 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ı



Kullanici Avatari

cuneyt

Aktif Üye
Aktif Üye
CÜ.... AY....
 44
 321
 23
 29/10/2008
91
 İstanbul
 muhasebe
 Ofis 2016 64 Bit
 06/09/2018,10:36
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ı: 71)

Kullanici Avatari

ielmacilar


Altın Üye
IB.... EL....
 39
 80
 12
 09/05/2010
0
 Antalya
 Otomotiv
 Ofis 2003
 22/09/2018,12:29
Cüneyt hocam tekrar ellerine sağlık...


ielmacilar, 09-05-2010 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

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

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.