所以才有了下面的這個方法,讓圖片適應圖片框大?。?/div> 先是用一個隱藏的Image或者Picture打開一個圖片(注意如果是用Picture的話要把AutoRedraw屬性設為True),然后在另一個可見的Picture上畫圖:Picture1.PaintPicture Image1.Picture, 0, 0, Picture1.Width, Picture1.Height,完成的功能就是吧Image1已經打開的圖片畫到Picture1上。
下面是程序代碼:
Image1.Stretch = True
Image1.Picture = LoadPicture("……")
Picture1.PaintPicture Image1.Picture, 0, 0, Picture1.Width, Picture1.Height
順便說一下,使用Picture1.Point(x,y)返回的是一個24位數,共3個字節(jié),低位的1個字節(jié)是R,中間的1個是G,高位的1個字節(jié)是B。