Question

VB分辨率的问题！

我想不少人应该都知道，在Vb中设计一个全屏的工程，是在当前的分辨率下设计的，而在换个分辨率，窗口的布局就全变了！
比如我在800*600的分辨率下设计的程序，改成的1024*768 好多控件的大小还是那么大 布局也就变了！
我试过 让这个程序一打开就改成1024*768，可退出怎样 才能改回来？应该说我不知道我一开始的分辨率是多少！
我想让这个 程序广泛点，拿到哪个机子上都能用
哪位高手指导一下？

Answer 1

使用一下代码获得当前的屏幕分辨率

MsgBox Screen.Width / Screen.TwipsPerPixelX
MsgBox Screen.Height / Screen.TwipsPerPixelY

注意：Screen.TwipsPerPixelX 和 Screen.TwipsPerPixelY 是根据用户自定义的字体大小改变而改变。

Answer 2

使用 DirectX完成;
Dim objDD As DirectDraw7
Set objDD = objDX.DirectDrawCreate("")
Call objDD.SetCooperativeLevel(Me.hWnd, DDSCL_FULLSCREEN Or DDSCL_ALLOWMODEX Or DDSCL_EXCLUSIVE)
objDD.SetDisplayMode 800, 600, 32, 0, DDSDM_DEFAULT
'设定640x480 16万色的显示模式
Call objDD.RestoreDisplayMode '重置显示模式
Call objDD.SetCooperativeLevel(Me.hWnd, DDSCL_NORMAL)