loadpicture

[Sebastijan]

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

[admin]

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:

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

Edino kar vam mogoče lahko pomaga, da rezultat ker preetvorite v integer (torej CInt) ali pa ga poskusite zaokrožiti z Round....