VB PictureBox 缩放 平移 代码

Visual Basic 为应用程序的使用提供了复杂的文本和图形功能。在实际编程过程中，经常要实现如AutoCAD等图形工具软件的PAN和ZOOM功能，即平移和缩放功能，以便看清图形局部的信息。通过使用Visual Basic应用程序能够响应鼠标按钮及与SHIFT、CTRL或ALT键的各种组合事件的功能，可以很方便地实现图形和文本的PAN和ZOOM功能。下面用一个具体的实例对实现图形的平移和缩放进行说明。
　　1.启动Microsoft Visual Basic 5.0，选择“标准EXE”选项，创建一个新项目。
　　2.在窗体上增加三个控件，即一个CommandButton控件，Caption属性设为“还原”；一个PictureBox控件，AutoRedraw属性设为True;一个Shape控件，Style属性选择0-vbShapeRectangle, Visible属性设为False。Shape控件的目的是用于实现放大功能时的窗口选择。
　　3.将下列代码加到Form1中：Option Explicit
Dim sc,xx,yy
Dim xx1,yy1,xx2,yy2,xx3,yy3,xx4,yy4,xx5,yy5
Private Sub Cmd0_Click()
　sc=1
xx=0
yy=0
xinit
Call xdraw(sc,xx,yy,Picture1)
End Sub
Private Sub Form_Load()
　xinit
End Sub
Private Sub Form_Resize()
　Picture1.Height=Form1.Height-1100
Picture1.Width=Form1.Width-300
Cmd0.Top=Form1.Height-900
sc=1
xx=0
yy=0
Picture1.Scale (-60,50)-(60,-50)
Call xdraw(sc,xx,yy,Picture1)
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button=1 And Shift=1 Then
xx1=x
yy1=y