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

[kwl_79]

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

[jason_sun22]

老兄，这可是ＶＣ论坛　！！！

你到VB论坛去问，会的人不是会更多？？？

[sleilei]

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

ResWidth = Screen.Width \ Screen.TwipsPerPixelX

ResHeight = Screen.Height \ Screen.TwipsPerPixelY

ScreenRes = ResWidth & "x" & ResHeight

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

800x600

[sleilei]

我的E—MAIL：[e-mail]
qq:58154239
有空多交流！