Question

vb中 怎么样给picturebox加滚动条?

Answer 1

我讲一下思路：
你先添加1个picturebox1作为容器，然后在这个picturebox1里添加picturebox2，现在对你来说，picturebox2是你真正需要的picturebox，然后加垂直滚动条VScroll1，利用VScroll1的Value属性，去改变picturebox2的Top属性，就可以达到你的目的了。比如，减少picturebox2的Top值，就向上，增加picturebox2的Top属性就向下。
当然要水平滚动，可以添加HScroll1并利用它的Value属性，去改变picturebox2的Left属性。

追问

嘻嘻。抄的吧。百度一下N年前就有了。

Answer 2

添加两个picturebox控件，在picture1中添加picture2 。当然要加入滚动条。

在form load中添加下面代码
HScroll1.Max = picture2.Width
HScroll1.Min = 0

在Private Sub VScroll1_Change()中添加
picture2.Top = -VScroll1.Value

这个是水平的滚动条，垂直的同理

Answer 3

1.窗体上添加一个图片控件picture1，再在它里面加一个图片控件picture2
2.如果图片过大，最好把滚动条的最大值整除一个倍数，拖放后再还原回去
如：HScroll1.Max = (Picture2.Width - Picture1.Width)\500
Private Sub HScroll1_Change()
Picture2.Left = -HScroll1.Value*500
End Sub
程序如下：
Private Sub Form_Load()
Picture2.AutoSize = True'设置picture2的AutoSize为真，就是随图像改变大小
Picture2.Picture = LoadPicture("d:\1.jpg")'加载图片，"d:\1.jpg" 是图片实际路径
If Picture1.Width >= Picture2.Width Then
HScroll1.Max = 0
Else
HScroll1.Max = Picture2.Width - Picture1.Width
End If
If Picture1.Height >= Picture2.Height Then
VScroll1.Max = 0
Else
VScroll1.Max = Picture2.Height - Picture1.Height
End If
End Sub
Private Sub HScroll1_Change()
Picture2.Left = -HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub

Answer 4

用scrollbar 控件

追问

呵呵。。嘻嘻。。