您好,这个实例需要使用两个PictureBox控件,例如Picture1和Picture2。将Picture1作为一个容器,将Picture2放置于Picture1,内,并且Picture2的Left以及top属性值为0。另外,添加一个横向滚动条控件HScroll1和纵向滚动条VScroll1。用这两个滚动条调整图片的显示位置。
下面是代码部分
在窗体Load事件中:
Picture2.Picture = LoadPicture("图片路径")'加载图片
VScroll1.Min = 0'设置纵向滚动条最小值
HScroll1.Min = 0'设置横向滚动条最小值
VScroll1.Max = Picture2.Height - Picture1.Height'设置纵向滚动条最大值
HScroll1.Max = Picture2.Width - Picture1.Width'设置横向滚动条最大值
If HScroll1.Max 〈 0 Then HScroll1.Enabled = False'当横向滚动条最大值小于0时,隐藏横向滚动条
If VScroll1.Max 〈 0 Then VScroll1.Enabled = False'当纵向滚动条最大值小于0时,隐藏纵向滚动条
垂直滚动条Change事件中代码:
Private Sub VScroll1-Change()
Picture2.Top = -VScroll1.Value'调整图片的顶端左边
End Sub
横向滚动条Change事件中代码:
Private Sub HScroll1-Change()
Picture2.Left = -HScroll1.Value'调整图片的左端坐标
End Sub