Question

VB，求大神进：如何实现图片放大的效果

如题，需要实现图片放大的效果，但不知道用什么控件，怎么操作，求各路大神指导。
有不清楚的地方欢迎追问，我将补充细节。
答案满意可以再追加财富值。
希望代码做出来可以避免图片闪烁
VB6.0图片运动、缩放时图片闪烁，请详细说明如何避免这类问题，谢谢！
答案满意可以追加40分

Answer 1

Private Sub Command1_Click() '放大按钮
If Image1.Width < Me.Width And Image1.Height < Me.Height Then
Image1.Width = Image1.Width + 500
Image1.Height = Image1.Height + 500
End If
End Sub

Private Sub Command2_Click()   '缩小按钮
If Image1.Width > 500 And Image1.Height > 500 Then
Image1.Width = Image1.Width - 500
Image1.Height = Image1.Height - 500
End If
End Sub

Private Sub Form_Load()
Image1.Width = 1500
Image1.Height = 1500
Image1.Stretch = True   '图片按Image1的大小变化
End Sub

Answer 2

image设置Stretch为真，然后调整image大小即可做到缩放。

Answer 3

一个picturebox
放大时 自绘图形

Answer 4

百度关键字 vb源码 放大镜

有大把大把的

Answer 5

是VB6.0还是VB.net？