Question

求一个vb执行程序时调整分辨率的代码

我做了一个软件，只有在1024*768分辨率下才会有好的表现，我需要一段代码，当我打开软件的时候，自动将分辨率调整为1024*768，当我关闭软件的时候，软件自动将分辨率恢复到原来执行程序前的分辨率，求教高手拿出自己的代码。

Answer 1

先在工程引用DirectX 7 for Visual Basic Type Library
Dim DirctX As DirectX7
Dim DirctD As DirectDraw7
Private Sub Form_Load()
Set DirctX = New DirectX7
Set DirctD = DirctX.DirectDrawCreate("")
DirctD.SetCooperativeLevel Me.hWnd, DDSCL_NORMAL
DirctD.SetDisplayMode 1024, 768, 32, 0, DDSDM_DEFAULT
End Sub