|
|
Public gdx As New DirectX7
Public gdd As DirectDraw7
Dim ddsd1 As DDSURFACEDESC2
Dim MainSurf As DirectDrawSurface7
'------------------------------------------------------
Set gdd = gdx.DirectDrawCreate("")
Call gdd.SetCooperativeLevel(Main.hWnd, DDSCL_NORMAL) '我就是想做非全屏模式
ddsd1.lFlags = DDSD_CAPS
ddsd1.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE
Set MainSurf = gdd.CreateSurface(ddsd1)
‘--------------------------------------------------------------------
BackSurf.DrawText 20, 20, "显示", False
怎么就是看不到东西啊！！！！！ |
|
发表于 2005-10-28 14:50:00
楼主