利用VB的图片框实现屏幕的滚动

　　对于学习使用VB来编程的电脑爱好者来说，可能会遇到这样一个问题：就是如何实现屏幕的滚动，因为当要显示的内容超出了屏幕的大小后，利用VB所提供的垂直滚动条和水平滚动条等控件是不可能直接实现这一特殊显示功能的。那么有没有

　　其它的办法呢?答案是肯定的。我们知道VB的图片框是用来显示图形的，但它还有许多其它用途，比如可以用来创建一些动画图形等。其实对于上面的问题我们也可以利用图片框来巧妙地解决。方法如下：

　　首先，单击工具框中的图片框(Picture Box)控件和命令按钮控件，在窗体(Form1)上建立图片框对象Picture1和命令按钮对象Command1，将命令按钮的Caption属性设置为"退出"，Picture1的大小设置为显示区域的大小，再单击工具

　　框中的图片框控件，在Picture1上建立另一个图片框对象Picture2，将它的Left和Top属性设置为0。用文本框，标签框等其它控件或导入一幅图象在Picture2上设定具体的显示内容，当然Picture2的大小一定要先调整到能全部容纳所有要显示的内

　　容，最后单击工具框中的垂直滚动条控件和水平滚动条控件，在窗体(Form1)上分别建立垂直滚动条对象VScroll1和水平滚动条对象HScroll1，并设置好它们的属性。

　　至此在窗体(Form1)上的所有设置工作就完成了，下面是具体的程序代码：

　　Private Sub VScroll1_Change()

　　Picture2.Top= -VScroll1.Value

　　End Sub

　　Private Sub Hscroll1_Change()

　　Picture2.Left= -HScroll1.Value

　　End Sub

　　Private Sub Command1_Click()

　　End

　　End Sub