一个出色的Visual Basic程序应该可以在不同的系统和配置下运行。例如,视频设备在不同系统中的设置很有可能是不一样的。Joe使用的是800x600分辨率的老式显示器,而Alice使用的是1600x1200像素的21寸显示器。
对于某些程序,这些视频的差别并不是很重要,但在一定情况下你一定希望你的程序能够充分利用屏幕的全部区域和分辨率。为了实现这一点,你可以使用Screen对象来获得有关显示硬件的信息。
VB使用twips(缇)作为屏幕的量度,每一个缇相当于1/1440英寸。你可以通过Screen对象的两个属性来设置屏幕的大小,即Screen.Width 和 Screen.Height。在理论上你可以使用这些属性来决定实际的屏幕尺寸,如下所示:
ScreenWidthInInches = Screen.Width/1440
ScreenHeightInInches = Screen.Height/1440
缇的值也可以用于设置选项在屏幕上的位置。你可以使用它们来定位窗体在屏幕上合适的位置而不超过屏幕范围之外。例如,以下代码段将窗体定位在屏幕的中央:
Form1.Move (Screen.Width - Form1.Width) / 2, (Screen.Height - Form1.Height) / 2
这里是另一个范例,其将窗体定位在屏幕的右下角,程序适用于任何系统(尽管可能有些窗体被Windows任务栏覆盖)。
Form1.Move Screen.Width - Form1.Width, Screen.Height - Form1.Height