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

Posted 2023-05-05

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

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

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

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

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

这个是水平的滚动条，垂直的同理 参考技术B 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 参考技术C 用scrollbar 控件追问

呵呵。。嘻嘻。。

java如何在文本框上加滚动条？

参考技术A 需要javax.swing里面的JScrollPane组件\\x0d\\x0a\\x0d\\x0a给你个例子吧\\x0d\\x0a\\x0d\\x0aimport javax.swing.*;\\x0d\\x0a\\x0d\\x0apublic class TestScroll \\x0d\\x0a public TestScroll()\\x0d\\x0a JFrame jf=new JFrame("test");\\x0d\\x0a JPanel jp=new JPanel();\\x0d\\x0a JTextArea jta=new JTextArea(8,20);\\x0d\\x0a JScrollPane jsp=new JScrollPane(jta);//新建一个滚动条界面，将文本框传入\\x0d\\x0a jp.add(jsp);//注意：将滚动条界面添加到组建中，而不是添加文本框了\\x0d\\x0a jf.add(jp);\\x0d\\x0a \\x0d\\x0a jf.pack();\\x0d\\x0a jf.setLocation(300,300);\\x0d\\x0a jf.setVisible(true);\\x0d\\x0a jf.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);\\x0d\\x0a \\x0d\\x0a public static void main(String[] args) \\x0d\\x0a new TestScroll();\\x0d\\x0a \\x0d\\x0a