可以将图片在picturebox1中打开,将图片的尺寸更改成固定值,并在picturebox2中输出,而且可继续保存在电脑中。
求更改图片尺寸的代码,以及保存picturebox2中更改后的图片的代码,谢谢啦~!
比如100*100的照片如何修改成110*140的照片,单位为像素。
还有就是如何得到picturebox里显示的图片的像素?
VB6.0ä¸å¯ä½¿ç¨PaintPicture æ¹æ³å¨ Form, PictureBox æ Printer ä¸ç»å¶å¾å½¢æ件æ¶è®¾ç½®åæ°æ´æ¹å¾çç尺寸ã使ç¨SavePicture è¯å¥ï¼ä»å¯¹è±¡ææ§ä»¶ï¼å¦ææä¸ä¸ªä¸å ¶ç¸å ³ï¼ç Picture æ Image å±æ§ä¸å°å¾å½¢ä¿åå°æ件ä¸ã
PaintPicture æ¹æ³ï¼ç¨ä»¥å¨ Form, PictureBox æ Printer
ä¸ç»å¶å¾å½¢æ件ï¼.bmpã.wmfã.emfã.curã.icoæ .dibï¼çå
容ãä¸æ¯æå½ååæ°ã
è¯æ³
SavePicture è¯å¥ï¼ä»å¯¹è±¡ææ§ä»¶ï¼å¦ææä¸ä¸ªä¸å ¶ç¸å ³ï¼ç Picture æ Image å±æ§ä¸å°å¾å½¢ä¿åå°æ件ä¸ã
代ç å®ä¾ï¼
Private Sub Command1_Click()
Picture2.PaintPicture Picture1.Picture, 0, 0, 4000, 3200
End Sub
Private Sub Command2_Click()
SavePicture Picture2.Image, "D:\Pic.bmp"
End Sub
Private Sub Form_Load()
Picture2.AutoRedraw = True
Picture1.Picture = LoadPicture("D:\p1.jpg")
End Sub