如何vb里图形操作?????

Question

如何实现点击一个按钮，让图片放大和缩小？
如何让鼠标放到图片上变成小手，来拖动图片？

Answer 1

Image1图象框。先把Strecth 调为False，把图象的高和宽保存到变量a,b，然后把Strecth设为True，即把图象框的高和宽设置大小，图象也跟着图象框大小一样变化。就能实现放大效果。另是变成小手要，找个光标文件ICON光标文件。

Answer 2

移动图像：
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.Caption = Abs(X) & "a" & Y
End SubPrivate Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    If X < 0 Then X = 0
    If Y < 0 Then Y = 0
        Image1.Left = Abs(X)
        Image1.Top = Abs(Y)End Sub

Answer 3

我记得我当时是这么做的 在Image的MouseDown下先保存用户按下鼠标时候在Image内部的X、Y假设分别保存在oriX和oriY变量中
然后在Image的MouseMove下Image.Left=Image.Left+X-oriX,Image.Top=Image.Top+Y-oriY
然后再使oriX=X,oriY=Y