Pozdrav,
kako bi lahko dobil velikost slike ki jo nalagam?
Nekaj sem našel na netu vendar ne dobim prave velikosti.
H1 dobim pravilno 480px
W1 dobim 639px. Slika je dejansko 640PX. Zmanjka torej 1 pixel
a bi se to dalo dobiti ven še kako drugače?
Dim oPic As IPictureDisp
Dim H1 As Long
Dim W1 As Long
Set oPic = LoadPicture("POT DO SLIKE")
H1 = ((96 * oPic.height) \ 2540)
W1 = ((96 * oPic.width) \ 2540)
Set oPic = Nothing
Lp
Sebastijan
loadpicture
-
- Prispevkov: 17
- Pridružen: To Jul 26, 2005 9:55 am
- Kontakt:
Re: loadpicture
Pozdravljeni,
Bo funkcija kar prava... No vi sicer uporabljate konstanto 96, kar pa je čisto OK... Če želite biti dlakocepski bi morali te konstante prebrati iz sistema, torej takole (razlaga na spletu). A na koncu potem spet pristanete na matematično isti formuli:
Edino kar vam mogoče lahko pomaga, da rezultat ker preetvorite v integer (torej CInt) ali pa ga poskusite zaokrožiti z Round....
Bo funkcija kar prava... No vi sicer uporabljate konstanto 96, kar pa je čisto OK... Če želite biti dlakocepski bi morali te konstante prebrati iz sistema, torej takole (razlaga na spletu). A na koncu potem spet pristanete na matematično isti formuli:
Koda: Izberi vse
Sub test()
Dim pic
Set pic = LoadPicture("d:\poprava1.bmp")
Debug.Print pic.Width
Debug.Print pic.Height
Debug.Print CInt(pic.Width / 2540 * (1440 / TwipsPerPixelX))
Debug.Print CInt(pic.Height / 2540 * (1440 / TwipsPerPixelY))
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator