如何做一个有滚动条的picturebox并且是个容器

rendezvous

如何做一个有滚动条的picturebox并且是个容器
比如说吧个buttom放在里面  拖动滚动条 就可以看到他的位置变化

简单点说  现在我需要做个比较大的拼图
拼图则是底图 而底图上面有很多小图 屏幕不够大。需要有滚动条，希望各位vb达人能够帮忙  我想了挺久了，做了一个可以滚动的picture但是做不出容器效果

aijunzhiren

用两个PictureBox控件,首先在窗体添加1个PictureBox控件Picture1,然后在Picture1中间用鼠标加载另1个PictureBox控件Picture2.
在穿体添加剂个HScroll控件于窗体或Picture1内,调整Picture2的Height.
垂直滚动条建议不要与水平滚动条同时使用,会报错或当机.
代码如下:

Private Sub Form_Load()
Me.Height = 11295
Me.Width = 15360
Picture1.Width = Me.Width - 400
'Picture2.Height = Picture1.Height
Picture2.Width = Picture1.Width * 2.1'倍率可调整
End Sub

Private Sub HScroll1_Change()
Picture2.Left = -HScroll1 * 1.4 / 2.8'倍率需调整
End Sub

aijunzhiren

Private Sub Form_Load()
Me.Height = 11295
Me.Width = 15360
Picture1.Width = Me.Width - 400
'Picture2.Height = Picture1.Height
Picture2.Width = Picture1.Width * 2.1'倍率可调整
HScroll1.SmallChange = 100
End Sub

Private Sub HScroll1_Change()
Picture2.Left = -HScroll1 * 1.4 / 2.8'倍率需调整
End Sub