Question

VB 缩小图片

一个picture中有一个图片，怎么把他缩小，然后保存到c:\123.bmp

Answer 1

先把图片框的属性设置为自动调整.然后
Private Sub Form_click()
Picture1.Width = Picture1.Width / 2
Picture1.Height = Picture1.Height / 2
End Sub

这是缩小一半.你也可以改成其他数值来进行缩小.
比如:Private Sub Form_click()
Picture1.Width = Picture1.Width / 3
Picture1.Height = Picture1.Height / 3
End Sub

你也可以来指定缩小的数值
比如:
Private Sub Form_click()
Picture1.Width = Picture1.Width - 2000
Picture1.Height = Picture1.Height - 2000
End Sub
不过得注意,减号后面的数值不要比你最初给图片给定的大小小

最后保存.

open "c:\123.bmp" for output as #1
close #1