Visual Basic - Technik, FAQ, Tricks, Beispiele

Home / Objekte / Sonstiges / Bitmap

Abmessungen einer Bitmap

Um die Größe einer Bitmap zu bestimmen genügen einfache VB-Mittel (hier inklusive Umrechnung in Pixel):
Dim Pic As stdole.StdPicture
Dim PicWidth As Long
Dim PicHeight As Long

Set Pic = LoadPicture("C:\blabla.bmp")
PicWidth = CLng(ScaleX(Pic.Width, vbHimetric, vbPixels))
PicHeight = CLng(ScaleY(Pic.Height, vbHimetric, vbPixels))
Stellen Sie bitte sicher, dass unter Project/References (bzw. deutsch Projekt/Verweise o.ä.) das Häckchen vor "OLE Automation" gesetzt ist.

© Jost Schwider, 12.05.2000-14.08.2000 - http://vb-tec.de/bitmap.htm