Resmin Boyutlarını Almak - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Resmin Boyutlarını Almak (/konu-resmin-boyutlarini-almak.html) |
Cvp: Resmin Boyutlarını Almak - ates2014 - 14/03/2018 Sayın alpeki, mümkünse ikiside olsun. Teşekkürler Cvp: Resmin Boyutlarını Almak - nane - 14/03/2018 Merhaba,Konu açamıyorum tarayıcılarda yardıma girince fotoğraf gözükmüyor. Cvp: Resmin Boyutlarını Almak - ates2014 - 14/03/2018 Sayın nane mesajı yanlış yere yazmişsınız. ;) Cvp: Resmin Boyutlarını Almak - alpeki99 - 15/03/2018 (14/03/2018, 16:08)ates2014 yazdı: Sayın alpeki, mümkünse ikiside olsun. Çözünürlük için MediaInfo'nun DLL dosyasını kullanmak lazım bunun dışında alabileceğiniz benim bildiğim bir yöntem yok. Dosya boyutunu öğrenmek için ise aşağıdaki fonksiyonu kullanabilirsiniz:
Kullanımı: Kod:
GetFileInfo ("C:\Users\Quality\Desktop\7. Realm Veri Tabanı\1. Giriş.mp4") Cvp: Resmin Boyutlarını Almak - ates2014 - 16/03/2018 Sayın alpeki, ilginiz için tekrar teşekkür ederim, bu eklentiyi kullandım çok sağolun... Cvp: Resmin Boyutlarını Almak - esrefigit igit - 20/03/2018 Me.cerceve.Picture = Me.resimlink Me.ResimBoyut = GetProperties(Me.resimlink, 1) End Sub Function GetProperties(file As String, propertyVal As Integer) As Variant Dim varfolder, varfile With CreateObject("Shell.Application") Set varfolder = .Namespace(Left(file, InStrRev(file, "\") - 1)) Set varfile = varfolder.ParseName(Right(file, Len(file) - InStrRev(file, "\"))) GetProperties = varfolder.GetDetailsOf(varfile, propertyVal) End With End Function Me.resimlink, 1) burdaki rakamı 1 den bilmem kaça kadar değiştirisen resmin boyutunu özelliklerini değiştirilme tarihini yerini falanını filanını veriyor |