Question

如何在VB6.0中对图片进行放缩？感谢了 需要具体文字解释说明及代码 有截图更好 这个算学分的 谢谢大家了

Answer 1

如果你用image控件来放置图片，那么将此控件的.Stretch 属性设置为true，然后根据需要设置image控件的纵横比，图片就会随着缩放。

如果你用picture控件，就要用到bibte()这个api函数，或用paint()函数，在复制图片的过程中缩放
函数具体用法，自行查阅

Answer 2

Private Sub Command1_Click()
Image1.Stretch = True
Image1.Width = Image1.Width * 0.5
Image1.Height = Image1.Height * 0.5

End Sub

Private Sub Command2_Click()
Image1.Stretch = True
Image1.Width = Image1.Width * 1.5
Image1.Height = Image1.Height * 1.5

End Sub

Private Sub Form_Load()
Image1.Stretch = False
Image1.Picture = LoadPicture("c:\1.jpg")

End Sub
举一反三，细节自己弄吧。

Answer 3

抱歉了，我是学asp.net 的，不是学vb的