Question

你好！我是VB初学者，想向你求助啊！！

我想知道怎样才可以通过点击图片不断放大缩小图片啊？

我一开始想把图片放大，所以就写了下面的代码，可是运行时却没反应啊，万分纠结......
Dim a As Integer, b As Integer
Private Sub Form_Load()
a = Form1.ScaleHeight
b = Form1.ScaleWidth
End Sub
Private Sub Image7_Click()
Image7.Height = a
Image7.Width = b
End Sub

还有我不知道怎样才能通过再次点击图片来还原图片大小，希望大神们能可怜可怜我这个刚入门的菜鸟啊，万分感激！

Answer 1

很早以前写的VB代码了，功能是实时让图片随窗体大小等比例放大或缩小。
至于你的第二个问题，你看下面的代码自己就能解决了，就是设置一下宽度和高度。
如果真心想学编程，还是过渡到vb.net吧。比VB6强大百倍。

Option ExplicitSub Bit()
On Error Resume Next
Dim v比例 As Single
Dim vWidth As Long, vHeight As Long
Me.Cls
Picture1.Picture = LoadPicture("E:\我的文档\My Pictures\007.jpg")
With Picture1
v比例 = ScaleX(.Picture.Width, 8, 3) / ScaleY(.Picture.Height, 8, 3)
If Me.ScaleWidth / Me.ScaleHeight > v比例 Then
vHeight = Me.ScaleHeight
vWidth = Me.ScaleHeight * v比例
Else
vWidth = Me.ScaleWidth
vHeight = Me.ScaleWidth / v比例
End If
Me.PaintPicture .Picture, Me.ScaleWidth * 0.5 - vWidth * 0.5, Me.ScaleHeight * 0.5 - vHeight * 0.5, vWidth, vHeight
End With
End Sub

Private Sub Form_Resize() Picture1.Visible = False
Me.AutoRedraw = True
Bit
End Sub

追问

实时让图片随窗体大小等比例缩放是要自己操控窗体大小吗？可是我是想要通过点击图片实现放缩啊。
因为现在是要上vb课，所以现在就统一学着vb6.0，其他的还没学呢，我也不知道应该怎么自学

Answer 2

这只是调大图片框大小。无法改变内部的图片大小。
图片缩放要用到GDI。

追问

作为一个烂爆的菜鸟，GDI是什么我完全没概念...

追答

GDI/GDI+百度搜下有教程。