学步园

 Public Class Form1</p> <p> Private WithEvents panel As Panel<br /> Private WithEvents pic As PictureBox</p> <p> Private x, y As Integer</p> <p> Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown<br /> Select Case e.KeyCode<br /> Case Keys.Up<br /> panel.AutoScrollPosition = New Point(0 - panel.AutoScrollPosition.X, 1 - panel.AutoScrollPosition.Y)<br /> Case Keys.Down<br /> panel.AutoScrollPosition = New Point(0 - panel.AutoScrollPosition.X, -1 - panel.AutoScrollPosition.Y)<br /> Case Keys.Left<br /> panel.AutoScrollPosition = New Point(1 - panel.AutoScrollPosition.X, 0 - panel.AutoScrollPosition.Y)<br /> Case Keys.Right<br /> panel.AutoScrollPosition = New Point(-1 - panel.AutoScrollPosition.X, 0 - panel.AutoScrollPosition.Y)<br /> Case Else<br /> Return<br /> End Select<br /> End Sub</p> <p> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> panel = New Panel With {.BorderStyle = BorderStyle.Fixed3D, .Dock = DockStyle.Fill, .AutoScroll = True}<br /> pic = New PictureBox With {.BorderStyle = BorderStyle.None, .SizeMode = PictureBoxSizeMode.AutoSize}<br /> panel.Controls.Add(pic)<br /> Me.Controls.Add(panel)</p> <p> Using ofd As New OpenFileDialog With {.Filter = "Image|*.bmp;*.jpg;*.png"}<br /> If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then<br /> pic.Image = Image.FromFile(ofd.FileName)<br /> End If<br /> End Using<br /> End Sub</p> <p> Private Sub pic_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pic.MouseDown<br /> If e.Button = Windows.Forms.MouseButtons.Left Then<br /> pic.Cursor = Cursors.Hand<br /> x = e.X<br /> y = e.Y<br /> End If<br /> End Sub</p> <p> Private Sub pic_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pic.MouseMove<br /> If e.Button = Windows.Forms.MouseButtons.Left Then<br /> Dim dx As Integer = x - e.X<br /> Dim dy As Integer = y - e.Y<br /> panel.AutoScrollPosition = New Drawing.Point((dx - panel.AutoScrollPosition.X), (dy - panel.AutoScrollPosition.Y))<br /> End If<br /> End Sub</p> <p> Private Sub pic_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pic.MouseUp<br /> pic.Cursor = Cursors.Arrow<br /> End Sub<br /> End Class<br />