'利用picturebox的autoredraw、autosize 属性配合hscrollbar、vsrcrollbar实现滚动浏览
'2个picturebox控件 1个作为容器、1个作为显示
‘1个加载菜单项 1个hscrollbar 1个vscrollbar
Private Sub Form_Load()
HScroll.Visible = FalseVScroll.Visible = False
HScroll.Height = 300
VScroll.Width = 300
End Sub
Private Sub Form_Resize()
With PicBox
.Left = 0
.Top = 0
.Height = Me.ScaleHeight
.Width = Me.ScaleWidth
End With
Call PicShow_Resize
End Sub
Private Sub HScroll_Change()
PicShow.Left = -HScroll.Value
End Sub
Private Sub VScroll_Change()
PicShow.Top = -VScroll.Value
End Sub
Private Sub mnu加载图片_Click()
cdg.Filter = "加载图片|*.jpg"
cdg.ShowOpen
If cdg.FileName <> "" Then