|
|
发表于 2005-12-3 10:18:00
|
显示全部楼层
Re:VB能做全屏的游戏吗?
我昏!!
Dim objDX As New DirectX7
Dim objDD As DirectDraw7
Form1.Top = 0: Form1.Left = 0
Form1.AutoRedraw = True
Form1.Height = 600 * 15: Form1.Width = 800 * 15
Set objDD = objDX.DirectDrawCreate("")
Call objDD.SetCooperativeLevel(Me.hWnd, DDSCL_FULLSCREEN Or DDSCL_ALLOWMODEX Or DDSCL_EXCLUSIVE)
objDD.SetDisplayMode 800, 600, 16, 0, DDSDM_DEFAULT
|
|