DirectxVB问题

lzmooo

我想把一个本来在全屏模式下运行的游戏改为在窗口模式下运行,但自己写的代码却不行

代码如下:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Load()
Dim dd As New DirectX7
Dim dw As DirectDraw7
Set dw = dd.DirectDrawCreate
lname = FindWindow(vbNullString, "帝国时代2")
dw.SetCooperativeLevel lanme, DDSCL_NORMAL
dw.SetDisplayMode 800, 600, 16, 0, DDSDM_DEFAULT
End Sub




哪位高手帮我解决一下

lzmooo

上面的代码错了,更正如下:


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Load()
Dim dd As New DirectX7
Dim dw As DirectDraw7
Set dw = dd.DirectDrawCreate("")
lname = FindWindow(vbNullString, "帝国时代2")
dw.SetCooperativeLevel lanme, DDSCL_NORMAL
dw.SetDisplayMode 800, 600, 16, 0, DDSDM_DEFAULT
End Sub

sandy_zc_1

远没有那么简单。