用DirectDraw显示位图问题

lwf188

我用一个DirectDrawSurface作为主页，另一个DirectDrawSurface用CreateSurfaceFromFile方法载入位图，然后用Blt方法传送位图到主页中，可结果为什么只是闪了一下，就没有了呢，
没有我想要的效果（显示图片)急啊，在这先谢了~

lwf188

没有人提供一个线索吗？

阿?Y

全屏模式还是窗口模式
filp还是blt
blt lock了么

sandy_zc_1

楼主提供信息太少。

你是使用哪种方式绘图？

lwf188

不是全屏模式的，代码如下，省略设置窗口和图片框属性:
Option Explicit
Option Base 0

Dim WithEvents picture1 As PictureBox

Dim DX As DirectX7
Dim DDraw As DirectDraw7
Dim DDrawSurfacePrimary As DirectDrawSurface7
Dim ddsdPrimary As DDSURFACEDESC2
Dim DDClip As DirectDrawClipper
Dim DDSBackGround As DirectDrawSurface7
Dim ddsdBackGround As DDSURFACEDESC2

Dim DDrawSurfaceSecond As DirectDrawSurface7
Dim ddsdSecond As DDSURFACEDESC2


Private Sub Form_Load()
   
    With Form1
        ...
    End With
   
    Set picture1 = Controls.Add("VB.PictureBox", "picture1")
    With picture1
    ...
    End With
   
        
    Dim rSecond As RECT
    Set DX = New DirectX7
    Set DDraw = DX.DirectDrawCreate("")
    DDraw.SetCooperativeLevel picture1.hWnd, DDSCL_NORMAL
   
    ddsdPrimary.lFlags = DDSD_CAPS 'Or DDSD_WIDTH Or DDSD_HEIGHT
   
    ddsdPrimary.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE
    ddsdPrimary.lWidth = 640
    ddsdPrimary.lHeight = 480
    Set DDrawSurfacePrimary = DDraw.CreateSurface(ddsdPrimary)
    Set DDClip = DDraw.CreateClipper(0)
    DDClip.SetHWnd picture1.hWnd
    DDrawSurfacePrimary.SetClipper DDClip
   
    ddsdSecond.lFlags = DDSD_CAPS Or DDSD_WIDTH Or DDSD_HEIGHT
    ddsdSecond.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
    ddsdSecond.lWidth = 640
    ddsdSecond.lHeight = 480
   
    Set DDrawSurfaceSecond = DDraw.CreateSurface(ddsdSecond)
    rSecond.Right = 640
    rSecond.Bottom = 480
    'DDrawSurfacePrimary.Blt rSecond, DDrawSurfaceSecond, rSecond, DDBLT_WAIT
    ddsdBackGround.lFlags = DDSD_CAPS Or DDSD_WIDTH Or DDSD_HEIGHT
    ddsdBackGround.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
    ddsdBackGround.lWidth = 640
    ddsdBackGround.lHeight = 480
   
   Set DDSBackGround = DDraw.CreateSurfaceFromFile(App.Path & "\backGround.bmp", ddsdBackGround)
   DDrawSurfaceSecond.Blt rSecond, DDSBackGround, rSecond, DDBLT_WAIT
   
   
   
   DDrawSurfacePrimary.Blt rSecond, DDrawSurfaceSecond, rSecond, DDBLT_WAIT
   
    'DDrawSurfaceSecond.BltFast 0, 0, DDrawSurfacePrimary, rSecond, DDBLTFAST_WAIT
End Sub

liiir1985

你只画一次，当然只闪一下啊
应该要用do...loop循环，不停的画才行

lwf188

liiir1985: Re:用DirectDraw显示位图问题

你只画一次，当然只闪一下啊
应该要用do...loop循环，不停的画才行

以前用GDI绘图的时候好像不是这个样子的，肯定是我理解有误，
请DX指点啊~~

wtl6838581

哦，你学的是VB。我学的是C++。

vb中好象有一个“定时”控件。

DX画图每秒不能少于30帧，

1000毫秒=1秒
1000毫秒/30帧≈33毫秒

你可以把“定时控件”设置为没33毫秒执行一次“翻页”或Bit。

liiir1985

DX是需要不停的往屏幕上面画图才能正常显示图像，所以你得用do...loop或者用timer来重复画，否则就会像你看到的，闪一下就没了