vb

Question

vb 中用picturebox 的paintpicture方法制作一个图片放大器（当鼠标一个一定区域时图片就会放大一定的倍数）

Answer 1

'建立二个 Picture1 与 Picture2 ,再在Picture1中加载图片Private Sub Form_Load()
  Me.ScaleMode = 1
  Picture2.Width = 3000
  Picture2.Height = 3000
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Picture2.Cls
   Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height, X - 100, Y - 100, 500, 500
End Sub