如何在VB中获取和设置计算机的分辩率(20分。分值不高，但是积小成多)?

Question

我是VB的入门者，想请教高手指点一二，小生感激不尽，给20分以聊表谢意。

Answer 1

在程序设计中我们经常要改变窗体的大小，而这也依赖于屏幕的分辨率，下面的例子将演示如何得到当前屏幕的分辨率：ResWidth = Screen.Width \ Screen.TwipsPerPixelXResHeight = Screen.Height \ Screen.TwipsPerPixelYScreenRes = ResWidth & "x" & ResHeight ResWidth和ResHeight分别表示屏幕的宽和高，比如这样的结果：800x600