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
Resmin Boyutlarını Almak
Bu Konudaki Yorumlar |
Resmin Boyutlarını Almak - Yazar: ates2014 - 12/03/2018, 16:22
Cvp: Resmin Boyutlarını Almak - Yazar: alpeki99 - 12/03/2018, 16:55
Cvp: Resmin Boyutlarını Almak - Yazar: ozguryasin - 12/03/2018, 21:19
Cvp: Resmin Boyutlarını Almak - Yazar: ozguryasin - 12/03/2018, 21:27
Cvp: Resmin Boyutlarını Almak - Yazar: ates2014 - 14/03/2018, 09:27
Cvp: Resmin Boyutlarını Almak - Yazar: alpeki99 - 14/03/2018, 14:39
Cvp: Resmin Boyutlarını Almak - Yazar: ates2014 - 14/03/2018, 16:08
Cvp: Resmin Boyutlarını Almak - Yazar: alpeki99 - 15/03/2018, 10:06
Cvp: Resmin Boyutlarını Almak - Yazar: nane - 14/03/2018, 17:34
Cvp: Resmin Boyutlarını Almak - Yazar: ates2014 - 14/03/2018, 19:16
Cvp: Resmin Boyutlarını Almak - Yazar: ates2014 - 16/03/2018, 23:58
Cvp: Resmin Boyutlarını Almak - Yazar: esrefigit igit - 20/03/2018, 15:01
Cvp: Resmin Boyutlarını Almak - Yazar: esrefigit igit - 20/03/2018, 15:25
|
Konuyu Okuyanlar: 1 Ziyaretçi