hintergrundbild anpassen

[sascha 1974]

me again,

hab noch `nen prob
und zwar bekomme ich mein hintergrundbild nicht angepasst so von wegen der größe und so.
mein vb screen hat die grösse 8000*11000 (welche maßeinheit auch immer das is)
nur bekomme ich mein bitmap nicht angepasst da fehlt immer was, sprich mein bmp is zu klein

 

[Orakel]

Hi Sasha

setz mal die ScaleMode Deiner Form auf Pixel. Dann sollte es gehen. Nun kann es aber sein, dass das Hintergrundbild kleiner ist als Deine Form. Wenn dem so ist dann würde ich

Schritt 1: Das Bild mittels IPictureDisp laden
Schritt 2: Das Bild mittels PaintPicture vom IPictureDisp Objekt auf den Hintergrund pinseln


Gruß
Das Orakel

 

[sascha 1974]

hm, irgendwie komm ich da mit dem quellcode nicht so ganz klar hast da event ne kleinigkeit für mich

 

[Orakel]

Hi Sasha,

mal schnell so aus der hohlen Hand.

Dim mPicture as IPictureDisp

Set mPicture = LoadPicture( "Dein Bild" )

Me.PaintPicture mPicture, 0, 0, Me.ScaleWidth, Me.ScaleHeight, _
0, 0, ScaleX(mPicture.Width, vbHimetric, vbPixels), ScaleY(mPictures.Height, vbHimetric, vbPixels)

Evtl. noch Me.Picture = Me.Image

Sorry. Muß leider wech.

Ach ja. Das ganze im Load oder Resize Event der Form.

Gruß
Das Orakel