一个DX初学者

cvkh

我想学习DX技术(在VB6.0环境下的),有谁愿意贡献一个初学者能看的懂的代码?谢谢了! [em24]

sandy_zc_1

7还是8？

sandy_zc_1

http://bbs.gameres.com/showthread.asp?postid=223969

Dx8的

cvkh

谢谢,那有没有关于DirectDraw7的,还有DirectDrawSurface7怎么创建啊?

123321

现在都DX9C了。我们都落后了。

psic

是该换VB.net的时候了

惩伐者

psic: Re:一个DX初学者

是该换VB.net的时候了

WANGH你学了这么久VB.NET 也不见你做出什么游戏. [em2]

惩伐者

123321: Re:一个DX初学者

现在都DX9C了。我们都落后了。

想看看你用DX9C写的游戏, 你那个RPG不也是用FORM, 连API也不是. [em2]

psic

惩伐者: Re: Re:一个DX初学者



WANGH你学了这么久VB.NET 也不见你做出什么游戏. [em2]

表慌，会做出来的，再等十几年吧 [em16]

sandy_zc_1

cvkh: Re: 一个DX初学者

谢谢,那有没有关于DirectDraw7的,还有DirectDrawSurface7怎么创建啊?

Dim Dx7 As New DirectX7
Dim Dd7 As DirectDraw7
Dim Ds1 As DirectDrawSurface7
Dim Ddsd1 As DDSURFACEDESC2

Private Sub Form_Load()
InitDx1
End Sub


Function InitDx1()
Set Dd7 = Dx7.DirectDrawCreate("")
Dd7.SetCooperativeLevel Me.hWnd, DDSCL_NORMAL  
'上面是设置协作层，Me.hwnd是当前窗口的句柄，DDSCL_NORMAL 表示正常模式（也可按需改为其他模式）
'下面是创建主表面
Ddsd1.lFlags = DDSD_CAPS
Ddsd1.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE '此参数表示要创建一个主表面
Set Ds1 = Dd7.CreateSurface(Ddsd1) '这样就创建了一个DirectDrawSurface7对象，并且此对象被设定为主表面
End Function