各种显示类型的设计 Microsoft Windows 是与设备无关的-基于窗口的应用程序可以在许多不同显示分辨率与颜色浓度的计算机中运行。同样,用 Visual Basic 编写的应用程序也会在不同类型的显示器上运行,在设计应用程序时需要考虑到这一点。
设计与分辨率无关的窗体 缺省情况下,当改变屏幕分辨率时,Microsoft Visual Basic 不会改变窗体与控件的尺寸。这就意味着在分辨率为 1024×768 的屏幕上设计的窗体,在分辨率为 640×480 的屏幕中运行时会伸出屏幕的边界之外。如果想创建不管使用什么样的屏幕分辨率都能有相同比例的窗体和控件,必须在最低的分辨率下设计窗体,或者将改变窗体的代码添加到程序中去。 避免尺寸问题的最简单的方法是在 640×480 的分辨率下设计窗体。如果更喜欢在高一些的分辨率下工作,仍需要考虑窗体在低一些的分辨率下将如何显示。实现这一点的方法是用“Form Layout”窗口预览窗体的大小和位置。您也可以使用“Resolution Guides”观察在低分辨率时屏幕的哪些部分是可见的。要切换到“Resolution Guides”,可以在“Form Layout”窗口单击鼠标右键,从弹出菜单上选择“Resolution Guides”菜单项。 在运行时,Visual Basic 根据设计时的位置来放置窗体。如果设计时在 1024×768 的分辨率上运行,并把窗体放到屏幕的右下角,则当它在比较低的分辨率下运行时该窗体可能看不见。为了避免这种情况的发生,在设计时可从“Form Layout”窗口的弹出菜单选择“Startup Position”菜单项来设置窗体的启动位置。同样,您也可以在运行时用下面的 Form Load 事件中的代码来设置窗体的位置: Private Sub Form_Load() Me.Move 0, 0 End Sub 尽管设置窗体的 Left 与 Top 的属性都为 0 也能有同样的效果,但 Move方法只要一步就能完成。 Visual Basic 使用与设备无关的度量单位,缇,是用来计算尺寸与位置的单位。Screen 对象的两个属性 TwipsPerPixelX 与 TwipsPerPixelY 可以用来确定运行时的显示尺寸。应用这些属性,可以编写代码来调整窗体以及控件的尺寸与位置。 Private Sub SetControls() Dim X As Integer Dim Y As Integer
X = Screen.TwipsPerPixelX Y = Screen.TwipsPerPixelY Select Case X, Y Case 15, 15 重新改变控件尺寸及移动控件。 txtName.Height = 200 txtName.Width = 500 txtName.Move 200, 200 增加为其它分辨率编写的代码。 … End Sub 也需要知道在设计时 Visual Basic 自身窗口的位置。如果在高分辨率下把“工程”窗口放置到屏幕的右边,那么会发现在低分辨率下打开工程时,它不再是可访问的了。