怎样得到当前的屏幕分辨率？

怎样得到当前的屏幕分辨率？

在程序设计中我们经常要改变窗体的大小，而这也依赖于屏幕的分辨率，下面的例子将演示如何得到当前屏幕的分辨率：

ResWidth = Screen.Width Screen.TwipsPerPixelX

ResHeight = Screen.Height Screen.TwipsPerPixelY

ScreenRes = ResWidth & "x" & ResHeight

ResWidth和ResHeight分别表示屏幕的宽和高，比如这样的结果：

800x600