对于学习使用Visual Basic来编程的电脑爱好者来说,可能会遇到这样个问题:就是如何实现屏幕的滚动,因为当要显示的内容超出了屏幕的大小后,利用Visual Basic所提供的垂直滚动条和水平滚动条等控件是不可能直接实现这特殊显示功能的。那么有没有其它的办法呢?答案是肯定的。我们知道Visual Basic的图片框是用来显示图形的,但它还有许多其它用途,比如可以用来创建些动画图形等。其实对于上面的问题我们也可以利用图片框来巧妙地解决。方法如下:
首先,单击工具框中的图片框(Picture Box)控件和命令按钮控件,在窗体(Form1)上建立图片框对象Picture和命令按钮对象Command1,将命令按钮的Caption属性设置为“退出”,Picture1的大小设置为显示区域的大小,再单击工具框中的图片框控件,在Picture上建立另个图片框对象Picture2,将它的left和top属性设置为0。用文本框,标签框等其它控件或导入幅图像在Picture2上设定具体的显示内容,当然Picture2的大小定要先调整到能全部容纳所有要显示的内容,后单击工具框中的垂直滚动条控件和水平滚动条控件,在窗体(Form1)上分别建立垂直滚动条对象vscro111和水平滚动条对象hscro111,并设置好它们的属性。至此在窗体(Form1)上的所有设置工作就完成了,下面是具体的程序代码:
Private sub vscro111_change()
Picture2.top=_vscro111.value
end sub
private sub hscro111_change()
Picture2.left=_hscro111.value
end sub
private sub Command1_Click()
end
end sub
运行程序,当按下横、竖滚动条时,就能使显示内存实现左右、上下的滚动。此方法简单易行,有兴趣的朋友不妨试试。