DirectX问题

KORE

照着DX SDK里的实例做出来的，怎么还是没用
Option Explicit

Dim objDX As New DirectX7
Dim objDD As DirectDraw7
Dim ddsd1 As DDSURFACEDESC2
Dim ddsd2 As DDSURFACEDESC2
Dim objDDprimSurf As DirectDrawSurface7
Dim objDDSurf As DirectDrawSurface7
Dim ddClipper As DirectDrawClipper

Dim r1 As RECT
Dim r2 As RECT

Private Sub Form_Load()
   
    r1.Left = 100
    r1.Bottom = 200
    r1.Right = 200
    r1.Top = 100
   
    r2.Left = 200
    r2.Right = 300
    r2.Top = 200
    r2.Bottom = 300

    Set objDD = objDX.DirectDrawCreate("")
    objDD.SetCooperativeLevel Me.hWnd, DDSCL_NORMAL
   
    ddsd1.lFlags = DDSD_CAPS
    ddsd1.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE
    Set objDDprimSurf = objDD.CreateSurface(ddsd1)
   
    ddsd2.lFlags = DDSD_CAPS
    ddsd2.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
    Set objDDSurf = objDD.CreateSurfaceFromFile("one love.bmp", ddsd2)
   
    Set ddClipper = objDD.CreateClipper(0)
    ddClipper.SetHWnd Picture1.hWnd
    objDDprimSurf.SetClipper ddClipper
   
    Picture1.Width = Me.ScaleWidth
    Picture1.Height = Me.ScaleHeight
   
    objDDprimSurf.Blt r1, objDDSurf, r2, DDBLT_WAIT
   
End Sub

AsEngineDev

你没有引用DX的库，当然不行拉。
先单击工程——>引用
将DirectX for vb type library选上，就行拉

KORE

。。。。。。
当然引用了。

不过不太清楚这段代码是干什么的
运行后on love.bmp那张图片也没出来
不知道是不是哪错了。

游戏之家

天！TV3D和DX你选一个学就可以了，不要见异思迁。。。。。。

KORE

~.~
反正我现在是两个都不懂呢
看哪个来兴趣了学哪个吧，哈哈
两个都弄不出来，哎，真郁闷~

GodOfPanPan

看你程式的??法，你是在?WDirectDraw吧～
?你一??建?：
因?槟阈?W的?系，建?你用Direct3D，因?橛泻芏嗵匦В??irectDraw很?做到，而且DirectDraw支持的硬件加速比Direct3D少很多。

?在很多２Ｄ的??蚬?例都是用Direct3D做的～
?K且我?得使用Direct3D比DirectDraw容易多了（??人感?而已）～

你要?W的?，你可以在DirectX9中的SDK Document中找一些?於ID3DXSprite的?料～

至於怎?映跏蓟?irect3D，看Tutorial 1: CreateDevice便可以了～
而?入Texture，?t看Tutorial 5: Textures～

sandy_zc_1

很可能是文件路径的问题。

因为DxSdk里面的例子都有一个FindMediaDir函数为它们提供路径。